こんにちは！Accessでのシステム開発、順調に進んでいますか？
「フォームのリストボックスで複数の項目を選んで、一気にデータを絞り込みたい！」――実務では本当によくある要望ですよね。
でも、意気揚々とコードを書いたところで、突然こんな冷酷なエラーメッセージに直面したことはありませんか？
> 「クエリ式が複雑すぎます。」
または、SQLの文字数制限に引っかかって、条件の途中でプツリと切れてしまう……。
今回は、Access VBA開発者が誰もが一度はハマるこの「IN句の文字数制限（255文字の壁）」を、伝説のアーキテクトが用いる王道かつスマートなテクニックで華麗に突破する方法を授けましょう。
ここをクリアすれば、あなたのAccess VBAスキルは間違いなく一段上のステージに上がります。さあ、一緒に紐解いていきましょう！
—
1. なぜ「IN句の255文字制限」でエラーになるのか？
まずは敵を知ることから始めましょう。
例えば、画面のリストボックスでユーザーが「商品ID：1、2、3、……50個」を選択したとします。これを素直にVBAでSQLの`IN句`に組み立てようとすると、こうなりますよね。
SELECT FROM T_商品売上 WHERE 商品ID IN (1, 2, 3, 4, 5, … 50個続く)
この文字列、ざっと何文字になるでしょうか？カンマや括弧を含めると、あっという間に255文字を超えてしまいます。
Access（Jet/ACEデータベースエンジン）のクエリは、SQL文の文字列長や複雑さに厳格な制限を持っています。これが、いわゆる「255文字の壁」の正体です。
初学者のうちは、「じゃあ、文字列を分割してORで繋げばいいや！」と思いがちですが、それも文字数が増えれば結局同じ破綻を迎えますし、何よりコードが汚くなり、パフォーマンスも最悪になります。
—
2. 解決の切り札：「一時テーブル」という特効薬
文字数制限をスマートに突破するプロの定石、それは「一時テーブル（ワーキングテーブル）」の活用です。
発想をガラリと変えましょう。
「長大なSQL文を無理やり作ろうとするからいけない。選択されたIDたちを、あらかじめ中身が空っぽの『作業用テーブル』に一気に放り込んで、本番のデータとはJOIN（内部結合）で一網打尽に抽出する」――これです。
図解するとこういうイメージです。
[リストボックスで選択された大量のID]
↓ (VBAでループして1つずつINERT)
[一時テーブル: T_一時抽出ID] (文字数制限ナシ！)
↓
[本番テーブル] ⋈ [一時テーブル] (爆速でJOINして抽出完了！)
このアプローチであれば、選択された項目が100個だろうが1,000個だろうが、SQLの文字数制限を一切気にする必要がなくなります。美しく、拡張性があり、何よりエラーが起きません。
—
3. 実装コード：コピペで使える実務レベルのモジュール
それでは、実際のVBAコードを見ていきましょう。
今回は、フォームのリストボックス（名前：`lstSelected`）で複数選択されたIDを一時テーブル（`T_一時抽出ID`）に格納し、それを元にデータを抽出する一連の流れを記述します。
開発現場でそのまま使えるよう、エラーハンドリングも考慮した丁寧なコードに仕上げました。
‘ =========================================================================
‘ 概要: リストボックスの多量選択を一時テーブル経由で安全に抽出するプロシージャ
‘ 前提: あらかじめ「T_一時抽出ID」というテーブル（フィールド名: ID, 数値型）を作成しておくこと
‘ =========================================================================
Public Sub ExecuteDynamicInQuery()
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim varItem As Variant
Dim strSQL As String
Dim lngCount As Long
Set db = CurrentDb
On Error GoTo ErrorHandler
‘ 1. リストボックスに何も選択されていない場合は処理を抜け
If Me.lstSelected.ItemsSelected.Count = 0 Then
MsgBox “抽出する項目が選択されていません。”, vbExclamation, “警告”
Exit Sub
End If
‘ 2. トランザクションまたはクリーンアップ：一時テーブルの既存データをクリア
db.Execute “DELETE FROM T_一時抽出ID;”, dbFailOnError
‘ 3. 選択された項目を一時テーブルに高速インサート（DAOのAddNewを使用）
Dim rsTemp As DAO.Recordset
Set rsTemp = db.OpenRecordset(“T_一時抽出ID”, dbOpenTable)
For Each varItem In Me.lstSelected.ItemsSelected
rsTemp.AddNew
‘ リストボックスの「0列目（隠しID列など）」の値を取得してセット
rsTemp!ID = Me.lstSelected.ItemData(varItem)
rsTemp.Update
lngCount = lngCount + 1
Next varItem
rsTemp.Close
Set rsTemp = Nothing
‘ 4. 本番クエリ（QueryDef）の動的生成：一時テーブルとJOINするSQL
‘ ※文字数制限の呪縛から完全に解放された、美しくシンプルなSQLです
strSQL = “SELECT M. ” & _
“FROM T_本番データ AS M ” & _
“INNER JOIN T_一時抽出ID AS T ” & _
“ON M.商品ID = T.ID;”
‘ あらかじめ用意した保存用クエリ（例: qry抽出結果）のSQLを書き換える
Set qdf = db.QueryDefs(“qry抽出結果”)
qdf.SQL = strSQL
qdf.Close
‘ 5. 結果を表示するフォームやレポートを開く
DoCmd.OpenForm “frm抽出結果表示”, acFormReadOnly
MsgBox lngCount & “件の条件でデータを正常に抽出しました！”, vbInformation, “完了”
Exit_Handler:
‘ オブジェクトの解放（メモリリークを防ぐプロの作法）
Set rsTemp = Nothing
Set qdf = Nothing
Set db = Nothing
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “エラー”
Resume Exit_Handler
End Sub
—
4. コードの深掘りと知っておくべきポイント
ここで、シニアエンジニアからのワンポイントアドバイスをいくつか。ここを抑えておくと、さらに安定したシステムが作れます。
① なぜ `CurrentDb.Execute` ではなく `Recordset (AddNew)` なのか？
大量のデータを登録する際、SQLの `INSERT INTO` をループで何回も実行すると、その都度コンパイルと実行計画の生成が走り、パフォーマンスがガタ落ちします。
DAOの `TableType` レコードセットを使った `AddNew` ループは、Accessのローカルエンジン（Jet/ACE）にとって最も効率的かつ高速なデータ挿入ルートの一つです。
② クエリ定義（QueryDef）のオブジェクトを使い回す
動的SQLを実行する際、毎回 `CurrentDb.CreateQueryDef` のように新規作成すると、Accessのシステムテーブル（MSysObjects）にゴミが溜まり、データベースが肥大化・破損の原因になります。
あらかじめ空のクエリ（例: `qry抽出結果`）をデザインビューで作っておき、VBAでは上記コードのように既存の `QueryDef.SQL` プロパティを書き換えるのが鉄則です。
③ 一時テーブルの物理的な配置について
本格的なマルチユーザー環境（フロントエンド・バックエンド分離構成）の場合、`T_一時抽出ID` は「フロントエンド側（ローカル）」に持たせる必要があります。バックエンド（共有フォルダ上のサーバー側）に置いてしまうと、他のユーザーが同時に検索ボタンを押したときにデータが混ざって大惨事になります。必ず「ローカル一時テーブル」として設計してください。
—
まとめ：ここをクリアすれば、Access VBAはもっと楽しくなる！
今回は、Access VBAにおける「IN句の255文字制限」を、一時テーブルとJOINを活用して華麗に回避する実務テクニックを解説しました。
- 長大なIN句を作るのは御法度。文字数制限の壁に必ずぶつかる。
- 解決策は、選択されたIDを一時テーブルに書き込み、本番データとJOINすること。
- DAOのRecordsetやQueryDefの特性を理解して、安全かつ高速なコードを書く。
この手法は、何もリストボックスの選択だけに留まらず、外部のExcelファイルから読み込んだ数千行のコードで絞り込みをかけたい時など、あらゆる「大量条件の動的処理」に応用できます。
「ここをクリアすれば、Access VBAの基本はバッチリですよ！」
ぜひ、あなたの開発現場のプロジェクトにもこの知見を取り入れて、スマートで頑健なアプリケーションを作り上げてくださいね。応援しています！
