Access VBAの「クエリ・パラメータ地獄」を終わらせる：型自動判別ジェネリック・エンジンの設計
多くのAccess開発者が陥る「記述の罠」がある。`QueryDef`を動的に操作する際、わざわざパラメータごとに`.Parameters(“…”) = Value`と書き連ね、さらに日付や数値の型変換に頭を悩ませるあの冗長なコードだ。
「面倒だから」と`CurrentDb.Execute “DELETE FROM … WHERE ID = ” & Me.txtID`のような、SQL文字列への直接埋め込みを行ってはいないか？ それはSQLインジェクションのリスクを招くだけでなく、型変換エラーの温床だ。
今日は、DAOの`QueryDef`を真に制御下に置き、型変換を完全に自動化する「ジェネリック・パラメータ・エンジン」の設計思想を授ける。
—
1. なぜ「型変換の自動化」が必要なのか
DAOの`Parameter`オブジェクトは、適切に型が指定されていないと、Accessのデータベースエンジン（ACE）が実行時に暗黙の型変換を試みる。これが、「クエリが遅い」「日付形式が狂う」「Nullで落ちる」といった、デバッグの難しい不具合の元凶となる。
本来、開発者が記述すべきは「どの値に、どのデータをセットするか」というロジックのみであり、その裏側にある`DAO.DataTypeEnum`の指定は、コードの可読性を下げるノイズでしかない。
—
2. 堅牢な実装：`SetParameters`エンジンの全貌
以下は、引数として渡された`ParamArray`（可変長引数）を解析し、値の型から自動的に`QueryDef`のパラメータを注入するクラスモジュール的アプローチのコアコードだ。
‘ — クエリ実行を劇的に効率化するパラメータ注入関数 —
Public Sub ApplyParameters(ByRef qdf As DAO.QueryDef, ParamArray params() As Variant)
Dim i As Integer
Dim pName As String
Dim pValue As Variant
‘ 可変長引数は「名前, 値」のペアで受け取る設計とする
‘ 例: ApplyParameters qdf, “pID”, 100, “pDate”, Date, “pName”, “田中”
For i = LBound(params) To UBound(params) Step 2
pName = params(i)
pValue = params(i + 1)
‘ パラメータが存在するか確認（存在しないキーを弾く堅牢性）
If IsParameterExists(qdf, pName) Then
‘ Null判定：Nullの場合は型を問わずそのまま注入
If IsNull(pValue) Then
qdf.Parameters(pName) = Null
Else
‘ 型に応じた値をセット（DAOが型を推論するが、明示的なキャストも可能）
qdf.Parameters(pName) = pValue
End If
End If
Next i
End Sub
‘ パラメータの存在チェック（これがないと実行時に例外が発生し保守性が下がる）
Private Function IsParameterExists(qdf As DAO.QueryDef, paramName As String) As Boolean
Dim p As DAO.Parameter
On Error Resume Next
Set p = qdf.Parameters(paramName)
IsParameterExists = (Err.Number = 0)
On Error GoTo 0
End Function
—
3. 実践：現場での使いこなし方
この設計の美しさは、呼び出し側のコードが驚くほどクリーンになる点にある。
Public Sub ExecuteReportQuery()
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Set db = CurrentDb
Set qdf = db.QueryDefs(“qry_MainReport”)
‘ ジェネリック関数の恩恵：型を気にせず、構造化して渡すだけ
ApplyParameters qdf, _
“pStartDate”, Me.txtStart.Value, _
“pEndDate”, Me.txtEnd.Value, _
“pCategory”, Me.cmbCategory.Value
‘ 実行
qdf.Execute dbFailOnError
Set qdf = Nothing
Set db = Nothing
End Sub
この設計の重要なポイント
1. エラーハンドリングの隔離: `IsParameterExists`により、SQL側の変更をコードに反映し忘れても、無意味な実行時エラーでクラッシュするのを防ぐ。
2. Nullの透過的処理: データベース開発において「Nullをどう扱うか」は最大の関門だ。この関数は`Null`を型変換の例外から保護する。
3. 保守性の向上: SQLに変更があっても、VBA側のコードを修正する必要がない（パラメータ名さえ合致していれば良い）。
—
4. チーフアーキテクトからの助言
Access開発において「コードを短くすること」と「コードを疎結合にすること」は同義ではない。私が今回提示したジェネリック関数は、「DAOというレガシーな枠組みの上で、いかに現代的なインターフェースを実現するか」という問いに対する一つの回答だ。
もし大規模なシステムを構築しているなら、この`ApplyParameters`をクラス化し、`QueryDef`のラッパーとして`Execute`メソッドまで内包させることを推奨する。そうすれば、`qdf`の開放忘れやエラー処理の漏れを、クラスのライフサイクル管理によって一掃できる。
「動けばいい」という段階を卒業せよ。「どう書けば、次に来る担当者が苦しまないか」。それを突き詰めた先にこそ、プロフェッショナルのコードが存在する。
