Merhaba arkadaşlar,
Access 2007'de bir proje hazırlıyorum. Bir butonun altına gerekli kodları yazdım. hata durumunda çökmemesi için de kodun başına:

On Error GoTo hata

sonuna da:

hata:

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

satırlarını ekledim. Ama kod hiç sıkıntısız görevini yerine getirdiği halde

HATA OLUŞTU!-0

mesajı veriyor. Bu sıfır (0) kodlu hatanın anlamı bilgi verebilirseniz çok sevinirim. Kodun tamamı da şöyle:

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."

 

hata:

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

 

End Sub

NOT: forumda arama yaptım ama bununla ilgili bir başlık göremedim. hatam varsa affola..