こんにちは！Access VBAでの開発、日々の試行錯誤お疲れ様です。
マクロの記録から一歩踏み出し、フォームやレポート、そしてVBAを使った本格的なシステム構築の世界へようこそ。プログラミングの基礎を覚えると、「あれも自動化したい、これも効率化したい」と夢が広がりますよね。
さて、今回はAccess VBA中級者から上級者への必須ステップ、「DAO接続のメモリ効率とパフォーマンスを極限まで高める設計パターン」についてお話しします。
「何度も`CurrentDb`を書いているのに、なぜか処理が重い…」
「大量のデータをループ処理すると、だんだん動作がカクついてくる…」
そんなモヤモヤを感じたことはありませんか？
ここをクリアすれば、あなたの書くAccess VBAは見違えるほど軽快で、プロフェッショナルな品質に生まれ変わります。優しく丁寧に解説していきますので、ぜひ一緒に本質をマスターしましょう！
—
1. なぜ `CurrentDb` の多用はパフォーマンスを殺すのか？
AccessでVBAからデータベース（テーブルやクエリ）を操作するとき、必ずと言っていいほどお世話になるのが `CurrentDb` という関数（オブジェクト）です。
例えば、こんなコードを書いたことはありませんか？
‘ 【よくあるアンチパターン】
Sub UpdateUserData()
‘ ユーザーのステータスを更新する処理だとします
CurrentDb.Execute “UPDATE T_Users SET Status = ‘Active’ WHERE ID = 1”, dbFailOnError
CurrentDb.Execute “UPDATE T_Users SET Status = ‘Active’ WHERE ID = 2”, dbFailOnError
CurrentDb.Execute “UPDATE T_Users SET Status = ‘Active’ WHERE ID = 3”, dbFailOnError
‘ （これが何十行も続く…）
End Sub
一見、何の問題もなさそうに見えますよね。しかし、ここにはAccessの裏側の仕組みを知る者にとっては「ヒヤッとする」落とし穴が隠されています。
`CurrentDb` の正体：呼び出すたびに「新規コネクション」が生まれている
実は、`CurrentDb` というメソッドは、呼び出されるたびに「現在開いているデータベースへの参照（DAO.Databaseオブジェクト）を新しくメモリ上に生成して返す」という重い処理を行っています。
- 1回呼ぶ：データベースへの接続を作り、メモリを割り当てる。
- すぐ次の行で呼ぶ：さっき作った接続とは別に、もう一つ新しい接続を作り、メモリを割り当てる。
これをループの中や、プロシージャのあちこちで何回も実行するとどうなるでしょう？
メモリの無駄遣い（メモリリークの温床）になるだけでなく、OSやAccessのエンジンに対して無駄な負荷をかけ続け、処理スピードがガクッと落ちてしまいます。これが「AccessのVBAは遅い」と言われてしまう本当の理由の一つです。
—
2. 解決策：モジュールレベル変数による「キャッシュ設計」
この問題を一発で解決するのが、「`CurrentDb` の結果をモジュール変数にキャッシュ（保持）し、それを使い回す」という設計パターンです。
イメージとしては、毎回わざわざ遠くの倉庫（データベース）まで鍵を開けて新しい台車を借りに行くのではなく、「最初に一度だけ台車を借りてきて、手元に置いて何度も使う」というスマートなやり方です。
実装コードの全体像
それでは、実際のコードを見てみましょう。標準モジュールに以下のように記述します。
Option Compare Database
Option Explicit
‘ =====================================================================
‘ モジュールレベル変数（このモジュール内全体で共有されるキャッシュ）
‘ =====================================================================
Private m_db As DAO.Database
‘
‘
Private Function GetDB() As DAO.Database
‘ まだデータベースが変数に格納されていなければ、1度だけ取得する
If m_db Is Nothing Then
Set m_db = CurrentDb
End If
‘ キャッシュされたオブジェクトを返す
Set GetDB = m_db
End Function
‘ =====================================================================
‘ 実践的なデータ処理プロシージャ
‘ =====================================================================
Sub ProcessDataEfficiently()
Dim strSQL As String
On Error GoTo ErrorHandler
‘ 処理開始のログなど
Debug.Print “処理を開始します…”
‘ 何度呼んでも、内部で新しくCurrentDbは作られず、キャッシュが使い回される！
strSQL = “UPDATE T_Users SET Status = ‘Active’ WHERE Category = ‘A'”
GetDB.Execute strSQL, dbFailOnError
strSQL = “UPDATE T_Users SET Status = ‘Pending’ WHERE Category = ‘B'”
GetDB.Execute strSQL, dbFailOnError
MsgBox “処理が正常に完了しました！”, vbInformation
CleanUp:
‘ 【重要】モジュールレベル変数の解放は、プログラムの終了時や
‘ 明示的なクリーンアップ処理で行うのがプロの作法です。
Set m_db = Nothing
Exit Sub
ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical
Resume CleanUp
End Sub
—
3. コードの解説：ここがエンジニアのこだわりポイント！
上のコードには、Access VBAを安定稼働させるための重要なテクニックが詰まっています。ポイントを3つに分けて解説しますね。
① `Private m_db As DAO.Database` による保持
モジュールの一番上（`Option Explicit` のすぐ下など）で変数を宣言することで、このモジュールがメモリ上に存在している間、変数 `m_db` は値を保持し続けます。
② 「遅延初期化（Lazy Initialization）」の仕組み
`GetDB` というプライベート関数を作っています。
If m_db Is Nothing Then
Set m_db = CurrentDb
End If
このコードは、「もし変数の中身が空（Nothing）だったら `CurrentDb` で取得してセットし、すでに入っていれば何もしない」という動きをします。これにより、最初に必要になったタイミングでのみ接続が走るため、無駄がありません。
③ 適切なクリーンアップ (`Set m_db = Nothing`)
オブジェクト変数は、使い終わったらメモリから解放してあげるのがマナーです。プロシージャの最後（`CleanUp` ラベル）で `Set m_db = Nothing` を実行し、Accessにメモリを綺麗に返却します。
—
4. 陥りやすい罠と注意点
このキャッシュパターンを使う上で、初学者が陥りがちな注意点をいくつかお伝えしておきます。ここを知っていればもう完璧です！
- フォームのモジュールと標準モジュールの違い
今回のキャッシュ手法は、基本的に「標準モジュール」（VBEの「挿入」＞「標準モジュール」で追加するもの）で使うのが最も効果的かつ安全です。フォームのコードモジュールは、フォームを閉じると変数も破棄されるためライフサイクルに注意が必要です。
- トランザクション処理との組み合わせ
複数のテーブルを同時に更新し、「途中でエラーが起きたらすべてなかったことにする（ロールバック）」というトランザクション処理を行う場合も、この `GetDB`（キャッシュされたDAO.Database）をベースに `DBEngine.BeginTrans` などを組み立てると非常にスムーズに記述できます。
—
まとめ：ここをクリアすれば、Access VBAの基本はバッチリですよ！
今回は、`Application.CurrentDb` をキャッシュしてDAO接続のメモリ効率を最大化する設計パターンについて解説しました。
- `CurrentDb` は呼び出すたびに新しい接続を作るため、多用すると重くなる。
- モジュールレベルの変数に保持（キャッシュ）し、関数経由で使い回すのがスマート。
- メモリの管理（解放）まで意識することで、大規模なデータ処理にも耐える強靭なシステムが作れる。
「動くだけのコード」から、「美しく、パフォーマンスの高いコード」へ。この設計パターンを自分の引き出しに加えたあなたは、もう立派なVBAエンジニアの一歩を踏み出しています。
ぜひ、日々のAccess開発に取り入れて、そのサクサク動く心地よさを実感してみてくださいね。あなたの開発ライフを、これからも応援しています！
