黎明期から続く「リンクテーブル破綻」への終止符：TableDefsを掌握する極限の接続管理
Accessを単なる「デスクトップデータベース」と侮る者は、その内部構造が孕む複雑なオブジェクトライフサイクルを理解していない。特に、分割されたフロントエンドとバックエンド（BE）を結ぶ「リンクテーブル」の管理は、運用フェーズにおける最大の急所だ。
ファイルサーバーの移行、IPアドレスの変更、あるいは場当たり的なフォルダ構成の変更。これらによってBEへのパスが断たれた瞬間、システムは沈黙する。我々プロフェッショナルが構築すべきは、ユーザーに「リンクテーブル管理マネージャー」を手動で操作させるような軟弱なシステムではない。起動時に静かに、かつ確実に接続を自己修復する「自律型アーキテクチャ」だ。
今回は、`CurrentDb.TableDefs`を操作し、Windows APIを併用してネットワークパスを検証する、堅牢極まる自動修復ツールの実装を解説する。
—
1. `CurrentDb` の罠とオブジェクトの生存期間
多くのVBAプログラマが犯す過ちは、`CurrentDb` をプロパティのように何度も呼び出すことだ。
`CurrentDb` は呼び出されるたびに新しいデータベースオブジェクトのインスタンスを生成する。ループ内でこれを行うことは、メモリの断片化とパフォーマンスの低下を招く。
‘ 悪い例：ループのたびにインスタンスを生成し、オーバーヘッドを増大させる
For i = 0 To CurrentDb.TableDefs.Count – 1
Debug.Print CurrentDb.TableDefs(i).Name
Next i
シニアエンジニアであれば、DAOの `Database` オブジェクトを明示的に変数に捕捉し、そのスコープ内で処理を完結させるべきだ。
2. TableDefs.Connect プロパティの解剖
リンクテーブルの正体は、`TableDefs` コレクション内の各 `TableDef` オブジェクトが持つ `Connect` プロパティである。この文字列を書き換え、`.RefreshLink` メソッドを叩く。これが基本だ。
しかし、単に書き換えるだけでは不十分だ。ネットワーク越しにBEを確認する場合、標準の `Dir` 関数はタイムアウトや権限エラーに対して脆弱すぎる。ここで Windows API の出番となる。
—
3. 実装：自律型リンク修復エンジン
以下のコードは、単なるパスの置換ではない。UNCパスの検証、オブジェクトの明示的解放、そしてエラーハンドリングを統合した、プロダクション環境に耐えうるモジュールだ。
Option Compare Database
Option Explicit
‘ Windows API: ファイルの存在確認を高速かつ低レイヤーで行う
Private Declare PtrSafe Function GetFileAttributes Lib “kernel32” Alias “GetFileAttributesA” (ByVal lpFileName As String) As Long
Private Const INVALID_FILE_ATTRIBUTES As Long = -1
”’
”’
”’ バックエンドファイル名（例: DATA_BE.accdb）
”’ 探索の起点となるフォルダパス
Public Sub RelinkTables(beFileName As String, searchPath As String)
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim newConnect As String
Dim fullPath As String
‘ 1. パスの正規化と存在確認
fullPath = IIf(Right(searchPath, 1) = “\”, searchPath, searchPath & “\”) & beFileName
If Not FileExistsAPI(fullPath) Then
MsgBox “致命的エラー: バックエンドデータベースが見つかりません。” & vbCrLf & fullPath, vbCritical
Exit Sub
End If
‘ 2. データベースオブジェクトの捕捉
Set db = CurrentDb
newConnect = “;DATABASE=” & fullPath
On Error GoTo Err_Handler
‘ 3. TableDefsのイテレーション（逆順またはコレクションの性質を考慮）
For Each tdf In db.TableDefs
‘ リンクテーブルのみを対象とする（システムテーブルやローカルテーブルをスキップ）
‘ AttributesプロパティのdbAttachedTableビットを確認
If (tdf.Attributes And dbAttachedTable) <> 0 Then
‘ 現在の接続先と異なる場合のみ更新（書き込み回数の最小化）
If tdf.Connect <> newConnect Then
Debug.Print “Updating: ” & tdf.Name
tdf.Connect = newConnect
‘ リンクの再構築：ここで実際に接続テストが行われる
tdf.RefreshLink
End If
End If
Next tdf
Debug.Print “Relink complete.”
Exit_Handler:
‘ 4. メモリの明示的解放（VBAのガベージコレクションを過信しない）
Set tdf = Nothing
Set db = Nothing
Exit Sub
Err_Handler:
MsgBox “リンク更新中にエラーが発生しました: ” & Err.Description, vbExclamation
Resume Exit_Handler
End Sub
”’
”’
Private Function FileExistsAPI(path As String) As Boolean
Dim attr As Long
attr = GetFileAttributes(path)
FileExistsAPI = (attr <> INVALID_FILE_ATTRIBUTES)
End Function
—
4. アーキテクトが語る「運用の勘所」
UNCパスの徹底
ドライブレター（`Z:\…`）に依存したリンクは、クライアント端末ごとのマウント状況に左右される。これは保守における「悪」だ。常に `\\ServerName\Share\…` という UNCパス を使用せよ。上記の `searchPath` にはUNCパスを渡す運用を徹底すること。
接続情報のキャッシュ
毎回の起動時に全テーブルを `RefreshLink` するのは、テーブル数が多い場合に無視できないオーバーヘッドとなる。
システム管理用ローカルテーブル（例: `sys_Config`）に、現在の `Connect` 文字列を保持しておき、BEのパスに変更がない場合は `RefreshLink` をスキップするロジックを組み込むのがシニアの仕事だ。
排他制御の壁
`RefreshLink` を実行する際、BEが他のユーザーによって排他的に開かれているとエラーになる。このため、修復処理は「アプリケーションのメインフォームが開く前」の、AutoExecマクロから呼ばれる初期化関数内で行うのがベストプラクティスである。
—
5. 終わりに
Access VBAの世界において、`CurrentDb` や `TableDefs` はあまりに身近な存在だ。しかし、その裏側にあるDAOエンジンの挙動、Windows OSとの接点、そしてメモリ管理を意識するか否かが、単なる「動くコード」と「価値あるシステム」を分かつ。
レガシーな技術こそ、最新の知見で磨き上げよ。それが、システムを、そしてビジネスを止めないための唯一の道である。
