Err Function

ལས་རིམ་ལག་ལེན་འཐབ་ནི་ཧྐབས་འབྱུང་ཡོད་པའི་འཛོལ་བ་ངོས་འཛིན་འབད་ནིའི་འཛོལ་བ་ཨང་རྟགས་ཅིག་སླར་་ལོགཔ་ཨིན།

ཚིག་སྦྱོར:

Err

གནས་གོང་སླར་ལོག:

ཧྲིལ་ཨང་།

ཚད་བཟུང་ཚུ་:

འཛེོལ་བ་ལས་འགན་དེ་འཛོལ་བ་ལེགས་བཅོས་པ་རྒྱུན་ལས་ཚུ་འཛོལ་བ་་དང་ ངེས་བདེན་བྱ་བ་བ་གཏན་འབེབས་བཟོ་ནི་ལུ་ལག་ལེན་འཐབ་ཡོདཔ་ཨིན།

དཔེར་བརྗོད:

Sub ExampleError

འཛོལ་བ་གུ་འཛོལ་བ་ལེགས་སྐྱོང་པ་ རིམ་གཞི་སྒྲིག་འཛོལ་བ་ལེགས་སྐྱོང་པ་ལུ་འགྱོ།

Dim iVar as Integer

Dim sVar As String

གནས་པ་མེན་པའི་ཡིག་སྣོད་ལུ་རན་པ་ཨར་ཨི་ཨེམ་འཛོལ་བ་འབྱུམ་ཨིན།

    iVar = Freefile

    Open "\file9879.txt" for Input as #iVar

    Line Input #iVar, sVar

    Close #iVar

Exit Sub

ErrorHandler:

    འཕྲིན་དོན་སྒྲོམ "Error " & Err & ": " & Error$ + chr(13) + "At line : " + Erl + chr(13) + Now , 16 ,"an error occurred"

End Sub