Below is the code (which I found and modified slightly) and it works when used to check ONE field but when I added code for an additional field to be checked, it returns an error (run-time error 2450) - Access can't find the form 'Frm_Case' referred to in a macro expression or Visual Basic code
Expand|Select|Wrap|Line Numbers
- Private Sub btnBack_Click()
- If IsNull(Forms![Frm_Case]![Frm_Individual_Details].Form![Per_Referral_Date]) Then
- If MsgBox("You must enter a referral date." & Chr(13) & Chr(10) & Chr(13) & Chr(10) & _
- "Press 'OK' to return and enter a date.", _
- vbOKOnly, "Referral Date Required") _
- = vbOKOnly And Forms![Frm_Case]![Frm_Individual_Details].Form![Per_Referral_Date].SetFocus Then
- End If
- Else
- DoCmd.Close
- End If
- If IsNull(Forms![Frm_Case]![Frm_Individual_Details].Form![cboReferredFrom]) Then
- If MsgBox("You must specify where the client was referred from." & Chr(13) & Chr(10) & Chr(13) & Chr(10) & _
- "Press 'OK' to return and select a referral service.", _
- vbOKOnly, "Referred From Service Required") _
- = vbOKOnly And Forms![Frm_Case]![Frm_Individual_Details].Form![cboReferredFrom].SetFocus Then
- End If
- Else
- DoCmd.Close
- End If
- End Sub