AccessリンクテーブルをVBAで更新する方法｜トラブル回避の具体例付き解説

Accessでリンクテーブルを扱う際、VBAを使用してデータを更新しようとすると、うまく反映されないケースに遭遇することがあります。この記事では、リンクテーブルと通常のテーブルの違いを理解したうえで、VBAでの適切な更新方法を具体例付きで解説します。特に外部データベースと接続されているリンクテーブルへの書き込みに失敗する原因とその対処法に焦点を当てています。

リンクテーブルとは？通常のテーブルとの違い
リンクテーブルが更新できない主な原因
VBAでリンクテーブルを更新する基本構文
リンクテーブルの更新ができないときの対処法
リンクテーブルを更新する際の注意点とベストプラクティス
まとめ：リンクテーブル更新のポイントを押さえたVBA運用を

リンクテーブルとは？通常のテーブルとの違い

Accessにおけるリンクテーブルとは、別のデータベースや外部ファイル（例：Excel、SQL Serverなど）にあるテーブルを、現在のAccessデータベースから参照できるようにしたものです。リンクテーブルは実体が外部にあり、Access内には接続情報のみが存在します。

通常のテーブルはMDBまたはACCDBファイル内に存在し、直接データの追加・更新・削除が可能です。一方、リンクテーブルは外部の接続先によって制約が異なり、更新可能かどうかはその接続先に依存します。

リンクテーブルが更新できない主な原因

リンクテーブルが更新できないケースは以下のような原因が考えられます。

リンク先のデータベースが読み取り専用で接続されている
リンク先に主キーが設定されていない
ファイルが他のユーザーによってロックされている
ODBC接続やドライバーの設定による制限

特にExcelファイルなどにリンクしている場合、主キーの概念がないため、更新操作に制限がかかることが多いです。

VBAでリンクテーブルを更新する基本構文

リンクテーブルも通常のテーブルと同様に、VBAで更新するには以下のような構文を使用します。ただし、リンク先が更新を許可していることが前提となります。

Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb()
Set rs = db.OpenRecordset("リンクテーブル名", dbOpenDynaset)

If Not (rs.EOF And rs.BOF) Then
    rs.MoveFirst
    Do Until rs.EOF
        rs.Edit
        rs!Status = "完了"
        rs.Update
        rs.MoveNext
    Loop
End If

rs.Close
Set rs = Nothing
Set db = Nothing

重要なのは、rs.Update を必ず呼び出して変更を確定させることです。