Hi!

MessageBox from a Valid event cause firing of Valid event again. This is because, on the Windows level, it cause deactivating of the main window (and control) and activating of the MessageBox window that is equivalent to losing focus. This cause a lot of Windows events fired for VFP form and as a result - additional call of the Valid event. this additional call is related to the return 0 in the event. Probably you need to restructure code as already suggested by Al Doman.


>Hi Everyone,
>
>Can someone please tell me why in the code below the MessageBox gets caught in a continuous loop. This code is being called in the Valid event of a TextBox. Surely, I'm missing something.
>******************
>local lnanswer
>
>If Empty(This.value)
> lnanswer=messagebox("First Name field cannot be blank",1,"Text Entry Error.")
>Endif
>
>If lnanswer = 2 && If the Cancel button is clicked back out of the record.
> Tablerevert()
> Thisform.flipenable
> Thisform.Refresh
>
>Endif
>
>Return 0
>******************