AccessのVBAでSQLのINSERTを使い、条件に合ったレコードを他のテーブルから追加

INSERT INTO 追加先テーブル名（追加先フィールド名） SELECT 追加元フィールド名 FROM 追加元テーブル名 WHERE 条件

実行すると、追加元フィールドの条件に合ったデータが追加されます。
もし、追加元テーブルに条件に合うレコードが10件あった場合、追加先テーブルにはその10件が追加されます。

Homeへ　

SQL Tipsへ

サンプルソフト
「T_名簿」テーブルの「名前」フィールドに、「T_アンケート」テーブルの「氏名」フィールドから女性のみ追加登録します。
「氏名」,「年齢」テキストボックスに入力、性別を選択すると、「T_アンケート」テーブルに登録されます。
「実行」ボタンをクリックすると、性別=1(女)のみが「T_名簿」に追加登録されます。

Option Compare Database

Private Sub コマンド8_Click()
    Dim SQL As String
    SQL = "INSERT INTO T_名簿 (名前) SELECT 氏名 FROM T_アンケート WHERE 性別 = 1"
    CurrentDb.Execute SQL, dbFailOnError
End Sub

サンプルソフトのダウンロード

AccessのVBAでSQLのINSERTを使い、条件に合ったレコードを他のテーブルから追加｜フォーム実行例

他のテーブルから追加： INSERT INTO SELECT FROM WHERE

AccessのVBAでSQLのINSERTを使い、条件に合ったレコードを他のテーブルから追加｜フォーム実行例

他のテーブルから追加 ： INSERT INTO SELECT FROM WHERE

他のテーブルから追加： INSERT INTO SELECT FROM WHERE