|
| |
| ||||||||||||||||||
Purpose
Returns the module (if any) active at the time of the error as a string.
Syntax
Err.Module
Example
Sub Main()
Dim f as File
On Error Goto ErrHandler:
f.OpenFile ("NonExistentFile", fcRead)
Debug "OpenFile success"
Exit Sub
ErrHandler:
Debug "Module:" & Err.Module
If Err.Number = 104 Then
Debug "OpenFile failed"
Else
Err.Raise
End If
End Sub
| ||