1

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

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

1 に答える 1

1

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

そうでない場合は、次のブックマークを使用して目的を達成する方法の 1 つを見つけることができます: http://www.granite.ab.ca/access/positioning_on_a_continuous_form.htm

例は連続フォーム用ですが、アイデアを得ることができることに注意してください。

于 2012-05-10T16:29:25.730 に答える