IBM Lotus Symphony
|
Vrne kodo napake, ki označuje napako, do katere je prišlo med izvajanjem programa.
Err
Celo število
Funkcija Err se uporablja pri podprogramih za obravnavo napak za določanje napake in korektivne ukrepe.
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