Date Specifc message box

[joshhud]

Hi All, I have an access database with a front end. I want to create a message box to appear on certain dates when the front end is loaded. Is this possible?

[NTC]

Yes that is possible. It is custom of course. I would suggest a Message table that contains a date field and a message field. You would populate that.

Make a query that will find today's Date/Message so it returns only 1 record; the criteria is: Date() - save and name that query: MessageTodayQ You can run this query stand alone to test it.

Then in the OnOpen event of your form; have a DLookUp function as the source for an unbound text box: =DLookUp("MessageFieldName","MessageTodayQ")

[joshhud]

Could i not do something along the lines of

If format(now(), "MM/DD/YYYY") = "07/13/2016"
then MsgBox "DO something important"

I feel like i should be able to, but its not working.

[joshhud]

K.I.S.S.

Private Sub Form_Open(Cancel As Integer)
If date = "7/13/2016" Then
MsgBox "Say Something"
End If
End Sub

Looks like this worked!