Access VBAでSQLを実行するコードを掲載しています。サンプルソフトもダウンロードできます。
INSERT INTO 追加先テーブル名 (追加先フィールド名) SELECT 追加元フィールド名 FROM 追加元テーブル名
実行すると、追加元フィールドの全データが追加されます。
もし、追加元テーブルに10件データがあった場合、追加先テーブルにはその10件が追加されます。
実行サンプルソフト
「T_名簿」テーブルの「名前」フィールドに、「T_アンケート」テーブルの「氏名」フィールドから追加登録します。
「氏名」,「年齢」テキストボックスに入力すると、「T_アンケート」テーブルに登録されます。
「実行」ボタンをクリックすると、「T_名簿」に追加登録されます。
SQLを実行するAccess VBA
Option Compare Database
Private Sub コマンド8_Click()
Dim SQL As String
SQL = "INSERT INTO T_名簿 (名前) SELECT 氏名 FROM T_アンケート"
CurrentDb.Execute SQL, dbFailOnError
End Sub