異なるファイルのテーブルの移動及びリンク設定

質問

a.mdbとb.mdbとがあります
そしてa.mdbに「計画表」というテーブルがあります。
バージョンは97形式です

a.mdbのVBAのモジュールに、SQL文でコードを書きたいのですがどうすればいいのかわかりません
やりたいことは下記です

1.a.mdbからb.mdbへ計画表を移動
2.a.mdbに、移動したb.mdb内の計画表のリンクテーブルを作成

といった具合です

IN旬でCREATE TABLEを試してみましたがうまくいきません

よろしくおねがいします

回答No.1

mitarashi · ベストアンサー

標準モジュールに下記のようなコードでいかがでしょうか。
Access2000で試験済み。（97で動かなかったらご容赦下さい）
こういう操作を繰り返し行う用途を、後学のために教えていただけると幸いです。
Option Compare Database
Option Explicit

Sub test()
Dim mySQL As String
Dim linkDbPath As String
Dim tableName As String

linkDbPath = "C:\Documents and Settings\?????\b.mdb"
tableName = "計画表"
DoCmd.TransferDatabase acExport, "Microsoft Access", linkDbPath, acTable, tableName, tableName
mySQL = "DROP TABLE テーブル1"
'Microsoft DAO 3.6 Object Library に参照設定要
CurrentDb.Execute mySQL, dbFailOnError
DoCmd.TransferDatabase acLink, "Microsoft Access", linkDbPath, acTable, tableName, tableName
End Sub

回答No.2

mitarashi

#1です。修正漏れがありました。
mySQL = "DROP TABLE テーブル1"
↓
mySQL = "DROP TABLE " & tableName
に変更して下さい。