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