No erro Err_Handler empreendedores
CNN não ofuscante como ADODB.Connection
blnInTrans não ofuscantes como bôoleanos
blnInTrans = falso 'não em uma transação até à data de ainda
CNN = CurrentProject.Connection
'…
cnn.BeginTrans ()
os blnInTrans = retificam 'agora no começo de uma transação
'Fazer sua supressão aqui
'Fazer sua inserção aqui
cnn.CommitTrans ()
os blnInTrans = ' transações falsas terminaram sem erro
'…
Exit_Handler:
Retirar o submarino
Err_Handler:
Se blnInTrans então 'no meio de uma transação
dados da restauração de cnn.RollbackTrans () 'ao estado da pre-Transação
'Isto restaurará os dados suprimidos por sua pergunta da SUPRESSÃO
Terminar se
'erro mais adicional que processa aqui
Resumo Exit_Handler
|