ເນື້ອໃນ

# ຄຳສັ່ງ On Error GoTo ... Resume

ເປີດໃຊ້ຊຸດຄຳສັ່ງຈັດການຂໍ້ຜິດພາດຫຼັງຈາກເກີດຂໍ້ຜິດພາດ ຫຼື ໃຫ້ໂປຣແກຣມເຮັດວຽກຕໍ່.

### ໄວຍາກອນ:

    On [Local] Error {GoTo Labelname | GoTo 0 | Resume Next}

### ພາຣາມິເຕີ:

GoTo Labelname: ຖ້າເກີດຂໍ້ຜິດພາດ, ຈະເປີດໃຊ້ຊຸດຄຳສັ່ງຈັດການຂໍ້ຜິດພາດທີ່ເລີ່ມຕົ້ນຢູ່ແຖວ "Labelname".

Resume Next: ຖ້າເກີດຂໍ້ຜິດພາດ, ໂປຣແກຣມຈະເຮັດວຽກຕໍ່ໃນຄຳສັ່ງທີ່ຢູ່ຖັດຈາກຄຳສັ່ງທີ່ເກີດຂໍ້ຜິດພາດນັ້ນ.

GoTo 0: ປິດການໃຊ້ງານຕົວຈັດການຂໍ້ຜິດພາດໃນໂປຣຊິດເຈີປັດຈຸບັນ.

Local: (ລະບຸ ຫຼື ບໍ່ກໍໄດ້) ຄຳສຳຄັນນີ້ແມ່ນເພື່ອເຕືອນວ່າຄຳສັ່ງນີ້ມີຜົນສະເພາະພາຍໃນຊຸດຄຳສັ່ງທີ່ເອີ້ນໃຊ້ມັນ; ເມື່ອອອກຈາກຊຸດຄຳສັ່ງນັ້ນ, ການຈັດການຂໍ້ຜິດພາດນີ້ຈະຖືກຍົກເລີກໂດຍອັດຕະໂນມັດ.

### ຕົວຢ່າງ:

    Sub ExampleReset
    On Error GoTo ErrorHandler
        Dim iNumber As Integer
        Dim iCount As Integer
        Dim sLine As String
        Dim aFile As String
        aFile = "C:\Users\ThisUser\data.txt"
        iNumber = Freefile
        Open aFile For Output As #iNumber
        Print #iNumber, "ນີ້ແມ່ນຂໍ້ຄວາມແຖວໜຶ່ງ"
        Close #iNumber
        iNumber = Freefile
        Open aFile For Input As iNumber
        For iCount = 1 To 5
            Line Input #iNumber, sLine
            If sLine <>"" Then
                Rem
            End If
        Next iCount
        Close #iNumber
        Exit Sub
    ErrorHandler:
        Reset
        MsgBox "ໄຟລ໌ທັງໝົດຈະຖືກປິດ",  0,  "ຂໍ້ຜິດພາດ"
    End Sub

ຫົວຂໍ້ທີ່ກ່ຽວຂ້ອງ

ຟັງຊັນການຈັດການກັບຂໍ້ຜິດພາດ

ຄຳສັ່ງ Open

ກະລຸນາສະໜັບສະໜູນພວກເຮົາ!