Sull'errore Err_Handler di avanzamento
CNN fioco come ADODB.Connection
blnInTrans fiochi come booleani
blnInTrans = falso 'non in una transazione a partire da ancora
CNN = CurrentProject.Connection
'…
cnn.BeginTrans ()
i blnInTrans = ora allineano 'nell'inizio di una transazione
'Fare la vostra cancellazione qui
'Fare il vostro inserto qui
cnn.CommitTrans ()
i blnInTrans = ' transazioni false hanno completato senza errore
'…
Exit_Handler:
Uscire il sommergibile
Err_Handler:
Se blnInTrans allora 'in mezzo a una transazione
dati di restauro di cnn.RollbackTrans () 'alla condizione di pre-Transazione
'Questo ristabilirà i dati cancellati dalla vostra domanda di CANCELLAZIONE
Concluder se
'ulteriore errore che proceda qui
Riassunto Exit_Handler
|