Skip to main content

AccessTr.neT


Hata Yakalama

Hata Yakalama

Çözüldü #1
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
@benbendedeilem
Cevapla
#2
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
Cevapla
#3
Exit_cmdKapat_Click:

    Exit Sub

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

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

Err_cmdKapat_Click:
    MsgBox Err.Description
  
End Sub
Cevapla
#5
(22/01/2020 11:31)accessman Adlı Kullanıcıdan Alıntı: 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.
Son Düzenleme: 22/01/2020, 13:08, Düzenleyen: feraz.
Cevapla
#6
Try catch yok galiba Vba da
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da