AccessのVBAでパラメータクエリー設定

質問

お世話になります。
AccessのVBAで質問させてください。

「クエリーA」に設定している「ID1」のパラメータを
「テーブルA」の「IDX」の値を設定したいと思っております。

「ID1」にパラメータ2を設定する方法は分かったのですが、
下記の2つの方法がわかりませんでした。
・「ID1」のパラメータを「テーブルA」の「IDX」の値を設定する方法
・「テーブルA」は複数レコードあるので、その数だけfor文的なループで回したい

お手数で申し訳ございませんが、
「クエリーA」に設定している「ID1」のパラメータを
「テーブルA」の「IDX」の値を設定する方法VBAコードを
教えて頂ければと思います。

本当に勝手いいますが、コードを記載して頂ければと思います。
宜しくお願い致します。

-----「ID1」にパラメータ2を設定する方法-----
Set qdf = dbs.QueryDefs("クエリーＡ")
With qdf
.Parameters("ID") = 2
Set rst = .OpenRecordset
End With

回答No.2

tamasub · ベストアンサー

>>.Parameters("ID") = rs.Fields("idx").Value
>>で満たせるでしょうか?

　　試してませんけど、それでいけると思いますよっ。なんでもまずやってみることが大切と思いますよっ(^^)b
がんばってくださいませm(__)m　また、つまずいたら、質問してください。

回答No.1

tamasub

ご質問の趣旨が今一つ理解できないので、恐らく見当外れの回答だとは思いますが・・・。
テーブルAをループで回して値を取得するサンプルを作成してみました。ループの中でパラメータを
設定したいということですかね？？(^^;)

Dim db As DAO.Database
Set db = CurrentDb

Dim rs As DAO.Recordset

Set rs = db.OpenRecordset("テーブルA", dbOpenTable)

Do Until rs.EOF
Debug.Print rs.Fields("idx").Value
'==========================================
' ここに必要な処理を記述
'==========================================
rs.MoveNext
Loop

rs.Close
db.Close

お礼

ご返事ありがとうございます。

>ご質問の趣旨が今一つ理解できないので、恐らく見当外れの回答だとは思いますが・・・。
基本知識が欠けていて申し訳ございません。

頂いたソースの下記場所で、"テーブルA"のレコード分、Loopするという認識で
正しいでしょうか？
>Do Until rs.EOF

もし、そうでしたら、残る疑問の
>「ID1」のパラメータを「テーブルA」の「IDX」の値を設定する方法
は、
.Parameters("ID") = rs.Fields("idx").Value
で満たせるでしょうか?

お手数ですがご返事宜しくお願い致します。