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