Code:
Option Compare Database
Option Explicit
Private Sub Form_Current()
Me.txtCusID.Enabled = False
Me.txtCusNumber.Enabled = False
Dim iNumber As Integer
iNumber = Nz(DMax("[CusNumber]", "tblCustomer"), 0)
If Me.NewRecord = True Then
Me.txtCusNumber = iNumber + 1
End If
Exit Sub
End Sub
Private Sub cmdNewRecord_Click()
On Error GoTo Err_cmdNewRecord_Click
DoCmd.GoToRecord , , acNewRec
Exit_cmdNewRecord_Click:
Exit Sub
Err_cmdNewRecord_Click:
MsgBox Err.Description
Resume Exit_cmdNewRecord_Click
End Sub
This is the code.