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

请注意，该示例适用于连续表单，但您可以了解相关信息。

删除记录并移动以前不工作

1 个答案: