Kod çalışırken, Normal kod kısımları bittikten sonra, kodlar sırayla işlemeye devam ettiği için hata kısmına da girip çalışmaya devam ediyor. 0 nolu hata kodu aslında hata yok anlamına geliyor.

hata:
yazısından önce araya exit sub koymanız gerekiyor. onu atlamışsınız.

Private Sub btnOnayla_Click()

Dim Yil As Integer, Ay As Byte



On Error GoTo hata



Yil = Mid(IkrazOdemeTarihi, 7, 4)

Ay = Mid(IkrazOdemeTarihi, 4, 2)



If YonetimKuruluKararTarihi = "" Or YonetimKuruluKararNo = "" Or IkrazOdemeTarihi = "" Then

 MsgBox ("Tönetim Kurulu Kara Tarihi, Yönetim Kurulu Karar No ve İkraz ödeme Tarihi alanları boş bırakılamaz")

 Exit Sub

End If

 

 CurrentDb.Execute ("INSERT INTO IkrazHareket(Sicil,Yil,Ay,Vade,OdemeTuru,Izahat,Borc,Alacak,Bakiye) VALUES(" & Forms![GenelForm]![Sicil] & "," & Yil & "," & Ay & "," & Vade & "," & OdemeTuruID & "," & 2 & ",'" & TalepEdilenIkraz & "','" & EskiIkrazBorcu & "','" & TalepEdilenIkraz & "');")

 

 MsgBox "İkraz kaydı İkraz Hareket tablosuna başarıyla eklendi."

 

exit sub

hata:

 MsgBox "HATA OLUŞTU!-" & Err.Number & "-" & Err.Description, vbCritical

 

End Sub

Programcılıkta, bazen gözünüzün önündeki şeyi göremezsiniz.