「Accessでトランザクションを利用するには(DAO)」
Accessでトランザクションを利用する方法は?
回答
WorkspaceオブジェクトのBeginTransメソッドを使います。
ソース
Dim rs As Recordset, ws As Workspace, db As Database
Set ws = DBEngine.Workspaces(0)
Set db = CurrentDB()
Set rs = db.OpenRecordset("社員", DB_OPEN_TABLE)
ws.BeginTrans 'トランザクションの開始
rs.AddNew '新規レコードの挿入開始
rs.fields(0)='0102'
rs.update
If MsgBox("更新しますか ?", MB_ICONQUESTION + YES_NO, "更新確認") = YES Then
ws.CommitTrans 'コミットします。
Else
ws.Rollback '元に戻します。
End If
rs.Close ' テーブルを閉じます。