レコードを削除してから、削除されたレコードの前のレコードに移動しようとしています。しかし、私はそれを機能させることができません。
実行時エラー 2046 コマンドまたはアクション 'DeleteReord' は現在使用できません。
ここで何が間違っていますか?これをどのように処理すればよいですか?
Private Sub Command24_Click()
On Error GoTo Err_Command24_Click
If Me![dbo_HR_Trainings Subform].Form.Recordset.RecordCount > 0 Then
MsgBox "You cannot delete a category that has members.", vbOKOnly
GoTo Exit_Command24_Click
Else
Select Case MsgBox("Are you sure you want to delete this category?", vbYesNo, "Are you sure?")
Case vbYes
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.GoToRecord , , acPrevious
Case Else
End Select
End If
Exit_Command24_Click:
Exit Sub
Err_Command24_Click:
MsgBox Err.Description
Resume Exit_Command24_Click
End Sub