Access VBAの「魂」を掌握せよ：RecordsetのEdit/Updateとトランザクションの極意
こんにちは。現場で泥臭いシステム改修から、大規模な基幹システムの設計までを手がけてきたエンジニアです。
Access VBAを触り始めると、誰もが一度は「`.Edit`して`.Update`する」という定型処理に出会いますよね。でも、少し規模の大きなデータを扱ったり、マルチユーザー環境で運用したりした途端、「なぜか処理が遅い」「データが壊れた」「ロックエラーで止まる」という壁にぶつかるはずです。
今日は、そんな「マクロの記録」を卒業しようとしている皆さんに、Accessの心臓部である「Recordset」と「トランザクション」を支配するための、プロの視点をお伝えします。
—
1. そもそもなぜ `.Edit` / `.Update` なのか？
VBAでデータを操作する際、SQL（`INSERT`や`UPDATE`文）を使うべきか、Recordsetを使うべきか悩むところです。
- SQL: 大量のデータを一括処理するのに向いている（高速）。
- Recordset: 1件ずつ判定しながら複雑なロジックを挟みたい時に向いている（柔軟）。
Recordsetを使うとき、私たちは「バッファ（作業机）」を確保し、そこにデータを載せてから書き換えるという手順を踏みます。
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset(“T_売上明細”, dbOpenDynaset)
rs.FindFirst “ID = 101”
If Not rs.NoMatch Then
rs.Edit ‘ 編集モード開始（机に書類を広げる）
rs!金額 = rs!金額 1.1 ‘ データを加工
rs.Update ‘ 確定保存（机の書類を元の場所にしまう）
End If
rs.Close
Set rs = Nothing
ここでのポイントは、`.Edit` から `.Update` までの間、そのレコードは「排他ロック」（他の人が触れない状態）がかかっているということです。ここを理解せずにコードを書くと、システムは一瞬でボトルネックに陥ります。
—
2. トランザクション：一括処理の「安全ベルト」
「トランザクション」とは、簡単に言えば「処理のひとまとめ（一貫性）」のことです。
例えば、「在庫を減らす」処理と「売上を記録する」処理。もし途中でエラーが起きて在庫だけ減って売上が記録されなかったら？大惨事ですよね。これを防ぐのがトランザクションです。
トランザクションの適切なスコープ（範囲）
初心者がやりがちなミスは、「ループの中で毎回トランザクションを張る」こと。これは非常に低速です。トランザクションは「一連の処理全体」を囲むのが鉄則です。
Sub UpdateStockAndSales()
Dim db As DAO.Database
Set db = CurrentDb
‘ トランザクション開始
db.BeginTrans
On Error GoTo ErrorHandler
‘ ここで複数のRecordset操作や更新を行う
‘ …
‘ 全て成功したら確定（コミット）
db.CommitTrans
Exit Sub
ErrorHandler:
‘ 何か一つでも失敗したら、ここまでの操作を全て取り消す（ロールバック）
db.Rollback
MsgBox “エラー発生！変更は全てキャンセルされました。”
End Sub
—
3. なぜ「スコープ」を意識する必要があるのか？
トランザクションの範囲を広げすぎると、今度は「ロックの競合」が発生しやすくなります。
- 狭すぎるスコープ: データの整合性が保てないリスクがある。
- 広すぎるスコープ: データベースを長時間占有してしまい、他のユーザーが何もできなくなる。
プロのエンジニアは、「最小限の範囲で、かつ論理的なひとまとまり」になるようにトランザクションを設計します。これができるようになると、Access VBAのコードが一段と「プロの仕事」に変わります。
—
4. 今日から使える「鉄の掟」
これから実装する際は、以下のルールを意識してみてください。
1. EditとUpdateの距離は最短に:
`.Edit` を書いたら、すぐに値を代入して `.Update` する。間に重い処理（外部API呼び出しや複雑な計算）を挟んではいけません。
2. `On Error GoTo` は必須:
トランザクションを使うなら、`Rollback` はセットで記述してください。これがないと、エラー発生時に中途半端なデータが残り続け、DBが壊れる原因になります。
3. `CurrentDb` を変数に入れる:
`CurrentDb` は呼ぶたびに新しいオブジェクトを生成するコストがかかります。必ず `Dim db As DAO.Database` として変数に格納して使い回しましょう。
—
最後に
Access VBAは、古臭い言語ではありません。データベースの構造と、メモリ・ロックの仕組みを理解している人間にとっては、これほどまでに素早くビジネスロジックを実装できる「最強の武器」です。
今日お話ししたトランザクションの考え方は、Accessだけでなく、Web開発やクラウドのDB設計にも通じる普遍的な技術です。まずは手元のコードで `BeginTrans` と `Rollback` を試してみてください。
「コードを書く」のではなく、「データの流れを制御する」意識を持つ。それが、伝説のアーキテクトへの第一歩です。頑張ってください！
