Access レコード削除時に「カレントレコードがありません」エラーが表示されてしまう
いつもお世話になっております。
フォームに「レコードの削除」ボタンを作成して実行したところ、
「カレントレコードがありません」と表示されてしまいます。
削除そのものは、正しく行われている（削除したいレコードが削除されている）のですが、
なぜ、そのようなメッセージが出てしまうのか分かりません。
他のフォームでは、削除するレコードが最後のレコードで無い限り、
そのようなメッセージは出ません。
また、そのフォームのレコードソースになっているクエリでは、
問題なく削除が実行されます。
削除ボタンの作成は、コントロールウィザードを使って行いました。
ちなみにVBAでは下記のような記述になっています。
Private Sub 削除テスト_Click()
On Error GoTo Err_削除テスト_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_削除テスト_Click:
Exit Sub
Err_削除テスト_Click:
MsgBox Err.Description
Resume Exit_削除テスト_Click
End Sub
メッセージを表示させないためには、どのようにしたら良いでしょうか？？
また、最後のレコードを削除した場合にも、
「カレントレコードがありません」メッセージを表示させなくするには
どのようにしたら良いでしょうか？
教えてください。
お礼
ありがとうございました。 いけました！