バラメータクエリVBAで実行

質問

アクセス初心者です。
バラメータクエリの変数をVBAで渡すにはどうしたらよいでしょうか？
例えば、テーブル1に、NOフィールド（1から100程度の整数）と、価格フィールドがあります。
以下のパラメータクエリをアクセスVBAで実行したいのですが、どう書けばよいでしょうか？（抽出条件　NO＝IのIをVBAで定義して結果テーブルに保存）
'---------------------------------------------------------------
'VBAで実行したいパラメータクエリ
'SELECT テーブル1.[NO], テーブル1.価格 INTO 結果テーブル
'FROM テーブル1
'WHERE (((テーブル1.[NO])=[I]));
'---------------------------------------------------------------
Dim I As Integer
I=3
Dim mySQL As String
mySQL = "SELECT テーブル1.[NO], テーブル1.価格 INTO 結果テーブル FROM テーブル1 WHERE (((テーブル1.[NO])=[I]));"
この後を教えて下さい。

回答No.1

bonaron · ベストアンサー

いわゆるパラメータクエリではありませんが、
Dim I As Integer
Dim mySQL As String
I=3
mySQL = "SELECT テーブル1.[NO], テーブル1.価格 INTO 結果テーブル FROM テーブル1 WHERE テーブル1.[NO]=" & I
DoCmd.SetWarning False
DoCmd.RunSQL mySQL
DoCmd.SetWarning True
が、簡単です。