Module
Contents
Index 🔎︎

# Err Function

Trả về một mã lỗi mà nhận diện lỗi đã xảy ra trong khi thực hiện chương trình.

## Cú pháp:

    Err

## GIá trị trả về:

Số nguyên

## Tham số :

Hàm Err được dùng trong câu lệnh quản lý lỗi để quyết định lỗi đã xảy ra và hành động sửa chữa tương ứng.

## Thí dụ :

    Sub ExampleError

    on error goto ErrorHandler REM Thiết lập hàm quản lý lỗi

    Dim iVar as Integer

    Dim sVar As String

    REM Lỗi xảy ra do tập tin không tồn tại

        iVar = Freefile

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

        Line Input #iVar, sVar

        Close #iVar

    Exit Sub

    ErrorHandler:

        MsgBox "Lỗi " & Err & ": " & Error$ + chr(13) + "Ở dòng : " + Erl + chr(13) + Now , 16 ,"gặp lỗi"

    End Sub