VBA：Accessのリンクテーブルの接続先（リンク元）の変更方法（DAO）

by chasou_tech · 公開済み 2024年2月10日 · 更新済み 2024年2月10日

１．やりたいこと

　Accessのリンクテーブルの接続先・リンク元のパスを変更したい。

２．サンプルコード

サンプルコードは以下となります。
実行するとAccessのリンクテーブルの接続先・リンク元が変更されます。

VBA サンプルコード

Option Explicit Private Sub 実行3_Click() Dim dbs As DAO.Database Dim tdf As DAO.TableDef Set dbs = CurrentDb '変更したいリンクテーブルを指定' Set tdf = dbs.TableDefs("リンクテーブル_test1") 'リンクテーブルの元データとテーブルを指定' tdf.Connect = ";DATABASE=C:\Users\xxxx\元DB.accdb;TABLE=T_test1" 'リンクテーブルを更新' tdf.RefreshLink Set dbs = Nothing Set tdf = Nothing End Sub

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Option Explicit Private Sub 実行3_Click()     Dim dbs As DAO.Database     Dim tdf As DAO.TableDef        Set dbs = CurrentDb     '変更したいリンクテーブルを指定'     Set tdf = dbs.TableDefs("リンクテーブル_test1")          'リンクテーブルの元データとテーブルを指定'     tdf.Connect = ";DATABASE=C:\Users\xxxx\元DB.accdb;TABLE=T_test1"          'リンクテーブルを更新'     tdf.RefreshLink       Set dbs = Nothing     Set tdf = Nothing End Sub

◆関連記事

AccessVBA：【DAO】テーブルのインデックス作成・削除（CREATE INDEX・UNIQUE INDEX・DROP INDEX）

投稿: 2022年6月18日

【VBA】DAOを使ったテーブルのインデックスの作成と削除の方法について

AccessVBA：テーブルの存在チェック

投稿: 2022年6月1日

Accessにテーブルが存在するかどうかのチェック方法についての説明です。

---

• 次の記事 VBA：Accessのリンクテーブルの作成方法（DAO）
• 前の記事 VBA：Accessのリンクテーブルのリンク先のパス取得方法（DAO）

おすすめ

• 

  AccessVBA：【DAO】SQL実行。Insert・Update・Delete等サンプルコード

  2022年6月15日

   by chasou_tech · Published 2022年6月15日 · Last modified 2023年2月10日

• 

  VBA：フォルダの削除「RmDirステートメント」

  2022年6月27日

   by chasou_tech · Published 2022年6月27日 · Last modified 2023年2月10日

• 

  AccessVBA：【DoCmd】テーブルの作成、プロパティの設定

  2022年6月19日

   by chasou_tech · Published 2022年6月19日 · Last modified 2023年2月10日