Op Fout GoTo Err_Handler
Schemerige cnn als ADODB.Connection
Schemerige blnInTrans zoals Van Boole
blnInTrans = Vals 'niet in een Transactie vanaf nog
cnn = CurrentProject.Connection
'…
cnn.BeginTrans ()
blnInTrans = Waar 'nu in het begin van een Transactie
'Doe hier uw schrapping
'Doe hier uw tussenvoegsel
cnn.CommitTrans ()
blnInTrans = Valse die 'Transacties zonder Fout worden voltooid
'…
Exit_Handler:
Sub van de uitgang
Err_Handler:
Als blnInTrans toen 'in het midden van een Transactie
cnn.RollbackTrans () 'herstel gegevens aan pre-transactiestaat
'Die dit zal de gegevens herstellen door uw vraag van de SCHRAPPING worden geschrapt
Beëindig als
de 'verdere verwerking van de Fout hier
Hervat Exit_Handler
|