Tony2021
Apr 17, 2022Steel Contributor
AfterUpdate and If statement
Hello Experts,
I need a msgbox to appear if the date I enter [FundingDate] equals any of the values in qryHolidays.Date. I get an Object Required error. I am not sure where the error is?
thank you
Private Sub FundingDate_AfterUpdate()
If Me.FundingDate = qryHolidays.Date Then
MsgBox "Holiday", vbInformation
Else
End If
End Sub
- you can use DLookup:
If DCount("1", "qryHolidays", "Date = " & Format$(Me.FundingDate, "\#mm\/dd\/yyyy\#")) <> 0 Then
MsgBox "Holiday", vbInformation
End If