[AccessD] Code help please

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




More information about the AccessD mailing list