「そのSQL、本当に速いですか？」Access VBAでクエリを極めるための作法
こんにちは。現場で長年Accessと格闘していると、時折「なぜかクエリが遅い」「環境によって動いたり動かなかったりする」という相談を受けます。
その原因の多くは、実は「SQLの中に直接フォームの値を書き込んでしまっていること」にあります。
今回は、Access初級者を卒業し、一歩先の「プロのコード」を書くために避けて通れない、`QueryDef`におけるパラメータの正しい扱い方について解説します。
—
1. 誰もが通る「罠」：SQL直書きの何が問題か？
多くの人がやりがちなのが、クエリの抽出条件に直接こう書く手法です。
— ダメな例：抽出条件に直接指定
SELECT FROM T_売上 WHERE 担当者ID = [Forms]![F_メニュー]![txt担当者ID];
これ、一見便利ですよね。でも、ここには3つの大きなリスクが潜んでいます。
1. パフォーマンスの低下: AccessはSQLが実行されるたびに、この式を評価し直します。数万件のレコードを扱う場合、この「評価のコスト」がボディブローのように効いてきます。
2. 保守性の欠如: フォーム名やコントロール名を変更した瞬間、クエリは沈黙します。エラーメッセージも不親切で、原因特定に時間がかかります。
3. 再利用性の放棄: VBAからこのクエリを動的に変更して使おうとしたとき、SQLの中に埋め込まれたフォーム参照が干渉し、予期せぬ挙動を引き起こします。
—
2. 「明示的パラメータ」というプロの流儀
プロのエンジニアは、SQLに「変数の入れ物（プレースホルダー）」を用意し、そこに値を流し込むという手法を取ります。
比較図解：考え方の違い
- 素人（直書き）: 「SQL君、今の画面のあのボックスの値を見て勝手に判断して！」（依存度：高）
- プロ（パラメータ）: 「SQL君、ここに『ID』という空き箱を用意したよ。値は後でVBAが流し込むから、それを使って計算して！」（依存度：低・制御可能）
—
3. 実践：VBAで「QueryDef」をスマートに操る
では、実際にどう書くべきか。`QueryDef`オブジェクトを使用して、パラメータを明示的に指定する方法を見ていきましょう。
手順：クエリ定義の準備
まず、クエリのデザインビューで、抽出条件を以下のように設定します。
`[prm担当者ID]` （カッコ内に任意の名前を書くのがポイントです）
VBAコード例
このコードを標準モジュールなどに配置してください。
Public Sub ExecuteReportQuery()
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Set db = CurrentDb
‘ クエリ定義を取得
Set qdf = db.QueryDefs(“Q_売上集計”)
‘ パラメータに値を流し込む
‘ フォームの値を直接SQLに書くのではなく、ここで代入する
qdf.Parameters(“prm担当者ID”).Value = Forms!F_メニュー!txt担当者ID.Value
‘ クエリを実行（またはレコードセットを開く）
‘ ここで実行することで、最適化された状態でSQLが走ります
DoCmd.OpenQuery qdf.Name
‘ 後始末（オブジェクトの解放は基本中の基本です）
Set qdf = Nothing
Set db = Nothing
End Sub
—
4. なぜこの書き方が「最強」なのか？
このコードの何が素晴らしいかというと、「SQLとインターフェース（フォーム）の分離」ができている点です。
- 高速化: パラメータを明示することで、Accessのクエリオプティマイザ（実行計画を作る頭脳）が事前に型を推論でき、処理が安定して高速になります。
- 型安全性: `Value`プロパティに値を代入する際、VBA側でデータ型を変換（`CLng()`など）して渡すことができます。「文字列のはずが数値だった」といった予期せぬバグを未然に防げるのです。
- デバッグの容易さ: SQLの構造をいじらずに、渡すパラメータだけをイミディエイトウィンドウで確認できるため、トラブルシューティングのスピードが段違いです。
—
最後に：先輩からのアドバイス
「動けばいい」というコードを書いているうちは、Accessはただの便利な箱です。しかし、今日紹介したような「オブジェクトを適切に制御する」という意識を持つだけで、Accessはあなたにとって「強力な開発プラットフォーム」に変わります。
最初は少し面倒に感じるかもしれません。しかし、大規模なシステムになればなるほど、この「丁寧な仕込み」が、深夜のトラブル対応をゼロにするための最強の防壁になります。
ここをクリアすれば、あなたはもう脱・初級者。自信を持って、より良いシステムを作っていきましょう！
また何か詰まったら、いつでも聞きに来てくださいね。応援しています。
