Hi, I am having problems with an auto numbering I have set up on a form in the On Current event.
I would like that each time I click New Record the next sequential number is inserted automatically starting at 6930.
The code I am using is below but I am not sure where I am going wrong.
I have also attached a sample to show what it is doing.
Private Sub Form_Current()
If Me.NewRecord Then
On Error Resume Next 'It should never occur, just to be sure...
Me!lblProjectNo.DefaultValue = Nz(DMax("[lblProjectNo]", "tblquote"), 6930) + 1
Hope someone can help.