【DAOの深淵へ】Accessテーブルを「設計図」として保存し、自在に復元する技術
こんにちは。自動化の現場で血と汗を流してきたエンジニアです。
Accessを使っていて、「テーブルの定義をうっかり壊してしまった」「過去の構造に戻したい」といった絶望を味わったことはありませんか？GUIでの設定は楽ですが、複雑なシステムになればなるほど、テーブル定義は「コード」として管理すべきです。
今回は、AccessのDAO（Data Access Objects）を使い、テーブルの構造を「メタデータ（設計図）」として別のテーブルに保存し、必要に応じて復元する「リバースエンジニアリング・ツール」の核心部分を伝授します。
—
なぜ、DAOでテーブルを操作するのか？
Accessには「テーブル定義」という物理的な実体があります。これをVBAで扱うには、DAOという強力なライブラリを使います。
- TableDef: テーブルそのものを指すオブジェクト。
- Field: テーブル内の列。
- Index: インデックス（主キー含む）。
- Relation: テーブル間のリレーションシップ。
これらを掌握できれば、Accessは単なる「データ保存場所」から、「プログラムで生成可能な柔軟なデータベース」へと変貌します。
—
ステップ1：テーブルの設計図をメタデータ化する
まずは、テーブルのフィールド情報を別のテーブル（`Meta_TableDefs`）に書き出すコードです。
‘ 必要な参照設定: Microsoft Office 16.0 Access database engine Object Library
Public Sub ExportTableDefinition(strTableName As String)
Dim db As DAO.Database
Dim td As DAO.TableDef
Dim fld As DAO.Field
Dim rs As DAO.Recordset
Set db = CurrentDb
Set td = db.TableDefs(strTableName)
‘ 保存先のテーブルを開く
Set rs = db.OpenRecordset(“Meta_TableDefs”)
For Each fld In td.Fields
rs.AddNew
rs!TableName = td.Name
rs!FieldName = fld.Name
rs!FieldType = fld.Type ‘ データ型を数値で保存
rs!FieldSize = fld.Size
rs.Update
Next fld
rs.Close
MsgBox “構造のバックアップ完了！”, vbInformation
End Sub
【ここがポイント！】
- Field.Type: データ型は定数（`dbText`など）で管理されています。数値で保存しておくのが最も安全です。
- オブジェクトの解放: `Set rs = Nothing` を忘れないでください。メモリリークは長期稼働するAccessシステムの最大の敵です。
—
ステップ2：設計図からテーブルを復元する
次に、保存したメタデータからテーブルを「再構築」するロジックです。
Public Sub RestoreTableFromMeta(strTableName As String)
Dim db As DAO.Database
Dim td As DAO.TableDef
Dim fld As DAO.Field
Dim rs As DAO.Recordset
Set db = CurrentDb
‘ テーブルが存在しなければ作成
Set td = db.CreateTableDef(strTableName)
Set rs = db.OpenRecordset(“SELECT FROM Meta_TableDefs WHERE TableName = ‘” & strTableName & “‘”)
Do Until rs.EOF
‘ フィールドの作成
Set fld = td.CreateField(rs!FieldName, rs!FieldType, rs!FieldSize)
td.Fields.Append fld
rs.MoveNext
Loop
db.TableDefs.Append td
rs.Close
MsgBox “テーブルの復元に成功しました。”, vbInformation
End Sub
【陥りやすい罠と対策】
1. 既存テーブルとの衝突: `db.TableDefs.Append` を実行する際、すでに同名のテーブルがあるとエラーになります。必ず `If ExistsTable(strTableName) Then …` のようなチェック関数を挟んでください。
2. インデックスの消失: 上記コードはフィールドのみです。主キー（Index）は別途 `td.CreateIndex` を使う必要があります。ここが上級者への登竜門です。
—
さらなる高みを目指す君へ
このツールを完成させるための「伝説のエンジニアからのアドバイス」です。
- リレーションシップの保存: `db.Relations` を走査すれば、テーブル間の結合関係もメタデータ化できます。「どのテーブルとどのテーブルが紐付いているか」を管理できれば、データベース全体の完全なロールバックが可能になります。
- エラーハンドリング: `On Error GoTo` を活用し、予期せぬ中断時に `rs.Close` が確実に実行されるようにしてください。
- トランザクション: 復元処理は一括で行うべきです。途中で失敗したら「何もしなかったこと」にするのが、堅牢なシステムの証です。
まとめ：Access VBAの基本は「オブジェクトの階層理解」
Access VBAが難しいと感じる理由は、多くの場合「目に見えないオブジェクトの階層構造」を意識していないからです。`Database` → `TableDef` → `Field` という親子関係をイメージできれば、怖いものはありません。
今回紹介したコードは、あなたの「自動化ツール」の心臓部になり得ます。まずはコピー＆ペーストして、動かしてみてください。そこから、自分なりのカスタマイズを加えることで、真のエンジニアへの道が開かれます。
「できない」と諦める前に、DAOの力を信じてみてください。Accessは、あなたの想像以上に奥深い可能性を秘めていますよ。
それでは、また次回の深掘りでお会いしましょう。ハッピー・コーディング！
