En el error Err_Handler indicado
CNN dévil como ADODB.Connection
blnInTrans déviles como boleanos
blnInTrans = falso 'no en una transacción en fecha todavía
CNN = CurrentProject.Connection
'…
cnn.BeginTrans ()
los blnInTrans = ahora verdad 'en el principio de una transacción
'Hacer su cancelación aquí
'Hacer su parte movible aquí
cnn.CommitTrans ()
los blnInTrans = las ' transacciones falsas terminaron sin error
'…
Exit_Handler:
Salir el submarino
Err_Handler:
Si blnInTrans entonces 'en el medio de una transacción
datos del restablecimiento de cnn.RollbackTrans () 'al estado de la pre-Transacción
'Esto restaurará los datos suprimidos por su pregunta de la CANCELACIÓN
Terminar si
'error adicional que procesa aquí
Curriculum vitae Exit_Handler
|