hiroton
2020/10/29 (木) 16:29:45
16ef8@f966d
フォームの一番上を表示する
DoCmd.GoToPage 1, 0, 0
そもそも表示位置が変わるような削除処理をしない
Me!サブフォーム.Form.Recordset.Delete
通報 ...
ネットで検索したコードで削除処理しておりましたが、教えていただいたコードで解決しました。ありがとうございます。
このコードで続けざまにサブフォームのレコードを選択して(どこかのテキストボックスにカーソルを置いて)削除を実行していると、時々「カレントレコードが存在しません」というデバッグエラーが発生します。
何か解決方法はありますでしょうか。
カレントレコードとは現在選択中のレコードです
DAO レコードセットからレコードを削除する
カレントレコードを削除した状態で再度(カレントレコードを)削除しようとすれば当然「カレントレコードが存在しません」となります。時々ということは他の処理の影響でカレントレコードが移動しているのでしょう(エラーが出ないほうがたまたまうまく動いているというだけです)
リンク先にある通り
のようにカレントレコードを移す処理を入れてあげればエラーは出ないと思います