BOF と EOF のいずれかが True になっ

質問

アクセスVBAです。

rs.Open "Q内容", cn, adOpenStatic, adLockPessimistic
For intNo詳細 = 1 To rs.RecordCount
Call 詳細テーブル_rs_1行のレコードを生成する
rs.MoveNext
Next intNo詳細
---------------------------------------------------------
の様に、loopしているのですが、
intNo詳細の最高値が100の場合、100の時に、
「BOF と EOF のいずれかが True になっているか、または現在のレコードが削除されています。要求された操作には、現在のレコードが必要です。」
と言うエラーになっています。

ADOで更新・削除・追加は行っていません。

テーブルのデータを取得しているだけです。
それなのになぜ最後の値でエラーになるのでしょうか？

AbsolutePageとAbsolutePositionは、adPosＥＯＦになっています。

回答No.1

drum_KT · ベストアンサー

VBAはだいぶ触っていないので勘ですが。このループ構造だと、

intNo詳細 = rs.RecordCount = 100

の時も

rs.MoveNext

が呼ばれますよね。ここでエラーになるのでは？

お礼

ありがとうございました。

回答No.4

imogasi

http://psp8155.blog13.fc2.com/blog-entry-169.html
同じ現象に出会った人がいて、公表している人がるようだ。
これで疑問解決しませんか。
まずＷＥＢ照会をしてから質問するようにしたら。
（特に、ソフト利用で、エラーコメントが出ている場合は、ＭＳなりが出しているので、コメント文章は表現に揺れがなく、それの全体か主要な１部をコピペして、照会するのが有効だという経験をしている。エラー文章が長いほど、どれを言っているのか、特定できる。）

お礼

ありがとうございました。

回答No.3

山田 太郎（@f_a_007）

補足: 私が書く場合には

For intNo詳細 = 1 To rs.RecordCount
　↓
N=rs.RecordCount - 1
FOR I =0 TO N
　　・・・・・
NEXT I

理由１、ループの上限値を固定するため。
理由２、ループカウンターを他の処理に使うことも考えて。

と、２点だけ補足しておきます。

お礼

ありがとうございました。

回答No.2

山田 太郎（@f_a_007）

For intNo詳細 = 1 To rs.RecordCount
　↓
N=rs.RecordCount
FOR I =1 TO N
　　・・・・・
NEXT I

と書かないのには理由があるのだろうか？

＞ADOで更新・削除・追加は行っていません。

だとしたら

Call 詳細テーブル_rs_1行のレコードを生成する

の１行は？？？？？

＞AbsolutePageとAbsolutePositionは、adPosEOFになっています。

これは、エラーの原因だがループエラーの原因ではないことは明らかです。つまりは、

＞要求された操作には、現在のレコードが必要です。

ってこと。それを知るのは冒頭の疑問の答えが必要だと思います。

お礼

ありがとうございました。