実行時エラー3021「BOFとEOFのいずれかTR

質問

Sub test()

Set cn = CurrentProject.Connection

rs.Open "T分類", cn, adOpenStatic, adLockPessimistic
rs.Filter = "中分類 = '不明' And (大分類 <> '不明')"

For i = 1 To rs.RecordCount

str大分類 = rs("大分類")

rs("中分類") = str大分類 & "(不明)"
rs.Update

rs.MoveNext
Next

rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing

End Sub

アクセスADOで上記のようなコードなのですが
よく意味の分からないエラーが発生します。

コードの内容は
大分類が不明ではなく中分類が不明なら
中分類のレコードに大分類の値+不明にする
です。

例えば該当のレコードが8レコードあれば
i＝5の時に、

実行時エラー3021「BOFとEOFのいずれかTRUE になっているか、 または現在のレコードが削除されています。
要求された操作には、 現在のレコードが必要です。」

が発生します。

規則としては
rs.RecordCountの半分の値までは大丈夫ですが
rs.RecordCountの半分+1の時に
上記のエラーが発生します。

ADOでデータの追加をする時にAddNewメソッドを入れ忘れた場合も
上記と同じエラーが発生しますが
今回のコードはフィルターをかけ
更新したいレコードを掴んでいるので
AddNewメソッドは不要だと思っています。

回答No.3

okgoo3 · ベストアンサー

フィルターで処理をしているのでレコードを更新するたびにレコード群の顔ぶれが動的に変化してしまっている。
全権取得してからフィルターを掛けるのではなく、RS.Open の段階で WHERE を使ったレコードセット取得を行えばよい。

またはわざわざ1件ずつループ処理せずとも、条件に合うレコードを一気に更新するよう UPDATE を発行してしまう。

お礼

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

回答No.2

Hayashi_Trek

Update かけたことにより、該当レコードがレコードセットから排除されているようです。
（更新によりFilter条件から外れる）
レコードセットに含まれるレコード数が減ったときに、
カレントレコードが変更したレコードではなく、先頭から何番目で管理されているように見える。
レコード削除の場合と同じように、レコードセットの後ろから処理してみてはどうか？

お礼

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

回答No.1

ushi2015

こんにちは
For i = rs.RecordCount To 1 Step -1
にすれば出来そうな気もしますが、
Sub test()
　　Dim DB As DAO.Database
　　Dim sSql As String

　　Set DB = CurrentDb

　　sSql = "UPDATE T分類 SET T分類.中分類 = [T分類]![大分類] & ""(不明)"" "
　　sSql = sSql & "WHERE [T分類].大分類<>""不明"" AND [T分類].中分類=""不明"";"

　　DB.Execute (sSql)

End Sub
のように、Executeを使ってみてはどうですか？

お礼

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