访问VBA：对象无效或不再设置

Question

我收到以下错误：

object invalid or no longer set

当我的代码运行以下字符串时：

DoCmd.RunCommand acCmdDeleteRecord

据我所知，我收到此错误是因为没有选择记录或所选记录为Nothing。

如何在执行代码之前添加检查？有这样的东西会很棒：

If SelectedRecord != Nothing then
   DoCmd.RunCommand acCmdDeleteRecord
End If

Answer 1

有很多方法可以解决这个问题。

最简单的方法是打开控件向导，然后选择记录操作 - ＆gt;删除记录。这会生成一个嵌入式宏。您可以使用它，或将其用作所需步骤的参考。

完整的VBA解决方案如下：

DoCmd.RunCommand acCmdDeleteRecord

请注意，我故意不使用{{1}}。这是因为我希望能够指定我正在删除记录的表格（例如子表单）。