AccessTr.neT

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