带有“With”语句的 VBA 错误处理程序

Question

如果不设置标签，VBA 错误处理程序是否可以在 With 语句的开头恢复？

例如：

Dim rst As DAO.Recordset
Set rst = Nothing

On Error GoTo ErrHand
With rst
    .AddNew
    !MyValue = 1
    .Update
    .Bookmark = .LastModified
End With

ErrHand:

If Err.Number <> 0 Then
    Call SetRST 'Assume this procedure opens the recordset appropriately
    Resume
End If
End Sub()

代码将导致“.AddNew”行出错，然后当它通过错误处理程序时将设置记录集，但随后它将在“.AddNew”行恢复。问题是它仍然在 CommentRST 是空的“With”语句中。有没有办法告诉错误处理程序在“With RST”行或“.AddNew”行恢复而不在“With”语句之前创建标签或首先检查空白记录集？

我知道有一些方法可以解决这个问题（正如我刚刚建议的其中 2 个），但我很好奇这是否可行。

Answer 1

只需向 SetRST 添加一个 byRef 参数。

例如：

Sub SetRST(byref myrs as recordset)
   'do stuff
   set myrs = ...

顺便说一句，您的错误处理示例很糟糕：只需在 ErrHand: 之前添加一个 Exit Sub，
所以你不需要测试err.number<>0，因为你知道它永远都是。

在你的错误处理中，使用：

call SetRST rst

---

编辑：
我更喜欢这样的东西：

If rst Is Nothing Then
    Set rst = something
End if
With rst
   'continue here

Answer 2

在这种情况下，编译器如何知道在 With 块的开头恢复（而不是在其他点）？它不会，尽管它可能是逻辑连接的（即它在With 块内），但仍然没有理由按照规则假设执行应该在该块的开始处恢复，而无需在该点明确引用恢复。

您要问的内容基本上假设了错误的来源，然后期望 VBA 内置了这个假设，但它肯定不适用于所有甚至大多数情况，请考虑下面，假设 rst 是打开/etc.，实际错误在Bookmark 属性引发，您的错误处理程序没有考虑到这一点，因此在块的开头恢复将导致无限失败循环！

On Error GoTo ErrHand
With rst
    .AddNew
    !MyValue = 1
    .Update
    .Bookmark = "George Washington"
End With

请参阅Resume 声明中的文档：

https://msdn.microsoft.com/en-us/library/office/gg251630.aspx

您可以选择Resume

如果错误发生在与错误处理程序相同的过程中，则从导致错误的语句继续执行。如果错误发生在被调用的过程中，则从包含错误处理例程的过程中最后调用的语句处继续执行。

或Resume Next:

如果错误发生在与错误处理程序相同的过程中，则从导致错误的语句之后的语句继续执行。如果错误发生在被调用的过程中，则从包含错误处理例程（或 On Error Resume Next 语句）的过程中最后调用的语句之后的语句继续执行。

或Resume <line>

在所需行参数中指定的行恢复执行。 line 参数是行标签或行号，并且必须与错误处理程序在同一过程中。

Answer 3

With 块持有一个对象的实例，并在End With 释放它。如果你跳出With 块，对象就消失了。

所以答案是否定的，你不能 Resume 进入 With 块的中间。 其实你可以，但事情变得丑陋和混乱。 em>

这是您在此处使用的 With 语句的常见误用 - 您只是因为懒惰而使用它（无意冒犯），并且不想在每个前面输入 rst.使用该对象的行。

正确使用会使With 块本身 持有引用，如下所示：

With GetRecordset 'a function that returns a recordset
    .AddNew
    !MyValue = 1
    .Update
    .Bookmark = .LastModified
    .Close
End With

..我不建议使用这样的记录集，但你明白了 ;)