我正在使用 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
我不知道为什么。我在其他地方使用相同的语法没有问题任何人都可以帮忙吗?
最佳答案
让我用一个例子来扩展一下我的评论。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
关于vba - 错误时类型不匹配,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/62996588/