IBM Lotus Symphony
|
Gibt einen Fehlercode zurück, der den bei der Programmausführung aufgetretenen Fehler angibt.
Err
Integer
Die Err-Funktion wird in Fehlerbehandlungsroutinen zur Bestimmung des aufgetretenen Fehlers und der Fehlerbehebung verwendet.
sub ExampleError
on error goto ErrorHandler REM Fehlerbehandlung anmelden
Dim iVar as Integer
Dim sVar As String
REM Hier wird ein Fehler verursacht, da die Datei nicht existiert
iVar = Freefile
Open "\file9879.txt" for Input as #iVar
Line Input #iVar, sVar
Close #iVar
exit sub
ErrorHandler:
MsgBox "Fehler " & Err & ": " & Error$ + chr(13) + "In line : " + Erl + chr(13) + Now , 16 ,"Fehler aufgetreten"
end sub