vba - 错误时类型不匹配

Question

我正在使用 GoTo用于 Access 模块中的错误处理并得到 type mismatch Procedures.HandleError 上的错误称呼。
我测试看看是否err是一个错误:

Exit Sub
catch:
    If IsError(err) Then
        MsgBox "yes"
    Else
        MsgBox "no"
    End If
    Procedures.HandleError "ctrCreateSubject, frm_OnCreate", err, True
End Sub

和 MsgBox显示 no我不知道为什么。我在其他地方使用相同的语法没有问题
任何人都可以帮忙吗？

Answer 1

让我用一个例子来扩展一下我的评论。On Error GoTo语句将处理 IsError()部分，因为程序将跳转到 catch标签, 仅限 如果有错误。因此，如果我们确实跳转到错误处理程序，那么我们肯定有一个错误。
示例错误处理程序:

Sub Whatever()
    On Error GoTo catch

    'do something

Leave:
    Exit Sub

catch:
    'If we hit this point, then we definitely have an error.
    'At this point, we can query the error number if we want to take action based on the error.
    If Err.Number = xxxx Then
        Msgbox "Error " & xxxx
    End If
    Resume Leave
End Sub

然后，如果您想暂停错误处理程序然后查询是否发生错误，还有另一种方法。

On Error Resume Next

'do something

If Err.Number <> 0
    'An error occurred
End If

如果我们想稍后在我们的方法中再次执行此操作，我们可以清除它。

Err.Clear

最后，请记住 Err是一个全局对象，所以你不需要创建一个实例。 MSDN 上的更多信息: Err object