Err Function

Liveras prieraran kodon kiu identigas la eraron okazintan dum programa ruliĝo.

Sintakso:

Err

Liverota valoro:

Entjero

Parametroj:

La funkcio Err uziĝas en erarotraktantaj proceduroj por trovi la eraron kaj la ĝustigan agon.

Ekzemplo:

Sub ExampleError

on error goto ErrorHandler REM Starigi traktilon por eraroj

Dim iVar as Integer

Dim sVar As String

REM Eraro okazas pro neekzistanta dosiero.

    iVar = Freefile

    Open "\file9879.txt" for Input as #iVar

    Line Input #iVar, sVar

    Close #iVar

Exit Sub

ErrorHandler:

    MsgBox "Eraro " & Err & ": " & Error$ + chr(13) + "At line : " + Erl + chr(13) + Now , 16 ,"eraro okazis"

End Sub