Private Sub Form_BeforeUpdate(Cancel As Integer) If IsNull(txtCustLastName) Then MsgBox "Please enter a last name" DoCmd.GoToRecord , , acLast Me.ctlCustLastName.SetFocus End If End Sub