İçerikler
Dizin 🔎︎

# On Error GoTo ... Resume Deyimi

Hata oluştuktan sonra bir hata-işleme yordamını etkinleştirir veya programın yürütülmesini devam ettirir.

## Sözdizimi:

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

## Parametreler:

GoTo Labelname: Hata oluşursa, hata düzeltme yordamınının "Labelname" ile başlayan satırını etkinleştirir.

Resume Next: Eğer bir hata oluşursa, program yürütme oluşan hatanın içindeki açıklamayı takip eden açıklamayla devam eder.

GoTo 0: Mevcut yordamda hata işleyicisini devre dışı bırakır.

Local: "On error" kapsama alanı içinde globaldir ve bir başka "On error" ifadesi tarafından iptal edilene kadar aktif olara kalır. "On Local error" onu çağıran yordam içinde yereldir. Yerel hata yönetimi önceki bütün global ayarları geçersiz kılar. Çağırılan bir yordam olduğunda, yerel hata yönetimi otomatik olarak iptal edilir ve önceki global ayar geri yüklenir.

On Error GoTo deyimi makrolarda oluşacak hatalara tepki için kullanılır.

## Örnek:

    Sub ExampleReset
    On Error GoTo ErrorHandler
    Dim iNumber As Integer
    Dim iCount As Integer
    Dim sLine As String
    Dim aFile As String
        aFile = "c:\data.txt"
        iNumber = Freefile
        Open aFile For Output As #iNumber
        Print #iNumber, "Bu metnin bir satırıdır"
        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 "Tüm dosyalar kapatılacaktır",0,"Hata"
    End Sub