Put this in the valid:
TRY
LOCAL ldDate
ldDate = DATE(YEAR(This.Value), MONTH(This.Value), DAY(This.Value))
CATCH
MESSAGEBOX("Invalid Date")
ENDTRY
>Thanks Craig,
>
>that stops the message displaying, but how do I trap for an invalid date and display my own message?
Craig Berntson
MCSD, Microsoft .Net MVP, Grape City Community Influencer