AccessのVBAでSQLのINSERTを使い、条件に合ったレコードを他のテーブルから追加｜フォーム実行例
他のテーブルから追加 ： INSERT INTO SELECT FROM WHERE
INSERT INTO 追加先テーブル名 （追加先フィールド名） SELECT 追加元フィールド名 FROM 追加元テーブル名 WHERE 条件
実行すると、追加元フィールドの条件に合ったデータが追加されます。
もし、追加元テーブルに条件に合うレコードが10件あった場合、追加先テーブルにはその10件が追加されます。
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
サンプルソフトのダウンロード
実行すると、追加元フィールドの条件に合ったデータが追加されます。
もし、追加元テーブルに条件に合うレコードが10件あった場合、追加先テーブルにはその10件が追加されます。
サンプルソフト
「T_名簿」テーブルの「名前」フィールドに、「T_アンケート」テーブルの「氏名」フィールドから女性のみ追加登録します。
「氏名」,「年齢」テキストボックスに入力、性別を選択すると、「T_アンケート」テーブルに登録されます。
「実行」ボタンをクリックすると、性別=1(女)のみが「T_名簿」に追加登録されます。
「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
サンプルソフトのダウンロード
Home 
SQL TipsCopyright(C) FeedSoft