レコードを削除して前に移動しません。

Question

レコードを削除して、削除されたレコードの前に移動しようとしています。しかし、私はそれが動作するようにすることはできません、そして今私は得ている

実行時エラー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 

Answer 1

デバッグモードでエラーが表示されるようです。 DoCmdコマンドにブレークポイントを設定しないでください。これは常にが失敗します。

そうでない場合は、ここであなたがブックマークを使用することによって、あなたが望むものを達成することのいずれかの方法を見つけることができます： はhttp://www.granite.ab.ca/access/positioning_on_a_continuous_form.htm

の例では、連続用紙のためであることに注意してくださいしかし、あなたのアイデアを得ることができます。