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?