check date from textbox

[Macklin]

I am trying to make sure the date entered in the userform textbox is not greater than today. This doesn't seem to work no matter what date I enter. I have other IF/THEN statements that compare other textboxes and to see if they are blank and those work fine. Not having any luck checking it compared to the current day. Any help is appreciated.

If Me.Textdoa.Value > Date Then
MsgBox ("Date of Arrival is not valid")
Exit Sub
End If

Thanks

 

[AlphaFrog]

You need to convert the text-date from the textbox into a serial date to make the comparison.

If [COLOR="Red"]DateValue([/COLOR]Me.Textdoa.Value[COLOR="Red"])[/COLOR] > Date Then
MsgBox ("Date of Arrival is not valid")
Exit Sub
End If

 

[Macklin]

worked great, thank you