Application VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Application
  4. Validating a Record
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