Syntax

Err.Source [= stringexpression]

Description

Sets or retrieves the source of a runtime error.

Comments

For OLE automation errors generated by the OLE server, the Err.Source property is set to the name of the object that generated the error. For all other errors generated by BasicScript, the Err.Source property is automatically set to be the name of the script that generated the error.

For user-defined errors, the Err.Source property can be set to any valid String expression indicating the source of the error. If the Err.Source property is not explicitly set for user-defined errors, the BasicScript sets the value to be the name of the script in which the error was generated.

Example

'The following script generates an error, setting the source

'to the specific location where the error was generated.

Function InputInteger(Prompt,Optional Title,Optional Def)

On Error Resume Next

  Dim x As Integer

  x = InputBox(Prompt,Title,Def)

  If Err.Number Then

    Err.Source ="InputInteger"

    Err.Description = "Integer value expected"

  InputInteger = Null

    Err.Raise 3000

  End If

  InputInteger = x

 End Function

Sub Main

  On Error Resume Next

  x = InputInteger("Enter a number:")

  If Err.Number Then MsgBox Err.Source & ":" & Err.Description

End Sub

See Also

Error Handling (topic), Err.Clear (method), Err.HelpContext (property), Err.Description (property), Err.HelpFile (property), Err.Number (property), Err.LastDLLError (property)

E