やあ。Accessの深淵へようこそ。
「マクロの記録」という安全な場所から一歩踏み出し、システムの心臓部である『データベースの構造』を直接操作しようとする君の勇気を、私は歓迎するよ。
今日扱うのは、Accessの「リレーションシップ」だ。通常、GUIの画面で線をつないで終わりにするものだが、システムが巨大化すると、どのテーブルが誰に依存しているのか、迷宮に入り込んでしまうことがある。
今日は、その複雑な依存関係をコードの力で「可視化」し、制御下に置くための極意を伝授しよう。
—
1. データベースの「家系図」を解読する
Accessのテーブル同士のつながりは、`DAO.Relation` というオブジェクトに詰まっている。
しかし、これ単体では「誰が親で、誰が子か」というツリー構造までは教えてくれない。そこで我々は、すべてのRelationをスキャンし、テーブル間の接続情報をグラフ（有向グラフ）として再構築する必要があるんだ。
2. 依存関係を抽出するVBAコード
このコードは、現在のデータベース内にあるすべてのリレーションシップを走査し、イミディエイトウィンドウに「ツリー構造」として出力する。まずはこれを動かして、君のシステムの構造を覗いてみてほしい。
‘ 参照設定: Microsoft Office 16.0 Access Database Engine Object Library
Public Sub VisualizeDatabaseStructure()
Dim db As DAO.Database
Dim rel As DAO.Relation
Dim tbl As DAO.TableDef
Set db = CurrentDb
Debug.Print “— データベース依存関係ツリー —”
‘ すべてのテーブルをループして起点を探す
For Each tbl In db.TableDefs
‘ システムテーブル(MSys…)は除外する（ここが初心者が陥る罠の一つだ）
If Left(tbl.Name, 4) <> “MSys” Then
Debug.Print “Table: ” & tbl.Name
‘ このテーブルを親とするリレーションを探す
For Each rel In db.Relations
If rel.Table = tbl.Name Then
‘ 子テーブルへのつながりを表示
Debug.Print ” └─ [関係先: ” & rel.ForeignTable & “] ” & _
“Field: ” & rel.Fields(0).Name
End If
Next rel
End If
Next tbl
Debug.Print “— 解析完了 —”
End Sub
—
3. このコードを理解するための「3つの重要ポイント」
初心者の君が、今後このコードを拡張していくために知っておくべき「エンジニアの視点」を伝授するよ。
① システムテーブルという「聖域」
`If Left(tbl.Name, 4) <> “MSys” Then` という条件。これは非常に重要だ。
Accessには、GUIを管理するための隠しテーブルが大量に存在する。これらをいじろうとすると、アプリケーションがクラッシュする。「触れてはいけない領域がある」ことを知るのが、中級者への第一歩だ。
② Relationオブジェクトの構造
`rel.Table` が親、`rel.ForeignTable` が子だ。
リレーションは単なる線ではなく、「どのフィールドがどのフィールドを紐付けているか」というデータを持っている。`rel.Fields(0)` はその接続フィールドを指す。ここを深く掘れば、どのデータがどのデータと同期しているかを完全に制御できる。
③ なぜ「イミディエイトウィンドウ」なのか？
最初はGUIに結果を出したくなるかもしれない。だが、エンジニアは「ログ」を信じる。
複雑な構造を可視化する際、画面を作るよりも先に、テキストとして構造を出力する癖をつけよう。これができれば、将来的にその結果をCSVやJSONに書き出し、外部のグラフ描画ツールに渡すことも可能になるからね。
—
4. 陥りやすいエラーとその対策
- 「オブジェクトが必要です」エラー:
これは `Set db = CurrentDb` を忘れているか、DAOの参照設定が漏れているときに起きる。Access VBAは、「現在開いているDB」を明示的に指定しないと動かない。
- 無限ループの恐怖:
もし今後、このコードを再帰的に拡張（ツリーの深くまで潜る）しようとするなら、循環参照に注意してほしい。テーブルAがBを指し、BがAを指すような設計は、プログラムを永久ループに陥らせる。常に「一度見たテーブルはフラグを立てて避ける」処理が必要になるんだ。
—
最後に：君へのエール
このコードを動かせたなら、君はもう「Accessの利用者」ではなく「Accessの設計者」の視点に立っている。
テーブル定義とリレーションは、データベースの骨格だ。この骨格がどう組み合わさっているかをコードで制御できれば、どんなに複雑な要求が来ても、君は迷うことなくシステムの全体像を把握できるはずだ。
次は、この結果をExcelに書き出し、自動的に図形としてリレーション図を生成するツールに挑戦してみるといい。道は開かれている。
また何か疑問があればいつでも聞きに来てくれ。君の自動化の旅を、私はこれからも応援しているよ。
