ms-access - 避免在调试模式 Access 97 时因错误而停止

Question

当我在 Access 97 中进入调试模式时，程序将停止出现任何错误，即使该错误发生在On Error Resume Next.

我有一个函数可以测试一个元素key是否在Collection Col使用中

On Error Resume Next
var = Col.Item(key)  'Here the error is raised, and makes debug mode useless
...
InConnection = Not (Err.Number = 5)

这在生产中运行良好，但它使得在调试模式下运行程序毫无用处。

有没有办法避免程序在调试模式下因某些错误而停止？

据我所知，除了尝试使用上述方法捕获错误外，没有其他方法可以测试 Access 97 中的集合中是否存在键。

score 1 · Accepted Answer

Tools | Options...在选项卡上的VBA 编辑器中，在组中General激活以使 OERN 部分静音。Break on Unhandled ErrorsError Trapping

要在没有错误捕获的情况下检查密钥是否存在，VBA.Collection需要一个特制的类型库，就像在这个论坛帖子中讨论的那样。

此外，这样的 typelib 是练习使用 set 编写 VBA 代码艺术的先决条件Break on All Errors——这本身就是一个小壮举 :-))

1 回答 1