Date field limited to previous dates

[janfolmer]

Hi There,

I was wondering, in a form (to add records in the Table) with a date field, can I limit that field to only previous dates. This will reduce errors in the table, no future dates anymore.

Thanks in advance,

 

[Crispy]

Something like this should give you a start - put this in the Before Update event of your date field (which I have imaginatively called DateField here):

Private Sub DateField_BeforeUpdate(Cancel As Integer)
If (Me!DateField > Now()) Then
MsgBox ("Date is in the future. Please enter a valid date")
Cancel = True
Me!DateField.Undo
End If

 

[Fear Naught]

You can also set a validation rule on the field in the table.

 

[janfolmer]

Thanks a lot, exactly what I was trying to find out!