Err funktsioon
Tagastab veakoodi, mis mÀÀrab programmi kÀitamise ajal ilmnenud vea.
SĂŒntaks:
Err
TagastusvÀÀrtus:
TĂ€isarv
Parameetrid:
Funktsiooni Err kasutatakse veakÀsitluse alamprotseduurides vea ja parandusmeetmete maaÀramiseks.
NĂ€ide:
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