Check if fields are empty

[Doggfather22]

Hey everyone.

I'm sorry if this has been answered already, but I couldn't find a previous thread about this.

Anyways, I have a form which works fine, but the only point I need fixed is that it should check if all fields are filled when I hit the 'Send' button, and if not it should return a message saying so, and allow the user to fill up the remaining fields. I've tried a few ways but none seem to work properly.



Thanks in advance
Regards,
Sebastian

[RuralGuy]

Sebastian,
Welcome to the Forum. Here's a stub of code that might be of use in the BeforeUpdate event of the Form:

Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acComboBox Or ctl.ControlType = acTextBox Then
   If Len(ctl.Value & "") = 0 Then
      '..This control is empty
      '...do what you want!
   End If
End If
Next ctl

I do not know your VBA skill level so if this is not enough then post back for additional assistance.

[Doggfather22]

Thanks for you help

Though my VBA skills are quite lacking. I've pretty much just started working with it, and only know a few basic things, like how to make a message box. Anyways, the current code for the Send button is this:

Private Sub versturen_Click()
On Error GoTo Err_versturen_Click

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

LResponse = MsgBox("De patiënt is toegevoegd. Wilt u nog een patiënt toevoegen?", vbYesNo, " ")
If LResponse = vbYes Then
DoCmd.GoToRecord , , acNext
Else
DoCmd.Close
End If

Exit_versturen_Click:
Exit Sub
Err_versturen_Click:
DoCmd.GoToRecord , , acNext
Resume Exit_versturen_Click

End Sub

[RuralGuy]

Are you aware that unless you take extrordinary steps, Access will save a Dirty record if you try and move off of the record for *any* reason, including closing the form?