AccessVBAにてコードを作成する際に、
下記トランザクション処理のコードを書くとデータ喪失予防になると
聞きました。(エラーが起きたときには、処理前に戻ると。)
この処理は、delete~insertのような処理でないと有効にならないのでしょうか?どんな処理でも有効ですか?
Dim Wrk As workspace
Dim blnFlag As Boolean
Set Wrk = DBEngine.Workspaces(0)
Wrk.BeginTrans
blnFlag = True
*****************************
delete
~insert
(update)
*****************************
Wrk.CommitTrans
blnFlag = False
Set Wrk = Nothing
Err:
If blnFlag = True Then
Wrk.Rollback
End If