Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.NewRecord Then
If RecordsetClone.RecordCount = 0 Then
Me.Record_Number = 1
Else
Me.Record_Number = Nz(DMax("[Record_Number]", "SrRegister")) + 1
End If
End If
End Sub
why This code not work?
pls help me.