AccessTr.neT

Tam Versiyon: Hata Yakalama
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
Private Sub cmdKapat_Click()
    On Error GoTo Err_cmdKapat_Click


Exit_cmdKapat_Click:
    Exit Sub

Err_cmdKapat_Click:
    MsgBox Err.Description
    Resume Exit_cmdKapat_Click

End Sub


bunu nasıl genel hale getirebiliriz

On Error GoTo Err_cmdKapat_Click
......
Exit_cmdKapat_Click:
    Exit Sub

Err_cmdKapat_Click:
    MsgBox Err.Description
    Resume Exit_cmdKapat_Click


bu kısmı hangi kod arasına yapıştırsak çalışacak şekilde yazmalıyız
Mantık şu hata için
Excelde böyle accesstede aynıdır

Sub xx()

On error goto var
Kodlar buraya
Exit sub
Var:

End sub
Exit_cmdKapat_Click:

    Exit Sub

kısmı bana da biraz fazladan gibi gelmişti belkide bilmediğim bir faydası vardır
Private Sub cmdKapat_Click()
    On Error GoTo Err_cmdKapat_Click

Kodlar..........
    Exit Sub

Err_cmdKapat_Click:
    MsgBox Err.Description
  
End Sub
(22/01/2020, 11:31)accessman yazdı: [ -> ]Private Sub cmdKapat_Click()
    On Error GoTo Err_cmdKapat_Click


Exit_cmdKapat_Click:
    Exit Sub

Err_cmdKapat_Click:
    MsgBox Err.Description
    Resume Exit_cmdKapat_Click

End Sub


bunu nasıl genel hale getirebiliriz

On Error GoTo Err_cmdKapat_Click
......
Exit_cmdKapat_Click:
    Exit Sub

Err_cmdKapat_Click:
    MsgBox Err.Description
    Resume Exit_cmdKapat_Click


bu kısmı hangi kod arasına yapıştırsak çalışacak şekilde yazmalıyız

Kod şöyle çalışır sizinki.
Hata varsa 

Err_cmdKapat_Click buraya gider hata mesajı çıkar ve alttaki resume ilede

Exit_cmdKapat_Click buraya gider.

Yani uzun işlem oluyor.Otomatik ekliyor heralde Access bunları makro olayında.
Try catch yok galiba Vba da
Sayfalar: 1 2