VBA：Accessのリンクテーブルの作成方法（DAO）
１．やりたいこと
VBAのDAOを使って以下のように他のAccessのテーブルからリンクテーブルを作成したい。
２．サンプルコード
DAO使ったサンプルコードは以下となります。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
Option Explicit Private Sub 実行4_Click() Dim dbs As DAO.Database Dim tdf As DAO.TableDef '開いているAccess' Set dbs = CurrentDb '他のAccessの場合' 'Set dbs = OpenDatabase("C:\Users\xxxx\ツール.accdb")' '作成したいリンクテーブル名' Set tdf = dbs.CreateTableDef("リンクテーブル_test1") 'リンク元を指定' tdf.Connect = ";DATABASE=C:\Users\xxxx\元DB.accdb" 'リンクテーブルの元データのテーブル名を指定' tdf.SourceTableName = "T_test1" dbs.TableDefs.Append tdf Set dbs = Nothing Set tdf = Nothing End Sub |
◆関連記事
AccessVBA：【DAO】テーブルのインデックス作成・削除（CREATE INDEX・UNIQUE INDEX・DROP INDEX）
【VBA】DAOを使ったテーブルのインデックスの作成と削除の方法について
