nickrugado
MIS
Compile error:
Ambigious name detected....
first line is highligted in yellow...
5th line where it says 'displaymessage' is highlighed in blue.
Several areas in the DB where this code exists... is something formatted incorrectly??
Private Sub PhEmDate_Enter()
On Error GoTo Err_PhEmDate_Enter
If IsNull(HowHeard) Then
DisplayMessage ("Please select one of the 'How Heard' choices.")
HowHeard.SetFocus
Cancel = True
End If
Exit_PhEmDate_Enter:
Exit Sub
Err_PhEmDate_Enter:
MsgBox Err.Description & " Error Number " & Err.Number
Resume Exit_PhEmDate_Enter
End Sub
Ambigious name detected....
first line is highligted in yellow...
5th line where it says 'displaymessage' is highlighed in blue.
Several areas in the DB where this code exists... is something formatted incorrectly??
Private Sub PhEmDate_Enter()
On Error GoTo Err_PhEmDate_Enter
If IsNull(HowHeard) Then
DisplayMessage ("Please select one of the 'How Heard' choices.")
HowHeard.SetFocus
Cancel = True
End If
Exit_PhEmDate_Enter:
Exit Sub
Err_PhEmDate_Enter:
MsgBox Err.Description & " Error Number " & Err.Number
Resume Exit_PhEmDate_Enter
End Sub