+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Hata Yakalama (/konu-hata-yakalama--86446.html)
Sayfalar:
1
2
Hata Yakalama - accessman - 22/01/2020
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
Cvp: Hata Yakalama - feraz - 22/01/2020
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
Cvp: Hata Yakalama - accessman - 22/01/2020
Exit_cmdKapat_Click:
Exit Sub
kısmı bana da biraz fazladan gibi gelmişti belkide bilmediğim bir faydası vardır
Cvp: Hata Yakalama - feraz - 22/01/2020
Private Sub cmdKapat_Click()
On Error GoTo Err_cmdKapat_Click
Kodlar..........
Exit Sub
Err_cmdKapat_Click:
MsgBox Err.Description
End Sub
Cvp: Hata Yakalama - feraz - 22/01/2020
(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.
Cvp: Hata Yakalama - accessman - 22/01/2020
Try catch yok galiba Vba da