Access 365 VBA“出错”不抑制“在此集合中找不到项目”。 [关闭]答案

【问题标题】：Access 365 VBA "On Error" not suppressing "Item not found in this collection." [closed]Access 365 VBA“出错”不抑制“在此集合中找不到项目”。 [关闭]
【发布时间】：2023-03-08 15:31:02
【问题描述】：

如果表存在，我的程序想要删除它。这个简洁的小功能（由 Terry Kreft 提供）过去每次都能正常工作，但今天，在 Access 365 下，它失败并显示“在此集合中找不到项目”。

 Function TableExists(Tablename As String) As Boolean
    Dim loTab As DAO.TableDef
    On Error Resume Next
    Set loTab = CurrentDb.TableDefs(Tablename)  <<<< This is where the error occurs
    TableExists = (Err = 0)
 End Function

` 现在在这种情况下，表肯定不存在，所以错误消息是正确的 - 但肯定不应该在“错误”之后输出

如果有任何帮助，我将不胜感激！

【问题讨论】：

在 VBE（Visual Basic 编辑器）中检查您的设置：工具->选项，在“常规”选项卡上：“错误捕获”的设置是什么：如果设置为“中断” all Errors”，如果发生错误，运行时将始终停止（独立于 On Error 语句）。适合调试，如果处理“预期”错误则不太好

标签： vba ms-access error-handling office365

【解决方案1】：

对不起-我是个笨蛋！我有 VBA 工具 |选项 |常规“中断所有错误”设置。切换到“中断未处理的错误”，现在一切正常。

【讨论】：