MsgBox for Error Handling

[derek7467]

Hey guys-


I have a small form i use for input from users into a database. I set the database fields to be required, thus kicking off a handling error when trying to save a record with not all fields having data in them.

I would like to build this into my save button:

If any of the fields are null Then
MsgBox ("Please do not leave anything blank") and
Return to current record using is attempting to submit

[pbaldy]

Is this what you're looking for?

http://www.baldyweb.com/BeforeUpdate.htm

[derek7467]

wow! yea it is
Question, i am a beginner with VBA.. can you walk me thru this code:

If Len(Me.SomeControl & vbNullString) = 0 Then
MsgBox "You need to fill out SomeControl"
Cancel = True
Me.SomeControl.SetFocus
End If
What would i put for Me.SomeControl? I have 1 Combo box, 1 text label as a date, 1 drop down selection list and one text box. I would want each checked not to be null.

[June7]

SomeControl would be the name of your control. There's more than one way to test for the empty controls.

If Len(Me.comboboxname & vbNullString) = 0 Then
...
ElseIf Me.textboxname & "" = "" Then
...
End If

What do you mean by 'text label as a date'? Label control cannot be altered by user so it should be irrelevant.

[derek7467]

perfect. Next part, how do i stop the statement from continuing until the null item is no longer null?

Private Sub Command6_Click()
If Len(Me.Combo193 & vbNullString) = 0 Then
MsgBox ("Fill Out Empty Employee name")
DO NOT PASS THIS PART UNTIL NULL FIELD IS FILLED OUT
DoCmd.Save
If MsgBox("Your entry has been submitted. Would you like to submit another?", vbYesNo, "Service Desk Management Enhancement Form") = vbYes Then
DoCmd.GoToRecord , , acNewRec
Else
DoCmd.GoToRecord , , acNewRec
End If
End If
End Sub

[June7]

Private Sub Command6_Click()
If Len(Me.Combo193 & vbNullString) = 0 Then
   MsgBox ("Fill Out Empty Employee name")
Else
   DoCmd.RunCommand acCmdSaveRecord
   If MsgBox("Your entry has been submitted.  Would you like to submit another?", vbYesNo, "Service Desk Management Enhancement Form") = vbYes Then
       DoCmd.GoToRecord , , acNewRec
   End If
End If
End Sub

[pbaldy]

I guess I'll go off duty.

[derek7467]

Thank you