こんにちは！Accessでのシステム開発、お疲れ様です。
ファイルサーバーの引っ越しや、共有フォルダーのパス変更があった日には、リンクテーブルがプッツリと切れて「#Deleted」の嵐……。現場からの悲鳴を聞いて、一つひとつ手動でリンクマネージャーを開き直していませんか？
今回は、そんな不毛な手作業を完全に過去のものにする「起動時のリンクテーブル自動修復メカニズム」を伝授します。
ここをクリアすれば、あなたも単なる「Accessの利用者」から「システムの守護神（アーキテクト）」への大きな一歩を踏み出せますよ。さあ、一緒に本質を学んでいきましょう！
—
なぜリンクテーブルは切れるのか？（オブジェクトモデルの本質）
Accessは、画面やクエリを持つ「フロントエンド（ACCDB）」と、実データを格納する「バックエンド（ACCDB / Access以外）」を切り離して使うのがプロの鉄則です。このとき、フロント側からバック側を繋ぐ「糸電話」の役割をするのがリンクテーブルです。
しかし、Accessはリンク先のパスを絶対パスで記憶しています。そのため、サーバーのドライブ文字が変わったり、フォルダ階層が少しでも変わったりすると、糸がプツリと切れてしまうのです。
ここで登場するのが、Access VBAにおける二大巨頭の一つ、`CurrentDb` です。
CurrentDb と DBEngine(0)(0) の違いを知る
データベースを操作する際、よく見かける記述に `CurrentDb` と `DBEngine(0)(0)` があります。
- `CurrentDb`: 実行するたびに、現在開いているデータベースの「新鮮なコピー（新しいインスタンス）」を生成します。そのため、構造変更や定義変更を行うときは、キャッシュの古い `DBEngine(0)(0)` よりも、常に最新を掴む `CurrentDb` を使うのが安全です。
—
リンク自動修復の全体像と設計思想
今回目指す仕組みは非常にシンプルです。
1. Access起動時（Autoexecマクロやスタートアップフォーム）に自動でプログラムが走る。
2. 登録されているすべてのテーブルを走査し、「リンクテーブル」を見つける。
3. リンク先のパスが変更されていれば、VBAのコードで瞬時に正しいパスに書き換える。
これによって、ユーザーがエラーに気づく前に、システムが勝手に自己修復を完了させます。
—
実装コード：堅牢な自動修復モジュール
それでは、標準モジュールに貼り付けるだけで即戦力となる実用コードを公開します。コピペして、コメントを読みながら構造を理解していきましょう。
Option Compare Database
Option Explicit
‘ =========================================================================
‘ 模範的アーキテクチャ：リンクテーブル自動修復プロシージャ
‘ =========================================================================
Public Sub RepairLinkTables()
On Error GoTo ErrorHandler
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim targetPath As String
Dim repairedCount As Long
‘ 1. 正しいバックエンドファイルのパスを定義する
‘ （※運用に合わせて、同一フォルダ内や特定の共有パスを指定してください）
targetPath = CurrentProject.Path & “\Backend_Data.accdb”
‘ バックエンドファイルが存在するか事前チェック
If Dir(targetPath) = “” Then
MsgBox “重要なお知らせ：データ保存先が見つかりません。” & vbCrLf & _
“パスを確認してください: ” & targetPath, vbCritical, “接続エラー”
Exit Sub
End If
‘ 2. CurrentDbを使って現在のデータベース参照を取得
Set db = CurrentDb
repairedCount = 0
‘ 3. すべてのテーブル定義（TableDefs）を総なめにする
For Each tdf In db.TableDefs
‘ 接続文字列（Connectプロパティ）に “MS Access” が含まれるものはリンクテーブル
If Len(tdf.Connect) > 0 Then
If InStr(1, tdf.Connect, “MS Access”, vbTextCompare) > 0 Then
‘ 4. パスを強制的に正しいものに書き換える
‘ 接続文字列の書式: “;DATABASE=ファイルのフルパス”
tdf.Connect = “;DATABASE=” & targetPath
‘ 5. 変更をテーブル定義に反映（RefreshLinkを実行）
tdf.RefreshLink
repairedCount = repairedCount + 1
End If
End If
Next tdf
‘ 後片付け
Set tdf = Nothing
Set db = Nothing
‘ 完了ログ（必要に応じてコメントアウトしてください）
‘ MsgBox repairedCount & ” 個のリンクテーブルを正常に修復しました。”, vbInformation, “自動修復完了”
Exit Sub
ErrorHandler:
MsgBox “リンクテーブルの修復中に予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“内容: ” & Err.Description, vbCritical, “致命的なエラー”
Set tdf = Nothing
Set db = Nothing
End Sub
—
ジックの要所を、シニアエンジニアの視点で解説します。
1. `TableDef` オブジェクトのフィルタリング
Accessの `TableDefs` コレクションには、自分が持っているローカルテーブルも、外部から繋いでいるリンクテーブルも、すべてがゴチャ混ぜに入っています。
ここで重要になるのが `tdf.Connect` プロパティです。
- ローカルテーブル：`Connect` プロパティの中身は 空（長さが0） です。
- リンクテーブル：`Connect` プロパティに「どこに繋いでいるか」の接続文字列が入っています。
この性質を利用して、`Len(tdf.Connect) > 0` のものだけに絞り込むことで、無駄な処理を防ぎ、高速かつ安全に動作させています。
2. 命綱となる `RefreshLink` メソッド
コードで `tdf.Connect = …` とパスを書き換えただけでは、Accessのメモリ上（あるいは内部カタログ）で変更が反映されません。
書き換えた直後に必ず `tdf.RefreshLink` を呼び出すこと。これが、リンクを実際に再確立させるための魔法の呪文です。
—
初学者がハマりやすい「罠」と回避策
この仕組みを実装する際、多くの人が次のような壁にぶつかります。
- 罠1：ファイルパスの指定ミスで無限ループ・エラーになる
- 対策：コード内の `targetPath` をハードコーディング（`C:\Folder\data.accdb` と直接書くこと）せず、今回のコードのように `CurrentProject.Path`（今動いているフロントエンドと同じ場所）を基準にするか、外部の設定ファイル（INIやテキスト）から読み込ませるのがプロの作法です。
- 罠2：排他制御（誰かがファイルを開いている）によるエラー
- 対策：バックエンドファイルが他のユーザーによって排他ロックされていると、リンクの更新に失敗することがあります。エラーハンドラー（`On Error GoTo`）を必ず仕込み、システムが突然強制終了するのを防ぎましょう。
—
起動時に自動実行させるには？
このプロシージャを組んだだけでは、まだ手動で実行する必要があります。これを「完全自動化」するためには、次のいずれかの設定を行います。
1. Autoexecマクロを使う
- マクロの名前を `Autoexec` にして、アクションに `プロシージャの実行` (`RunCode`) を選択。関数名に `RepairLinkTables()` を指定します。これで、フロントエンドを開いた瞬間に一番最初にこのコードが走ります。
2. スタートアップフォームの `Form_Load` イベントに仕込む
- 最初に立ち上がるメイン画面の裏側でこっそり実行させるのもスマートです。
—
おわりに
ここをクリアすれば、Access VBAの「データソースとの付き合い方」の本質がグッと見えてきます。もうサーバーの移動におびえる必要はありません。
「リンクが切れたらプログラムが直してくれる」という安心感を手に入れたあなたのAccessアプリは、一段と頑健でプロフェッショナルなシステムへと進化しました。
日々のメンテナンスから解放され、よりクリエイティブな機能開発に時間を使いましょう。それでは、また次の極限知見でお会いしましょう！
