Mam's WebSite
建築CGパース住宅CGパース

Mamの覚書Q&A検索

トップページMamの覚書Q&A検索Access(VBA)⇒Q&A


大項目:「 Access 」 - 中項目:「 VBA 」

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


Mam's WebSite