I use the following snippit to validate data. It depends on a UDF in a Standard Module to check for Nulls, 0, "", and False. I use the "Tag" property of controls to group them for specific types of validation. You can get creative and cause the control forecolor to go red like a web form might, etc.
Code:
'Constant Control
'acBoundObjectFrame Bound object frame
'acCheckBox Check box
'acComboBox Combo box
'acCommandButton Command button
'acCustomControl ActiveX (custom) control
'acImage Image
'acLabel Label
'acLine Line
'acListBox List box
'acObjectFrame Unbound object frame or Chart
'acOptionButton Option button
'acOptionGroup Option group
'acPage Page
'acPageBreak Page break
'acRectangle Rectangle
'acSubform SubForm / SubReport
'acTabCtl Tab
'acTextBox Text box
'acToggleButton Toggle button Toggle button
'
'
'Make sure the required fields have a value
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.Tag = "Required" Then
If IsNothing(ctl.Value) Then
MsgBox "Please complete the form before submitting.", vbInformation, "Incomplete!"
ctl.SetFocus
If ctl.ControlType = acComboBox Then
ctl.Dropdown
End If
Exit Sub
End If
End If
Next