>Hi Everybody,
>
>When the program enters a routine, I want to save the default procedure or whatever for the:

ON ERROR

Then, when it returns from the routine, I would like to set

ON ERROR

to its default value before entering that routine.
>Notice: the default is a procedure(which I don't know the name), which is not the VFP default error handler.
>
>Thank You,
>Ali

Ali,

&& save on error
local sError
sError = on('error')

&& your stuff
Private HadError
HadError = .f.
on error HadError = .t.

&& do something
do
case
case HadError
   && something went wrong

endcase

&& reset to original value
on error &sError