Err

返回或设置描述当前运行时错误状态的ErrObject。

语法：

• Err [ () ]
• Err = errorNumber

errorNumber

Long错误代码，分配给Err对象。这是Err.Number = errorNumber的简写，因为Number是ErrObject的默认属性。

Err对象是内在且全局的——无需声明或构造。当运行时错误引发时其属性被填充，当活动错误处理程序通过Resume、Resume Next或任何Exit语句退出时，或显式调用Err.Clear时，属性重置为零或零长度字符串。

要从用户代码生成运行时错误，请使用Raise方法而非Error语句，特别是对于类模块和Automation错误。

示例

本示例使用Err对象的Number、Description、HelpContext、HelpFile和Source属性构造错误消息对话框。

Dim Msg As String
On Error Resume Next       ' Defer error handling.
Err.Clear
Err.Raise 6                ' Generate an "Overflow" error.
If Err.Number <> 0 Then
    Msg = "Error # " & Err.Number & " was generated by " _
        & Err.Source & vbCrLf & vbCrLf & Err.Description
    MsgBox Msg, vbMsgBoxHelpButton, "Error", Err.HelpFile, Err.HelpContext
End If

另请参阅

• ErrObject模块
• Erl函数
• On Error语句