Steve Schapel
miscellany at mvps.org
Sun Jul 1 23:07:09 CDT 2007
> As far as I know, this is not possible.
... unless you mean like this:
Dim DataMissing As String
If Me.job_title <> "admin" Then
If IsNull(Me.Issueing_agency) Then
DataMissing = "Issuing Agency, "
End If
If IsNull(Me.Licenseexp) Then
DataMissing = DataMissing & "Licence Exp, "
End If
If IsNull(Me.dotExpdate) Then
DataMissing = DataMissing & "Dot Exp Date, "
End If
If Len(DataMissing) Then
DataMissing = Left(DataMissing, Len(DataMissing) - 2)
MsgBox "Data entry required in " & DataMissing & "."
End If
End If
Maybe a more elegant way of coding this, but just throwing the idea in
the ring. :-)
Regards
Steve