>Privet Edward.
>Thanks for your reply.
>
>FOR EXAMPLE...
>
>FORM1.COMMAND.CLICK
>line1. replace table.field1 with "1"
>line2. it is line with error
>line3. replace table.field2 WITH "2"
>
>In the line 2 there is an error. The function the error handler "ONERROR" is called.
>
>PROCEDURE ONERROR
>LPARAM ....
>
>FOR i=_screen.formcount to 1 step -1
>....
> _screen.forms(i).RELEASE
>ENDFOR
>
>After that we come back on line3 (REPLACE) of an example and we receive an error... (Show open table dialog window)
>How to make so that a method did not proceed after _screen.forms(i).release ()
>Denis.
Privet,
cError=on("error")
on error lErrorflag=.t.
on error &cError.
if lErrorflag=.t.
=messagebox("all forms will be released")
return
endif
You may reset flag in error routine too
Edward Pikman
Independent Consultant