メモのコツを教えてください!

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

[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を教えて下さい。
よろしくお願い致します。

A 回答 (1件)

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 で切り替える必要がなくなります。
    • good
    • 0
この回答へのお礼

nicotinism 様

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

関連するカテゴリからQ&Aを探す


おすすめ情報