AfterUpdate and If statement

Super Contributor

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

End If

End Sub




2 Replies
best response confirmed by Tony2021 (Super Contributor)
you can use DLookup:

If DCount("1", "qryHolidays", "Date = " & Format$(Me.FundingDate, "\#mm\/dd\/yyyy\#")) <> 0 Then
MsgBox "Holiday", vbInformation
End If
Perfect! thank you Arnel. Happy holidays..