Access VBAの「魔の罠」：QueryDefにフォームを直接バインドしてはいけない理由
こんにちは。現場で泥臭いトラブルシューティングを何年も重ねてきたエンジニアです。
Accessを使っていて、「フォームのボタンを押したら、その画面の入力値でクエリを絞り込みたい」という場面、必ずありますよね。その時、多くの初学者がやってしまうのが、SQLの中に直接 `Forms!フォーム名!コントロール名` を書き込む手法です。
実はこれ、Access開発における「地雷」の第一歩なんです。今日は、なぜこれが危険なのか、そしてプロはどうやってこの問題をスマートに解決しているのか、その「極意」を伝授します。
—
1. なぜ「直接バインド」が危険なのか？
SQLの中に `Forms!Name!Control` と書くと、Accessのエンジンは「このクエリを実行するたびに、指定されたフォームが今開いているか？」「その値は正しい型か？」をその都度チェックしに行きます。
これがなぜマズいのか、理由は3つあります。
- 密結合の呪い： クエリ定義が特定のフォームに依存してしまい、他の画面や別のモジュールからそのクエリを再利用しようとするとエラーが爆発します。
- デバッグの迷宮： 構文エラーが出たとき、SQL文字列自体が動的に解釈されるため、どこで値が化けたのか追跡が困難になります。
- パフォーマンスの劣化： 複雑なクエリになるほど、Accessの最適化エンジンが「この値は実行時にしか分からない」と判断し、実行計画のキャッシュが効きにくくなります。
—
2. プロの流儀：変数経由の「パラメータ渡し」
ではどうするか？ 答えはシンプルです。「SQLは汎用的に保ち、値は後から流し込む」。これがQueryDef（クエリ定義）を扱う際の黄金律です。
良い例：QueryDefを動的に操作するコード
以下のコードを参考にしてください。ここでは、フォームの値を一度変数に格納し、それをパラメータとして安全に引き渡します。
Public Sub RunDynamicQuery()
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim strSQL As String
Dim myParamValue As String
‘ 1. まずはフォームの値を安全な変数に退避させる
‘ これにより、クエリ実行中にフォームが閉じられてもエラーになりにくい
myParamValue = Forms!frmSearch!txtKeywords.Value
Set db = CurrentDb
‘ 2. クエリ定義を取得（既存のクエリ「qry_BaseSearch」を読み込む）
Set qdf = db.QueryDefs(“qry_BaseSearch”)
‘ 3. パラメータに値をセット
‘ ポイント：SQLを書き換えるのではなく、Parametersコレクションを使う
qdf.Parameters(“[p_SearchKeyword]”) = myParamValue
‘ 4. 実行（あるいはレコードセットとして開く）
‘ 今回はレコードセットを開く例
Dim rs As DAO.Recordset
Set rs = qdf.OpenRecordset(dbOpenDynaset)
‘ — ここでデータを処理 —
‘ 後片付け
rs.Close
Set rs = Nothing
Set qdf = Nothing
Set db = Nothing
End Sub
—
3. この書き方の「ここが凄い！」
このコードの何がそんなに優れているのか、ポイントを整理します。
1. SQLの中身を汚さない：
SQL文字列は `WHERE フィールド名 = [p_SearchKeyword]` とだけ書いておけばOKです。SQL自体は「何が条件か」を知っているだけで、「その値がどこから来るか」を知る必要はありません。
2. 型の安全性が高い：
`Parameters` を使うことで、Accessが自動的に値の型チェックを行ってくれます。SQL文を文字列結合（`”WHERE ID = ” & Me.txtID` のような書き方）すると、文字列連結ミスによるSQLインジェクションや型不一致のリスクがありますが、この方法なら安心です。
3. 再利用性の極致：
この `qry_BaseSearch` は、別のフォームから呼び出す時も、値をセットする部分を書き換えるだけで使い回せます。
—
最後に：エンジニアとして一歩先へ
「動けばいい」というコードと、「堅牢でメンテナンスしやすい」コードの差は、こうした「責務の分離」への意識にあります。
- フォームの役割： ユーザーから値を受け取る。
- 変数の役割： データを橋渡しする。
- QueryDefの役割： データを正しく抽出する。
これらを混ぜ合わせてはいけません。
今日紹介した「変数経由のパラメータ受け渡し」は、Access VBAをマスターするための登竜門です。これができるようになれば、あなたの作るシステムは、バグが減り、驚くほど保守が楽になるはずです。
ぜひ、今のプロジェクトのコードを見直してみてください。ここをクリアすれば、あなたはもう脱・初学者。自信を持って開発を楽しんでくださいね！
