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

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

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

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

スポンサーリンク




BackHomeへ BackSQL 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

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

スポンサーリンク




BackHomeへ BackSQL Tipsへ

Copyright(C) FeedSoft