Tips12 - SQL文 条件に合ったレコードを他のテーブルから追加

dim SQL as String
SQL = "INSERT INTO 追加先テーブル名 （追加先フィールド名） SELECT 追加元フィールド名 FROM 追加元テーブル名 WHERE 条件"
CurrentDb.Execute SQL, dbFailOnError
実行すると、追加元フィールドの条件に合ったデータが追加されます。
もし、追加元テーブルに条件に合うレコードが10件あった場合、追加先テーブルにはその10件が追加されます。