Err Function

Returns an error code that identifies the error that occurred during program execution.

Синтакса


Err

Врати вредност:

Цел број

Параметри:

The Err function is used in error-handling routines to determine the error and the corrective action.

Пример


Sub ExampleError
on error goto ErrorHandler REM Set up error handler
Dim iVar as Integer
Dim sVar As String
REM Error occurs due to non-existent file
    iVar = Freefile
    Open "\file9879.txt" for Input as #iVar
    Line Input #iVar, sVar
    Close #iVar
Exit Sub
ErrorHandler:
    MsgBox "Error " & Err & ": " & Error$ + chr(13) + "At line : " + Erl + chr(13) + Now , 16 ,"an error occurred"
End Sub

Please support us!