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
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement