Hi Fisher
Here is some code i have used before it might give you some ideas
Private Sub Next_Click()
Private Sub cmdnew_Click()
On Error GoTo Err_cmdNew_Click
If IsNull(txtAC) Then
MsgBox "Please enter the customer's account number", vbInformation, "Datanet"
txtAC.SetFocus
Exit...