【上級】リンクテーブルの「パスワード保存」をVBAで安全に制御する
Accessをフロントエンド、SQL Serverや別機のAccess（ACCDB）をバックエンドとするクライアント・サーバー構成において、避けて通れないのが「リンクテーブルの接続管理」だ。
特に、パスワード付きの外部データベースに接続する際、「リンクテーブルマネージャーでパスワードを保存する」という安易なチェックボックスに依存していないだろうか？
その設計、明日のシステム保守において致命的なセキュリティホールとメンテナンス地獄を生む。
今回は、Access VBAを用いてリンクテーブルの接続文字列を動的に制御し、パスワードをハードコーディングすることなく、かつ安全に再接続を完了させる極限のアーキテクチャを伝授する。
—
なぜ「パスワード保存」のチェックは悪手なのか？
AccessのUI上からリンクテーブルを作成する際、「パスワードを保存する」にチェックを入れると、そのパスワードは暗号化された状態でAccessのシステムテーブル（内部レジストリ）に保持される。
一見、問題ないように思えるが、開発現場のリーダーの視点から言えば、これは以下の重大なリスクを孕んでいる。
1. 認証情報の硬直化: データベースのパスワード変更時に、全ユーザーのフロントエンド側で手動再リンク、あるいは一斉配布の再作業が発生する。
2. セキュリティのブラックボックス化: 接続文字列がVBAから見通せないため、環境移行（テスト環境から本番環境への切り替えなど）で必ずバグる。
3. Jet/Accessエンジンの仕様変更への脆弱性: Officeのアップデートにより、内部の接続情報保持仕様が変わり、ある日突然リンクが切れるトラブルが後を絶たない。
プロのエンジニアであれば、「接続文字列はVBAで一元管理し、実行時にメモリ上で解決する」のが鉄則である。
—
堅牢な設計：動的再接続のメカニズム
安全にリンクテーブルを制御するためのアプローチはこうだ。
1. パスワードはコードに直書きしない: 実行時に環境変数、セキュアなINIファイル、あるいはローカルの暗号化された設定テーブルから取得する。
2. TableDef.Connectプロパティを書き換える: テーブル定義の接続文字列をプログラムから動的に再設定する。
3. RefreshLinkメソッドで実体を同期する: 変更した接続情報を元に、バックエンドへのハンドシェイクを実行する。
これを実装した、実務でそのまま使えるプロダクションコードを公開する。
—
プロダクションコード：セキュア・リリンク・エンジン
以下のモジュールを標準モジュールに配置し、アプリケーションの起動時（AutoexecマクロやメインフォームのOpenイベント）に呼び出すこと。
Option Compare Database
Option Explicit
‘ ==============================================================================
‘ リンクテーブルセキュア再接続モジュール
‘ Architecture & Implementation by Expert Access VBA Architect
‘ ==============================================================================
Public Sub RefreshSecureLinkedTables()
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim targetConnString As String
Dim successCount As Long
Dim errorCount As Long
On Error GoTo ErrorHandler
Set db = CurrentDb()
successCount = 0
errorCount = 0
‘ 1. 接続文字列の構築
‘ ※実際の運用では、パスワードは外部の安全なソース（暗号化設定ファイル等）から取得してください。
‘ ここではSQL Server (ODBC Driver) を例にとります。
targetConnString = BuildSecureConnectionString( _
ServerName:=”db.example.com\SQLEXPRESS”, _
DatabaseName:=”EnterpriseDB_Prod”, _
UserName:=”AppUser_Service”, _
Password:=GetSecurePassword() _
)
‘ 2. 全TableDefを走査し、外部接続テーブルのみを対象に再接続を実行
For Each tdf in db.TableDefs
‘ 外部テーブル（Connectプロパティに文字列があるもの）を判定
If Len(tdf.Connect) > 0 Then
‘ ローカルの別Accessファイルか、ODBC接続かを判定して処理を分岐
If InStr(1, tdf.Connect, “ODBC;”, vbTextCompare) > 0 Then
‘ 接続文字列を動的置換
tdf.Connect = targetConnString
‘ リンクの更新を実行（ここでバックエンドへの認証が行われる）
tdf.RefreshLink
successCount = successCount + 1
End If
End If
Next tdf
Debug.Print “【リリンク成功】 処理完了: ” & successCount & ” テーブル”
Exit Sub
ErrorHandler:
‘ 接続失敗時のログ出力と例外処理
MsgBox “データベースとの接続に失敗しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “致命的エラー”
‘ セキュリティ配慮：エラーメッセージにパスワードを含めないこと
End Sub
‘ ==============================================================================
‘ 接続文字列ビルダー（カプセル化）
‘ ==============================================================================
Private Function BuildSecureConnectionString(ServerName As String, DatabaseName As String, UserName As String, Password As String) As String
Dim connStr As String
‘ Modern ODBC Driver (ODBC Driver 17 or 18 for SQL Server) を想定
connStr = “ODBC;DRIVER={ODBC Driver 17 for SQL Server};” & _
“SERVER=” & ServerName & “;” & _
“DATABASE=” & DatabaseName & “;” & _
“UID=” & UserName & “;” & _
“PWD=” & Password & “;” & _
“Trusted_Connection=No;”
BuildSecureConnectionString = connStr
End Function
‘ ==============================================================================
‘ パスワードプロバイダ（スタブ）
‘ ==============================================================================
Private Function GetSecurePassword() As String
‘ 【注意】実務ではここに平文でパスワードを書かないこと。
‘ Windows資格情報マネージャーからの取得、または暗号化されたローカルDBからの復号値を返します。
GetSecurePassword = “SuperSecretPassword_202X!”
End Function
—
アーキテクトからの実践的アドバイス
1. トランザクションとエラーハンドリングの罠
`tdf.RefreshLink` は、バックエンドへのネットワーク通信を伴う。そのため、社内LANの瞬断やVPNの切断によって容易にランタイムエラー（実行時エラー）を引き起こす。
必ず `On Error GoTo` を実装し、ユーザーがいきなりVBAのデバッグ画面に放り出されないよう、優しくかつ堅牢なフェイルセーフを組むこと。
2. バックエンドがAccess（ACCDB）の場合
もしバックエンドがSQL Serverではなく共有フォルダ上のAccessである場合、接続文字列の構造は以下のようになる。
‘ Jet / ACE データベースエンジンの場合
tdf.Connect = “;DATABASE=C:\Path\To\Backend_Be.accdb;Jet OLEDB:Database Password=YourPasswordHere;”
この場合も同様に、ファイルパスやパスワードをコードから動的に注入することで、開発環境（Dev）と本番環境（Prod）の切り替えがワンライナーで可能になる。
3. パスワードのハードコーディング禁止を徹底する
どれほど優れたVBAコードを書いても、`GetSecurePassword` の中に平文で `”P@ssw0rd”` などと書かれていたら、コンパイル後のACCDEファイルであっても逆コンパイルツールで容易に解析される。
Windowsの「資格情報マネージャー（Credential Manager）」のAPIを叩くか、環境変数から取得する仕組みを組み合わせるのが、プロフェッショナルとしての最低限の責務である。
—
総括
Access VBAにおけるリンクテーブル制御は、単なる「おまじない」ではない。
システムのライフサイクル、セキュリティ要件、そして保守性を左右する重要なアーキテクチャの一部である。
「動けばいい」というアマチュアのコードから脱却し、環境変化に強く、保守性の高いプロフェッショナルなデータベースアプリケーションを構築してほしい。
