No.1ベストアンサー
- 回答日時:
DAOを使用した方法ですが...
適当なフォームにコンボボックスとコマンドボタンを配置して下さい
下記コードによって、掲題の事は可能だと思われます
アレンジすれば、リンクテーブルの作成とかも可能です
※参照設定にて「Micorosoft DAO *.* Object Library」をチェックして下さい
'-------------------------------------------------
Private Sub Form_Open(Cancel As Integer)
Dim Dbs As DAO.Database
Dim Tdf As DAO.TableDef
Dim strTbls As String
Set Dbs = CurrentDb
'リンクテーブル一覧作成
strTbls = ""
For Each Tdf In Dbs.TableDefs
If Left(Tdf.Name, 4) <> "MSys" And Tdf.Connect <> "" Then
strTbls = strTbls & Tdf.Name & ";"
End If
Next
Set Dbs = Nothing
'コンボボックスにリンクテーブルを設定
Me.cmbTableName.RowSourceType = "Value List"
Me.cmbTableName.RowSource = strTbls
End Sub
Private Sub cmdInportTable_Click()
Dim Dbs As DAO.Database
Dim Tdf As DAO.TableDef
Dim strSrcDbs As String
Dim strSrcTbl As String
Dim strCpyTbl As String
'テーブルが指定されなければ抜ける
If IsNull(Me.cmbTableName.Value) = True Then Exit Sub
'対象テーブル設定
Set Dbs = CurrentDb
Set Tdf = Dbs.TableDefs(Me.cmbTableName.Value)
'リンク先DB、リンクテーブル、インポート後の名前指定
strSrcDbs = Mid(Tdf.Connect, 11)
strSrcTbl = Tdf.SourceTableName
strCpyTbl = Tdf.SourceTableName
'対象リンクテーブルをインポート
Dbs.TableDefs.Refresh
DoCmd.TransferDatabase _
acImport, _
"Microsoft Access", _
strSrcDbs, _
acTable, _
strSrcTbl, _
strCpyTbl
'完了メッセージ
MsgBox "[" & Tdf.Name & "] をインポートしました"
Set Tdf = Nothing
Set Dbs = Nothing
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) pythonでsqlight勉強中、クエリー結果の利用法教えて下さい 1 2022/04/28 20:38
- Visual Basic(VBA) Access VBAから使用したExcelプロセスを閉じる方法について 4 2022/06/08 17:50
- Access(アクセス) Accessテーブルの結合で別々のテーブルのフィールドを組み合わせて値を出す方法について 2 2022/07/20 19:43
- その他(データベース) Accessのリンクテーブルについて 1 2023/05/20 16:10
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- MySQL データベースの複製の仕方(mysql) 2 2023/05/30 18:24
- Access(アクセス) Access 登録ボタンからサブフォームの更新 1 2022/07/22 10:23
- SQL Server ACCESSで表が作りたく、そのためのSQL文や設定方法を教えてください。 1 2022/08/15 12:28
- SQL Server DBのテーブルの設計ができず困っています。 2 2023/06/29 16:43
- MySQL [1000地域 × 10カテゴリー = 1万件のテーブル]!グループ化? 1 2023/06/14 23:56
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
Accessでリンクテーブルからローカルテーブルに起動するたびに更新したい
Access(アクセス)
-
Accessで別mdbのテーブルをコピー
その他(プログラミング・Web制作)
-
Accessでレコードを別テーブルへコピーするには
Access(アクセス)
-
-
4
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
5
「RunSQL」と「Execute」の違い
Access(アクセス)
-
6
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
7
Access サブフォームでの選択行の取得
その他(データベース)
-
8
AccessVBA でテーブルをインポートする方法
その他(データベース)
-
9
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
10
AccessのDAO.ExecuteとDoCmd.RunSqlの違いについて
その他(データベース)
-
11
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
12
Accessでテーブルからテーブルにデータをコピーしたい
その他(データベース)
-
13
Accessでのテーブルのコピー
その他(データベース)
-
14
サブフォームを非表示させる方法を教えて下さい
その他(Microsoft Office)
-
15
ACCSESS2013VBA フォームのレコードソースを変更する
その他(データベース)
-
16
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
17
ACCESS 複数のフォームから同一テーブル参照
Access(アクセス)
-
18
Accessで、1つの項目に複数の置換えを1度でするには?
Access(アクセス)
-
19
AccessVBAで作成したExcelファイルを削除する方法は?
Visual Basic(VBA)
-
20
アクセスVBAのMe!と[ ]
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessでテーブル名やクエリ名...
-
ACCESS 売上管理 価格改定につ...
-
リンクテーブルを CopyObject ...
-
ツリー構造をRDBで表現するには?
-
SQLで条件指定結合をしたいがNU...
-
2つのmdb内にある同名テーブル...
-
SQL: SELECT UNIONすると文字数...
-
Accessでvlookupみたいなことは...
-
Accessでテーブルからテーブル...
-
ODBCで接続するとDBに変更/追加...
-
テーブル作成クエリで主キーを設定
-
ACCESSで同じテーブルに...
-
Accessの追加クエリで既存のテ...
-
access テーブル内のレコード...
-
Accessレコードの追加や変更が...
-
ファイルメーカー
-
ACCESSに同時アクセス(編集)を...
-
MS ACCESS でのメッ...
-
Accessクエリでの、LIKE条件
-
DAOのTableDefs("TblName").Con...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessでテーブル名やクエリ名...
-
access テーブル内のレコード...
-
SQLで日付を条件に削除したい
-
Accessでvlookupみたいなことは...
-
ACCESSで指定されたテーブルか...
-
Accessレコードの追加や変更が...
-
Accessでテーブルからテーブル...
-
Accessクエリでの、LIKE条件
-
ACCESSに同時アクセス(編集)を...
-
3つの表を1つに縦に連結する
-
ツリー構造をRDBで表現するには?
-
SQLで条件指定結合をしたいがNU...
-
2つのテーブルを比較して一致し...
-
Accessの追加クエリで既存のテ...
-
リンクテーブルを CopyObject ...
-
デザインビューで、連結式 を...
-
ODBCで接続するとDBに変更/追加...
-
Accessで、複数のテーブルで随...
-
時間の足し算
-
翌営業日までの日数をSQLで求め...
おすすめ情報