Ošetrenie chýb

Sub TestovaciaProcedura()

    Dim i As Integer

    Dim x As Integer

    For i = -1 To 1

        x = 3 / i

    Next i

End Sub


Sub OsetrenieChyby1()

    Dim i As Integer

    Dim x As Integer

    'pri chybe skoè na dalsi riadok

    On Error Resume Next

    For i = -1 To 1

        x = 3 / i
        MsgBox (x)

    Next i

End Sub

Sub OsetreniChyby2()

    Dim i As Integer

    Dim x As Integer

    'pri chybe skoè na dalši riadok

    On Error Resume Next

    For i = -1 To 1

        x = 3 / i

        'zaregistroval objekt Err chybu?

        If Err <> 0 Then

            'evidencia èísla a popisu chyby

            'do okna Immediate(anglicky)

            Debug.Print Err.Number & vbTab & Err.Description

            'reset

            Err.Clear

        End If

    Next i

End Sub

Sub OsetrenieChyby3()

    Dim i As Integer

    Dim x As Integer

    'pri chybe skoè na riadok Chyba

    On Error GoTo chyba

    For i = -1 To 1

        x = 3 / i
        MsgBox x

    Next i

chyba:
    MsgBox "lla"
End Sub

Sub OsetrenieChyby4()

    Dim i As Integer

    Dim x As Integer

    'pri chybe skoè na riadok Chyba

    On Error GoTo chyba

    For i = -1 To 1

        x = 3 / i

    Next i

    Exit Sub

chyba:

    'chyba delenia nulou

    If Err.Number = 11 Then MsgBox (Err.Description)



    'ošetrenie promennej

    i = i + 1

    'návrat na riadok, ktorý vyvolal chybu

    Resume



    'alternativa bez priameho ošetrenia promennej

    'Resume Next

End Sub