トップへ(mam-mam.net/)

Accessでトランザクションを利用するには(DAO)

検索:

「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  ' テーブルを閉じます。