Here's the current code:

S

Steve

Private Sub OTDate_BeforeUpdate(Cancel As Integer)
DoCmd.SetWarnings False
If (Me.OTDate > (Date + 7)) Or (Me.OTDate < (Date - 7))
Then
MsgBox "Invalid Date - Try Again!", vbOKOnly
Cancel = True
End If
DoCmd.SetWarnings True
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Closing PDF file from Excel VBA (Adobe Reader, Adobe Acrobat, Browser) 0
Making a macro only work on certain files 2
Word macro that can call cells out of Excel for a find and replace 0
Countdown macro - display settings 2
VBA - exporting serial letters to single documents 0
Not in List Event 4
Prompt For Replace in Selection And More... 0
Match style 0

Top