Limit Max Value in Date Fields

[Karl Burrows]

I am trying to limit date entries in a form to prevent data entry errors. I
want to be able to allow up to today's date only and any value greater than
today will return an error. Too many people getting in a hurry and getting
dates in 2007, etc. Thanks!

 

[Ken Snell [MVP]]

You could use the BeforeUpdate event of the textbox to validate the date
entry to test that it's not greater than today:

Private Sub TextBoxName_BeforeUpdate(Cancel As Integer)
If Me.TextBoxName.Value > Date() Then
MsgBox "Invalid date!"
Cancel = True
End If
End Sub

 

[Karl Burrows]

Can I just create a Validation Rule in the field properties to say <Date()?

You could use the BeforeUpdate event of the textbox to validate the date
entry to test that it's not greater than today:

Private Sub TextBoxName_BeforeUpdate(Cancel As Integer)
If Me.TextBoxName.Value > Date() Then
MsgBox "Invalid date!"
Cancel = True
End If
End Sub

 

[Graham Mandeno]

Hi Karl

Yes, you can, but if you want to allow today's date also you will need <=