>

>*** Keypress event
>LPARAMETERS nKeyCode, nShiftAltCtrl
>
>If inlist( nKeyCode, 9, 13, 15 ) and empty( This.Value ) and !empty(left( This.Text, 2 ))
>	MessageBox( 'You are entering an invalid date', 16, ' MyApplication' )
>	This.Value = {}
>	NoDefault
>endif
>

>
>HTH

Thanks, Herman. Judging by the code only (I'm running data update now, so can not test), I believe, this code doesn't cover all invalid cases. What if the user enters only month portion of the date and leaves date portion empty?