【テクニカル・上級編】CurrentDb.TableDefsでテーブル構造を動的にチェックする – Access VBA解析バイブル

Access VBAを掌握する極限の知見：CurrentDb.TableDefsによる動的リンクテーブル制御とバックエンド切替の極意

バックエンドのAccessデータベース（`.accdb` / `.mdb`）の配置パスが変わるたびに、リンクテーブルマネージャーを開いて手動で再リンクを貼る——そんな不毛な作業にいつまで時間を費やすつもりか。

シニアエンジニアや社内システム管理者であれば、環境（開発・テスト・本番、あるいは各クライアントのローカル環境とネットワーク共有フォルダ）の差異をコードで完全に吸収し、アプリケーション起動時にバックエンドを動的にルーティングするのは常識である。

今回は、`CurrentDb.TableDefs` と DAO（Data Access Objects）を極限までチューニングし、メモリリークを排除しながらリンクテーブルの接続先を安全かつ高速に書き換えるアーキテクチャを提示する。

—

1. なぜ `CurrentDb` なのか？オブジェクトのライフサイクルと罠

Access VBAにおいて、データベースへの参照を取得する方法には `CurrentDb` 関数と `DBEngine(0)(0)` プロパティの2つが存在する。

‘ 毎回新しいDAO.Databaseオブジェクトをヒープに生成する
Dim db As DAO.Database
Set db = CurrentDb

‘ 現在のセッションのデフォルトワークスペースからキャッシュされたインスタンスを直接引く
Dim db As DAO.Database
Set db = CurrentDb ‘ （※厳密にはCurrentDbは毎回インスタンスを生成するラッパー）

特筆すべきは、`CurrentDb` を呼び出すたびに、メモリ上に新しい `Database` オブジェクトのインスタンスが生成されるという点だ。これを変数に格納せず、ループの条件式やプロパティ取得に直接多用すると、Accessの内部メモリ管理（Jet/ACEエンジン）に深刻な負荷をかけ、最悪の場合はメモリリークや「リソース不足」エラーを引き起こす。

動的リンクの書き換えを行う際は、必ず `Database` オブジェクトを変数に一度だけ取得し、処理終了後は明示的に `Nothing` を代入してメモリを解放する。これがプロのメモリ最適化だ。

—

2. リンクテーブルの構造と `.Connect` プロパティの真実

DAOの `TableDefs` コレクションに含まれる各テーブル定義（`TableDef` オブジェクト）は、それがローカルテーブルかリンクテーブルかによって振る舞いが異なる。

リンクテーブルの場合、`TableDef.Connect` プロパティには以下のような接続文字列が格納されている。

MS Access;HDR=Index;IMEX=2;ACCdb=1;Database=\\server\share\data\backend.accdb;

この文字列の `Database=` 以降のパスを書き換え、さらに `RefreshLink` メソッドを叩くことで、Accessを再起動することなくバックエンドの切り替えが完了する。

しかし、ここで一つ罠がある。システムテーブルやローカルテーブルに対して `.Connect` を書き換えようとすると実行時エラーが発生する。そのため、対象が「外部データソースへのリンク」であるかを事前に判定するガード句が不可欠となる。

—

3. 実装コード：堅牢性と速度を極めた動的リリンク・エンジン

以下に、実務の現場でそのまま使用できるプロダクション品質のモジュールを示す。このコードは、指定されたフォルダ内（またはINIファイル等から読み込んだパス）のバックエンドに対し、すべてのリンクテーブルの接続先を動的に再設定する。

Option Compare Database
Option Explicit

‘ ==============================================================================
‘ 処理名 : リンクテーブル接続先動的切替モジュール
‘ 概要 : 指定したバックエンドパスに基づき、全リンクテーブルの接続先を動的に変更する
‘ ==============================================================================
Public Sub ReconnectBackend(ByVal targetBackendPath As String)
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fso As Object
Dim updatedCount As Long
Dim totalCount As Long

‘ 1. バックエンドファイルの存在確認（FileSystemObjectを使用）
Set fso = CreateObject(“Scripting.FileSystemObject”)
If Not fso.FileExists(targetBackendPath) Then
MsgBox “指定されたバックエンドデータベースが見つかりません。” & vbCrLf & _
“パス: ” & targetBackendPath, vbCritical, “接続エラー”
GoTo Cleanup
End If

‘ 2. 現在のデータベース参照を取得（メモリ管理の鉄則：必ず変数に受ける）
Set db = CurrentDb()
updatedCount = 0
totalCount = 0

‘ 3. トランザクション的処理の開始（エラー耐性の向上）
On Error GoTo ErrorHandler

‘ 4. TableDefs コレクションの走査
For Each tdf In db.TableDefs
‘ システムテーブル（MSysで始まる）およびローカルテーブルを除外
If Len(tdf.Connect) > 0 Then
totalCount = totalCount + 1

‘ 接続文字列をJet/ACE形式に更新
‘ ※必要に応じてODBC接続（SQL Server等）のパスワードやサーバー名置換にも応用可能
tdf.Connect = “;DATABASE=” & targetBackendPath

‘ リンクの更新を実行（ここでACEエンジンがバックエンドとのハンドシェイクを行う）
tdf.RefreshLink
updatedCount = updatedCount + 1
End If
Next tdf

MsgBox “バックエンドの再リンクが完了しました。” & vbCrLf & _
“対象リンク数: ” & totalCount & ” 件” & vbCrLf & _
“更新成功数: ” & updatedCount & ” 件”, vbInformation, “システム案内”

Cleanup:
‘ 5. オブジェクトの明示的解放（メモリリークの完全阻止）
Set tdf = Nothing
If Not db is Nothing Then
db.Close
Set db = Nothing
End If
Set fso = Nothing
Exit Sub

ErrorHandler:
MsgBox “リンクテーブルの更新中に致命的なエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “致命的エラー”
Resume Cleanup
End Sub

—

4. シニアエンジニアが押さえるべきアーキテクチャ上の注意点

① ネットワーク遅延とタイムアウト対策

バックエンドがWANやVPN経由の共有フォルダにある場合、`RefreshLink` の実行時にタイムアウトやフリーズが発生することがある。この場合、あらかじめローカルのテンポラリ領域にバックエンドをダウンローダ経由で同期（RobocopyやVBAによるファイルコピー）させてから、ローカルパスへリリンクするアーキテクチャを採用すべきである。

② パスワード保護されたバックエンド（MDB/ACCDB）への対応

バックエンド側がパスワード（工作員による不正アクセス防止やデータ保護）で保護されている場合、`.Connect` 文字列に `Jet OLEDB:Database Password=myPassword;` を含める必要がある。

tdf.Connect = “;DATABASE=” & targetBackendPath & “;PWD=myPassword”

※セキュリティ要件が厳しい環境では、ハードコーディングを避け、Windowsレジストリや暗号化された外部設定ファイル（INI/JSON）から安全に読み込む設計に昇華させよ。

③ ユーザー権限と排他制御

バックエンドファイルが別のユーザーによって排他モード（Exclusive）で開かれている場合、`RefreshLink` はエラーを返す。マルチユーザ環境を前提とするシステムでは、バックエンドは必ず共有モードで開かれる仕様であることを前提としつつ、接続失敗時のリトライロジックを実装するのがプロの作法である。

—

総括

`CurrentDb.TableDefs` を用いた動的リリンクは、単なる「パスの書き換え」ではない。それは、クライアントサーバーモデルやクラウドストレージ化が進む現代においても、デスクトップDBであるAccessの寿命を延ばし、環境変化に耐えうる頑健なシステムを構築するための極めて重要な防衛ラインである。

フレームワークやライブラリの流行り廃りに惑わされるな。オブジェクトのライフサイクルを支配し、メモリの隅々まで意図通りにコントロールする者だけが、レガシーシステムを自在に操る真のアーキテクトと名乗る資格を持つ。