На ошибке переход Err_Handler
Тусклый cnn как ADODB.Connection
Тусклые blnInTrans как булевско
blnInTrans = ложно 'не в трудыах от пока
cnn = CurrentProject.Connection
'…
cnn.BeginTrans ()
blnInTrans = True 'теперь в начале трудыов
'Сделайте ваш delete здесь
'Сделайте вашу вставку здесь
cnn.CommitTrans ()
blnInTrans = ложные 'трудыы завершили без ошибки
'…
Exit_Handler:
Выходите подводная лодка
Err_Handler:
Если blnInTrans после этого 'посреди трудыов
данные по восстановления cnn.RollbackTrans () 'к положению pre-Трудыов
'Это восстановит данные уничтоженные вашим вопросом DELETE
Закончитесь если
'более дальнеишая ошибка обрабатывая здесь
Резюме Exit_Handler
|