アクセス2013MoveNextでエラーになります

質問

Me.Recordset.MoveFirst
i = 1
While (Not Me.Recordset.EOF)
Me.フィールド = i
i = i + 1
Me.Recordset.MoveNext
Wend

>Me.Recordset.MoveNext
ここで、アクセス2010ではエラーになりませんが、アクセス2013でエラーになります。

> i = i + 1
この箇所にブレークポイントを入れて１回１回ストップ、再実行させるとエラーになりません。

なぜでしょう？対処法がありましたらご教授を。

回答No.1

NotFound404 · ベストアンサー

Access2013は持ち合わせていませんが

Dim Rs As Dao.recordset
Set Rs=Me.recordset ’または、Set Rs=Me.recordsetClone
RS.MoveFirst
i = 1
While (Not Rs.EOF)
Rs.edit
Rs("フィールド") = i
i = i + 1
Rs.update
Rs.MoveNext
Wend

だと？

お礼

自己解決しました。

ご教授頂いた方法も試したのですがダメでした。

i = 1
DoCmd.GoToRecord , "", acFirst
While (Me.CurrentRecord < Me.Recordset.RecordCount)
Me.フールド = i
i = i + 1
DoCmd.GoToRecord , "", acNext
Wend

これで、今のところエラーは出なくなりました。

ありがとうございます。