Message Box

[AccessHelp]

Hello,

How do I display a message box that displays automatically a specific message 4 days before the actual date an event is scheduled?

Thanks

 

[Mudface]

You could use the form's Current event (this occurs when you change records), then reference the field in question and if the date is within four days of now then show your message. This isn't tested, but should give you a start, I've called the field EventDate, change as necessary-

Private Sub Form_Current()

If Date - Me!EventDate.Value <= 4 Then
MsgBox "Your Message"
End If

End Sub

If you want it specifically to be 4 days before the event, then remove the less than chevron in the code.