LibreOffice 25.2 abi
Tagastab selle rea numbri, kus programmi kÀitamise ajal viga ilmnes.
Erl
TĂ€isarv
Funktsioon Erl tagastab ainult rea numbri ja mitte rea silti.
Sub ExampleError
on error goto ErrorHandler REM MÀÀrab veakÀsitleja
Dim iVar As Integer
Dim sVar As String
REM Vea pÔhjustas puuduv fail
iVar = Freefile
Open "\file9879.txt" For Input As #iVar
Line Input #iVar, sVar
Close #iVar
Exit Sub
ErrorHandler:
MsgBox "Viga " & err & ": " & error$ + chr(13) + "Real : " + Erl + chr(13) + Now , 16 ,"Tekkis viga"
End Sub