07/02/2012, 14:38
53rize
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]