Make use of the following:


ErrorOccurred = .F.

On Error do ErrorHandler with ErrorOccurred

Begin Transaction

&& update the tables

If not ErrorOccurred
End Transaction
Endif




procedure ErrorHandler
parameters Error
&& display your error message here...
RollBack
Return