ACCESS VBAでSeekメソッドの処理記述

ACCESSでテーブルにIndexを定義しています。
（重複ありで）

そのIndexに入っているデータAというのが３件ほどあり、それを全て検索して、処理したいのです。

そのためにseekを使って、最初のデータを検索し、次々のデータに行きたいのですが、その場合、対象データの１件目を検索して、次のレコードに移動するには、どのように記述すればよいのでしょうか。

本などには、
If rs.EOF thenのような書き方ばかりで１件の処理の場合のみのサンプルしかないのです。

よろしくお願いします。

No.3 回答者： 16August 回答日時： 2006/08/21 15:31

質問の回答ではありませんが、検索時間に問題があるなら、ＳＱＬを書いたほうがよい場合があります。

strSQL = "SELECT * FROM TABLENAME WHERE INDEX = 'A';"
RST.OPEN strSQL,............
DO WHILE NOT RST.EOF
......................
LOOP

クエリでも大丈夫です。

No.2 回答者： noname#22222 回答日時： 2006/08/21 14:50

基本形は、次のようです。

rstXXXX.Index = "xxxxx"
rstXXXX.Seek "=", A

Do Until rstXXXX.NoMatch
　　・・・・・
　　・・・・・
　　rstXXXX.Seel "=", A
Loop

No.1 回答者： PrintScree 回答日時： 2006/08/21 14:13

FindFirst、FindNextではダメですか？