【MS ACCESS】VBAでDAOを用いたトランザクション

メモとして残します。

■やり方

Sub InitLocalData()
On Error GoTo ErrorHandler
    Dim wrkCurrent As DAO.Workspace
    Set wrkCurrent = DBEngine.Workspaces(0)
    wrkCurrent.BeginTrans'ビギン
    'トランザクション処理（dao関係）

    wrkCurrent.CommitTrans'コミット
    Exit Sub
ErrorHandler:
   wrkCurrent.Rollback'ロールバック
End Sub

■さいごに

あくまでDAO関係のトランザクションなのでADOはおそらく別のはずです。
あと、風のうわさで聞いたのですが、トランザクション処理にMysqlやsqlserverといった特殊なリンクテーブルを参照する場合は、うまくいかないことがあるみたいなので、この方法でのトランザクションはやめたほうが良いでしょう。