Put this code in the valid() method. And RETURN 0 from the valid method to prevent focus from moving. Do you want the text box to have a date datatype, rather than a string?
>Ok...I'm doing something stupid:
>
>I want to do some error checking on a date field in a form.
>In the "LostFocus event, I put the following code:
>
>
>DO CASE
>
>CASE (CTOD(THIS.VALUE) > DATE())
> MESSAGEBOX("Error in Date: Greater than current date.",16)
>THIS.SetFocus
> >
>CASE(CTOD(THIS.VALUE) < DATE()-60)
> MESSAGEBOX("Error in Date: More than 60 days before today.")
>THIS.SetFocus
> >ENDCASE
>
>
>When I run this, the cursor still goes to the next object one the form. Looking at the Event Tracking in the Debug Output, I show that the text box looses focus, the messagebox displays, the text box gets focus (presumably from my This.setfocus, and then immediately moves to the next object. So, why is this happening? -- L
Steve Gibson