Accessを「壊れないシステム」へ：起動時リンクテーブル自動修復アーキテクチャ
開発現場でAccessをバックエンド・フロントエンド分離構成（いわゆるMDB/ACCDBの分割）で運用しているエンジニアなら、誰もが一度は恐怖する瞬間がある。
「ネットワークのドライブ割り当てが変わった」
「共有サーバーのIPアドレスが変更された」
「ユーザーが間違ったパスでファイルを配置した」
結果、朝一番の業務開始と同時に「ODBC – 接続が失敗しました」「指定されたファイルが見つかりません」の嵐。ユーザーからヘルプデスクへ殺到する悲鳴。これを防ぐために、手動でリンクテーブルマネージャーを開いて再リンクさせる？……プロのエンジニアが選ぶべき解決策は、そんな泥臭い運用ではない。
今回は、Accessの起動時にバックエンドの生存確認を行い、パスの乖離を検知した瞬間にプログラム側で自動修復する「堅牢なリンクテーブル自動修復メカニズム」を伝授する。
—
なぜ「あの書き方」ではバグるのか？（非効率な設計の排除）
ネット上の散在するサンプルコードを見ると、次のような実装がまかり通っている。
1. エラーハンドリングなしの無条件実行
起動するたびに全てのリンクテーブルの接続文字列を強制的につなぎ直す。これは無駄なオーバーヘッドであり、ファイルサーバーへ無駄なトラフィックを発生させる。
2. `DBEngine.Workspaces(0).Databases(0)` の濫用
現在のデータベースを指すのに冗長な記述を使い、オブジェクトの参照リークを引き起こす。
3. 接続文字列（Connect）のパースミス
DAOの `Connect` プロパティの仕様を理解せず、ODBCドライバやパスの指定形式を誤り、かえってリンクを破損させる。
プロのアーキテクトが目指すべきは、「必要な時だけ、正確に、アトミックに修復する」ことだ。
—
アーキテクチャの全体像
今回構築する仕組みのフローはこうだ：
1. AutoExecマクロ または スタートアップフォーム から、アプリケーションのエントリポイントとなるVBAプロシージャを起動。
2. 設定マスターの読み込み（またはハードコードされた正解パスの取得）。
3. `CurrentDb.TableDefs` の走査。
- `Connect` プロパティに `MS Access` を含むもの（= Access間リンクテーブル）を抽出。
4. 実体ファイルの存在チェック。
- パスが存在するか、あるいは接続可能かを判定。
5. 不一致の検知と自動修復。
- 接続文字列を正しいパスに書き換え、`.RefreshLink` メソッドを実行。
—
プロダクションコード例：完全自動修復モジュール
以下のコードを標準モジュール（例：`basLinkManager`）に配置し、アプリケーション起動時に `CheckAndRepairLinks` を呼び出すように設計せよ。
実務でそのまま使えるよう、エラーハンドリングと詳細なイミディエイトログ出力を組み込んでいる。
Option Compare Database
Option Explicit
‘ =========================================================================
‘ モジュール名: basLinkManager
‘ 概要 : 起動時にリンクテーブルの接続先を検証し、自動修復する
‘ 著者 : チーフアーキテクト
‘ =========================================================================
Public Sub CheckAndRepairLinks()
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim targetPath As String
Dim expectedConnect As String
Dim repairedCount As Long
On Error GoTo ErrorHandler
‘ 1. 正しいバックエンドファイルのパスを定義
‘ ※実務では、INIファイル、レジストリ、またはローカルのマスターテーブルから動的に取得すること
targetPath = GetCorrectBackendPath()
If Dir(targetPath) = “” Then
MsgBox “致命的なエラー: バックエンドデータベースが見つかりません。” & vbCrLf & _
“パス: ” & targetPath, vbCritical, “起動時リンクチェック”
Exit Sub
End If
‘ 正しい接続文字列の構築 (Accessの場合)
expectedConnect = “;DATABASE=” & targetPath
Set db = CurrentDb()
repairedCount = 0
‘ 2. TableDefsコレクションを走査
For Each tdf In db.TableDefs
‘ システムテーブルやローカルテーブルを除外 (Connectプロパティが空でないものを対象)
If Len(tdf.Connect) > 0 Then
‘ Accessのリンクテーブルであるか判定 (必要に応じてODBC等の判定にも拡張可能)
If InStr(1, tdf.Connect, “MS Access”, vbTextCompare) > 0 Then
‘ 3. 接続文字列が期待値と異なる場合のみ修復処理を実行
If tdf.Connect <> expectedConnect Then
Debug.Print “【要修復】テーブル名: ” & tdf.Name
Debug.Print ” 旧接続: ” & tdf.Connect
Debug.Print ” 新接続: ” & expectedConnect
‘ 接続文字列を更新
tdf.Connect = expectedConnect
‘ 4. リンクの再構築を実行
tdf.RefreshLink
repairedCount = repairedCount + 1
Debug.Print ” -> 修復完了”
End If
End If
End If
Next tdf
‘ 5. 結果の通知
If repairedCount > 0 Then
Debug.Print “合計 ” & repairedCount & ” 個のリンクテーブルを自動修復しました。”
‘ ユーザーへの過度なポップアップは混乱を招くため、ログ出力にとどめるか、ステータスバーに表示する
End If
CleanUp:
Set tdf = Nothing
Set db = Nothing
Exit Sub
ErrorHandler:
MsgBox “リンクテーブルの修復中に予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “システムエラー”
Resume CleanUp
End Sub
‘ =========================================================================
‘ バックエンドのパスを返す関数（環境に応じて実装を切り替えること）
‘ =========================================================================
Private Function GetCorrectBackendPath() As String
Dim configTablePath As String
‘ 例: 同じフォルダ内にある “Backend_Data.accdb” を正とする場合
‘ 運用に合わせてネットワークパス ( “\\server\share\data.accdb” ) に書き換えること
GetCorrectBackendPath = CurrentProject.Path & “\Backend_Data.accdb”
‘ 【実務上のヒント】
‘ ネットワーク共有に変更があった場合、ローカルの非公開テーブルや
‘ Windows環境変数、外部INIファイルから動的にこのパスを読み込む設計にすると最強です。
End Function
—
開発現場で知っておくべき「3つの罠」と対策
このコードをデプロイするにあたり、プロのエンジニアが押さえておくべきポイントを共有する。
1. `CurrentDb` と `DBEngine.Workspaces(0).Databases(0)` の使い分け
前者は呼び出すたびに新しいデータベースオブジェクトのインスタンスを返す。そのため、ループ内でテーブル定義を操作する際は、必ず変数に一度受け (`Set db = CurrentDb()`)、スコープを管理しなければメモリリークの温床となる。上記のコードはこのライフサイクルを完璧に制御している。
2. パフォーマンスへの配慮
テーブル数が数百個ある巨大なAccessシステムの場合、起動時の `For Each` ループがわずかに起動時間を引き延ばす。
しかし、「パスが一致しているか (`tdf.Connect <> expectedConnect`)」を判定し、一致している場合は `.RefreshLink` をバイパスするロジックを入れているため、正常時のオーバーヘッドはほぼゼロに等しい。
3. 排他制御とネットワーク切断時の挙動
ファイルサーバーの応答がない状態で `Dir()` 関数や `RefreshLink` を叩くと、VBA側でタイムアウトエラー（トラップ可能な実行時エラー）が発生する。
そのため、必ず `On Error GoTo ErrorHandler` を経由させ、システムがフリーズ（ハングアップ）するのを防ぐ堅牢なエラーハンドリングが不可欠となる。
—
まとめ：自動化とは「ユーザーに意識させないこと」
システムがインフラの変化を察知し、裏側で自己修復する。これこそが、業務自動化エンジニアが目指すべき「真にモダンなAccess開発」の姿である。
「リンクが切れたからファイルサーバーのパスを再設定して」というヘルプデスクの工数をゼロにし、ユーザーが朝からストレスフリーで業務を開始できる環境を、このコードで今すぐあなたの現場に導入してほしい。
