Mega Code Archive

 

Categories / VisualBasic Script / Forms

 

Form Before Update action

Private Sub Form_BeforeUpdate(Cancel As Integer)     If IsNull(Me.txtContactFirstName) Or _         IsNull(Me.txtContactLastName) Or _         IsNull(Me.txtCompanyName) Or _         IsNull(Me.txtPhoneNumber) Then         MsgBox "The Contact First Name, " & vbCrLf & _             "Contact Last Name, " & vbCrLf & _             "Company Name, " & vbCrLf & _             "And Contact Phone Must All Be Entered", _             vbCritical, _             "Canceling Update"         Me.txtContactFirstName.SetFocus         Cancel = True     End If End Sub