IBM Lotus Symphony
|
Returnerer en fejlkode, der identificerer den fejl, der er opstået under programkørslen.
Err
Heltal
Funktionen Err bruges i fejlhåndteringsrutiner til at identificere en fejl og angive, hvordan den afhjælpes.
Sub EksempelFejl
On error goto ErrorHandler REM Indstil fejlhåndtering
Dim iVar as Integer
Dim sVar As String
REM Fejl, der skyldes, at fil ikke findes
iVar = Freefile
Open "\fil9879.txt" for Input as #iVar
Line Input #iVar, sVar
Close #iVar
Exit Sub
ErrorHandler:
MsgBox "Fejl " & Err & ": " & Error$ + chr(13) + "På linje: " + Erl + chr(13) + Now , 16 ,"Der er opstået en fejl"
End Sub