Mega Code Archive

 

Categories / VisualBasic Script / Application

 

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