Erl Function

Pirogiraame loosantanno yannara so'ro kalaqantanno xuruuru kiiro qolanno.

Ganallo:

Erl

Qolote guma:

Intijere

Eishshuwa:

Qaagishshu Bido

Erl assishsha xuruuru kiiro calla qoltanno, xuruuru somo... diqoltanno.


Lawishsha:

Sub ExampleError

On Error GoTo ErrorHandler ' Set up error handler

Dim iVar As Integer

Dim sVar As String

' Nookki faylenni kalaqantanno so'ro

    iVar = Freefile

    Open "\file9879.txt" For Input As #iVar

    Line Input #iVar, sVar

    Close #iVar

    Exit Sub

ErrorHandler:

    MsgBox "Error " & err & ": " & Error$ + chr(13) + "In Line : " + Erl + chr(13) + Now , 16 ,"An error occurred"

End Sub