質問: Accessの仕様について、教えてください。
回答: やりたい事は、リンクテーブルのリンク元のテーブルをコピーしたいと言う事でしょうか? その場合です。 「テスト」と言うリンクテーブルのリンク元のテーブルをコピーして「てすと2」と言うテーブル名にする場合です。 Sub sample() Dim db As Database Dim tbl As TableDef Set db = CurrentDb Set tbl = db.TableDefs("テスト") DoCmd.TransferDatabase acImport, "Microsoft Access", Split(tbl.Connect, "=")(1), acTable, tbl.SourceTableName, "てすと2" End Sub