避免在调试模式下访问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

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

要检查没有错误陷阱的VBA.Collection中的密钥是否存在，将需要特制的typelib，例如this forum thread中讨论的那个。

此外，这种typelib是实践设置Break on All Errors设置VBA代码的技巧的先决条件-本身就是一件小事：-））