This is what i have at the moment but it still does not increment
Private Sub GenerateCode_Click()
Me.Increment = Nz(DMax("[Increment]", "Contacts", "Left([LastName],3)='" & Left(Me.LastName, 3) & "'"), 0) + 1
End Sub
I have a hidden control on my form named Increment bound to the...