What kind of error?

>Larry,
>
>Sometimes the valid event will cause an error so I still use the lostfocus event.
>

>CASE (CTOD(THIS.VALUE) > DATE())
>	MESSAGEBOX("Error in Date: Greater than current date.",16)
>     THIS.SetFocus
>     nodefault
>endcase
>