在调试模式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中的集合中是否存在密钥。

Answer 1

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

要在没有错误捕获的VBA.Collection中检查密钥的存在，需要一个特制的typelib，就像本论坛线程中讨论的那样。

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