Formda Butona aşağıdaki kodları düzenleyip uyguladım program çalışıyor. Kayıt yaptım tablolara ekledi. Fakat Formdan kaydet çıkarken ekli jpeg dosyasındaki hatayı veriyor. Bir türlü son yapmış olduğum değişikleri kayıt edemedim. Yardımlarınızı bekliyorum.Saygılarımla.

Private Sub Dergi_Tutar_Aktar_Click()

Dim Sql As String

sql = "INSERT INTO ödemeler ( kisi_id, adi_soyadi, Bölgesi,

[Semerkand Tutarı],[Aile Tutarı],[Mostar Tutarı],[Tek Dergi Tutarı],[Toplam Dergi Tutarı],tarih,Kalan, açıklama) values 

(Forms!Dergi.kisi_id , Forms!Dergi.adı_soyadı, Forms!Dergi.Bölgesi, Forms!Dergi.semerkand_fiyatı, Forms!Dergi.Aile_fiyatı, Forms!Dergi.Mostar_fiyatı, Forms!Dergi.Tek_Dergi_fiyatı,Forms!Dergi.bos,date(),Forms!Dergi.bos,Forms!Dergi.bos)"

DoCmd.RunSQL sql

End Sub

Private Sub Yapılan_Ödeme_Aktar_Click()

Dim Sql As String

sql = "INSERT INTO ödemeler ( kisi_id, adi_soyadi, Bölgesi,[Ödenen],tarih)

 values (Forms!Dergi.kisi_id , Forms!Dergi.adı_soyadı, Forms!Dergi.Bölgesi,

Forms!Dergi.ödenen,date())"

DoCmd.RunSQL sql

End Sub

[/vb]

Ek Dosyalar

Dergi2003.rar(73.38 KB)