Module
Contents
Index 🔎︎

# Err Function

ནོར་འཁྲུལ་གྱིས་ཚབ་ཨང་ཕྱིར་ལོག་བྱེད་པ་དང་བྲིས་རྟགས་བྱ་རིམ་ལག་བསྟར་བརྒྱུད་རིམ་ནང་ཐོན་པའི་ནོར་འཁྲུལ་ལ་སྤྱོད།

## བརྡ་འཕྲོད་

    Err

## ཕྱིར་ལོག་ཐང་

ཧྲིལ་གྲངས་

## ཁུགས་གྲངས་

ནོར་འཁྲུལ་གྱིས་འཆར་ཅན་བྱ་རིམ་ལས་སྣོན་བྱས་པ་དང་ Err རྟེན་གྲངས་སྤྱད་དེ་ནོར་འཁྲུལ་གཏན་འཁེལ་ལམ་བྱ་ཐབས་ཡོ་བསྲང་བྱེད་པ།

## དཔེ་གཞི་

    Sub ExampleError

    on error goto ErrorHandler REM ནོར་འཁྲུལ་གྱིས་བྱ་རིམ་ལས་སྣོན་བྱ་རྒྱུ་བཀོད་སྒྲིག་བྱེད་པ་

    Dim iVar as Integer

    Dim sVar As String

    REM ཡིག་ཆ་བསྡད་མེད་པ་ལས་ནོར་འཁྲུལ་ཐོན་པ་

        iVar = Freefile

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

        Line Input #iVar, sVar

        Close #iVar

    Exit Sub

    ErrorHandler:

        MsgBox "ནོར་འཁྲུལ་ " & Err & ":" & Error$ + chr(13) + "ཕྲེང་གྲངས་ " + Erl + chr(13) + Now , 16 ,"ནོར་འཁྲུལ་བྱུང་བ་"

    End Sub