Field required based on another field

[Suzfitzy]

I have a form that has a field "Discharge Date" If this field has a date I want other fields to be required.

[ranman256]

I do my checks via code (not in the field property)
All in 1 place, easier to change.
don't let the form close until the reqd fields are filled...
usage:


Private Sub Form_Unload(Cancel As Integer)
cancel = not IsValidForm()
End Sub

Private Function IsValidForm() As Boolean
Dim vMsg
Select Case True
   Case IsNull(cboWeekOf)
      vMsg = "Date field missing"
   Case IsNull(cboUser)
      vMsg = "User name is missing"
   Case IsNull(txtEmail)
      vMsg = "Email field is missing"
End Select
If vMsg <> "" Then MsgBox vMsg, vbCritical, "Required Field"
IsValidForm = vMsg = ""
End Function