I need to write a custom error message for a before update procedure

[lefty1324]

I have a form with fields last name, first name, is Adjuster active (check for yes) and adjuster email. I have the before update to not allow the record to be submitted if there are blanks but I am unsure how to write the VBA to give the error messages to tell the user to fill in the blank fields.

Any help would be appreciated

 

[Catalina]

Just do a search on this forum, this topic has been handled numerous times.

 

[nanscombe]

You could try something along the lines of ...

Private Sub Form_BeforeUpdate(Cancel as Integer)
Dim strMessage as String

strMessage = vbNullString

If Len(Me.fieldXXX & vbNullString) = 0 Then
  strMessage = "fieldXXX" ' Name of the control on the form
  Goto updateEnd
Endif

If Len(Me.fieldYYY & vbNullString) = 0 Then
  strMessage = "fieldYYY"
  Goto updateEnd
Endif

...
more tests
...


updateEnd:
If strMessage <> vbNullString Then
  Me.Controls(strMessage).SetFocus ' Put focus on thefirst empty control

  strMessage = "Field '" & strMessage & "' should not be left blank."
  msgBox strMessage, vbCritical + vbOkOnly, "Mandatory field warning"

  Cancel = TRUE ' Cancel the update
Endif
End Sub