Code:
Dim varIncompleteProject As Variant varIncompleteProject = DLookup("[AppID]", "tblAppointment", _ "[ConsultNumber]= " & Me.ConsultNumber & _ "' And IsNull[CompletedDate]") If Not IsNull(varIncompleteProject) Then MsgBox "Appointment " & varIncompleteProject
Leave a comment: