クロス集計の「列消失」を葬る：QueryDef動的SQL制御によるレイアウトの完全固定化
Accessのクロス集計クエリ（TRANSFORM文）は強力だが、その「自由」が災いして、データが存在しない列を即座に消去する。レポートのコントロールソースにバインドしているフィールドが突然消えれば、プレビューは崩壊し、ユーザーの信頼は地に落ちる。
これは単なるバグではない。「SQLの動的生成プロセスをエンジニアが掌握していない」ことの証明に他ならない。
今回は、QueryDefオブジェクトを直接操作し、PIVOT句のIN演算子を強制的に注入することで、クロス集計のレイアウトを恒久的に固定する。レガシーシステムの墓守をしている貴殿らに捧げる、実戦的かつ高潔なアーキテクチャである。
—
1. なぜ「固定」が必要なのか：オブジェクト・ライフサイクルの視点
Accessのレポート生成エンジンは、描画の直前にレコードソースを評価する。この際、列が動的に消えると、バインドされたテキストボックスは「Null」ではなく「参照エラー」を吐く。
我々が目指すべきは、実行時（Runtime）の非決定性を排除し、定義時（Design-time）の予測可能性を保証することだ。QueryDefというAccessの「心臓部」を直接書き換えることで、データ量に依存しない不動のスキーマを構築する。
—
2. 実装：QueryDefのSQLインジェクション（正当な用途）
以下のコードは、指定した固定列リストをPIVOT句のIN演算子に注入するモジュールである。
‘ @description: QueryDefのSQLを動的に書き換え、列見出しを固定する
‘ @param qdfName: 対象のクエリ名
‘ @param pivotColumn: クロス集計対象のフィールド名
‘ @param fixedHeaders: カンマ区切りの列見出し文字列 (例: “‘A’,’B’,’C'”)
Public Sub FixCrosstabColumns(ByVal qdfName As String, _
ByVal pivotColumn As String, _
ByVal fixedHeaders As String)
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim strSQL As String
Set db = CurrentDb
Set qdf = db.QueryDefs(qdfName)
‘ SQLの正規表現的な置換はリスクが高いため、SQLの構成要素を再構築する
‘ TRANSFORM文の末尾にあるPIVOT句を強制的に書き換える
strSQL = Left(qdf.SQL, InStr(1, qdf.SQL, “PIVOT”, vbTextCompare) + 5)
strSQL = strSQL & ” ” & pivotColumn & ” IN (” & fixedHeaders & “)”
‘ QueryDefのSQLプロパティを更新（暗黙的な検証が走る）
qdf.SQL = strSQL
‘ オブジェクトの明示的解放（メモリリークの温床を断つ）
Set qdf = Nothing
Set db = Nothing
End Sub
このコードの極意
- 非破壊的更新: `qdf.SQL`への代入はAccess内部で構文解析（Parsing）が走る。これにより、不正なSQLを注入した場合に即座に実行時エラーが返るため、デバッグが容易になる。
- メモリ管理: `Set = Nothing` を怠る者は、大規模なシステムにおいてガベージコレクションの遅延によるメモリ圧迫を招く。特にループ処理内でQueryDefを操作する場合、この解放は必須だ。
—
3. レガシー環境におけるパフォーマンス最適化の勘所
クロス集計は計算コストが高い。もし動的SQLを頻繁に生成・実行する場合、以下の戦術を考慮せよ。
A. 実行計画のキャッシュを意識する
Access（JET/ACEエンジン）は、QueryDefを保存することで実行計画をキャッシュする傾向がある。動的にSQLを書き換えることは、毎回「新規クエリ」を定義するのと同義だ。パフォーマンスが著しく低下する場合は、「一度固定化したSQLを保持するダミーのクエリ」を別に用意し、条件分岐で使い分けるアーキテクチャが有効だ。
B. Windows APIによる描画抑制
レポートのレンダリングが重い場合、`LockWindowUpdate` APIを使用して、再描画のチラつきを抑止する手法がある。
‘ 描画更新を一時停止させるAPI宣言
Private Declare PtrSafe Function LockWindowUpdate Lib “user32” (ByVal hWndLock As LongPtr) As Long
‘ 使用例: レポート開く直前に実行
‘ LockWindowUpdate Application.hWndAccessApp
これを使うことで、GUIがカクつくような野暮な挙動を隠蔽し、ユーザー体験を高めることができる。
—
4. 伝説のチーフアーキテクトからの助言
クロス集計の列固定は、単なる見栄えの問題ではない。「データがない状態」を「0と定義する」というビジネスロジックの確定である。
もし貴殿のシステムにおいて、列見出しが動的に変化し続けているなら、それはシステムが「未定義の状態」を放置していることを意味する。QueryDefをコードで制御することは、Accessというブラックボックスに対して、エンジニアが「主導権」を取り戻すための唯一の手段だ。
さあ、ツールを手に取れ。不安定なクエリを、岩のように強固なインフラへと昇華させるのだ。
—
追記：大規模なデータ連携においては、`IN`句に数千件の値を詰め込むのは避けろ。JETエンジンのパース限界を超え、スタックオーバーフローやパフォーマンス劣化のトリガーとなる。その場合は、一度TempTableへピボット結果を挿入する別のアプローチを検討すべきだ。
