vba - 最初のレコードを削除する際の問題

Question

追加されたレコードのテーブルから最初のレコードを削除しようとすると、次のエラーが発生します。

実行時エラー '3021' 現在のレコードがありません

これは、最初のレコードを削除しようとしたときにのみ発生します。2 番目または 3 番目を削除しようとすると、コードは正常に動作します。

Me.Labour_subform.Form.Recordset.Delete 

Me.Labour_subform.Form.Recordset.MoveNext

これは、ボタンの on_click のコードです。これを修正する方法を知っている人はいますか？

score 1 · Accepted Answer

レコードセットを扱っているときは、常に EOF をチェックしてから最初のレコードに移動します。

If not Me.Labour_subform.Form.Recordset.EOF then
     Me.Labour_subform.Form.Recordset.MoveFirst
     'Then delete or do whatever
end if

1 に答える 1