アクセスVBA 追加クエリ

下記クエリが一つあります。

[Q_商品]

ID
商品名
価格
色
サイズ
重さ
送料
備考

[Q_商品]から、[T_テスト]をテーブルの作成から作りました。

[T_テスト]は、毎回利用する時に、すべてデリートして、[Q_商品]のデータを追加したいです。
[T_テスト]のデータの、すべてデリートは下記VBAでできました。

Private Sub コマンド40_Click()
'システムメッセージの非表示
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE FROM T_テスト"
'システムメッセージの表示
DoCmd.SetWarnings True
End Sub

[Q_商品]のデータを追加するVBAを教えて下さい。
よろしくお願い致します。

No.1 ベストアンサー 回答者： nicotinism 回答日時： 2013/08/26 14:38

Q_商品クエリは選択クエリでしょうか。

Q_商品とT_テストのフィールド名・フィールドサイズが同じなので
currentdb.execute "insert into [T_テスト] select * from [Q_商品]",dbfailonerror
で機能するかと思います。

>'システムメッセージの非表示
>DoCmd.SetWarnings False
>DoCmd.RunSQL "DELETE FROM T_テスト"
>'システムメッセージの表示
>DoCmd.SetWarnings True
は、
currentdb.execute "DELETE FROM T_テスト" ,dbfailonerror
だと確認メッセージを出さずに進行します。
Setwarnings で切り替える必要がなくなります。

この回答へのお礼

nicotinism　様

回答ありがうございます。
解決することができました。

お礼日時：2013/08/26 18:19