Formdan Butonla Tabloya Değer Aktarma

1 2
04/02/2012, 12:52

53rize

Nasıl açıklama yapayım bilmemki, Ben Burada ödeme değerini girerken o kişiye ait bilgi geldiğinde işlem yapacağım.Dergi fiyatları senede bir kişinin abonesi yenilenince kişinin hesabına geçiyor. Yani senede bir kişi Dergi Abone edilince borçlanıyor. Ama Ödemeler ise belirli zamanlarda taksit taksit veriliyor ve kişinin borçlanan hesabından düşüyor. Burada sizin yapmış olduğunuz Dergileri fiyatları ve ödemeleri bütün işlemleri Dergi Tutarları aktar butonun atadınız. Bütün işlemleri yani dergi fiyatları ve ödemeleri aynı anda yapıyor.Diyelimki Kişiye yeni bir Abone işlemi yaptığımızda Dergi fiyatlarını borçlandırıyor. Tekrar başka bir zamanda sadece bir ödeme yaptığında ise o ödeme ile birlikte dergi fiyatını ilave ederek tekrar işliyor. Burada onun için dergi fiyatlarını ve ödemeleri ayrı ayrı yapmasını istiyorum. ve yahut siz nasıl uygun görürseniz. saygılarımla.

05/02/2012, 01:28

53rize

Kısa bir açıklama daha ilave edeyim.Dergi Tutarları aktar butonu gelir. Ödeme Butonu ise gider oluyor. önceki yapmış olduğunuz işlemi ayıklarsanız. işlem çözülecek. Yani dergi gelirleri bir butona diğeri de öteki butona atarsanız. işlem çözülecek saygılarımla.
05/02/2012, 17:41

ozanakkaya

Dergi Tutar aktar butonunu tıkladığınızda zaten blackeagle hocanın verdiği kod ile ödenen metin kutusuna yazılan veri ödemeler tablosuna aktarılıyor.
Bu kodu aşağıdaki gibi değiştirip ödeme aktar butonuna eklerseniz yapılan ödeme aktarılacak.

Private Sub Yapılan_Ödeme_Aktar_Click()
Dim Sql As String
If IsNull(Me.ödenen) Then
MsgBox ("Ödeme Giriniz")
Else
sql = "INSERT INTO ödemeler ( kisi_id, adi_soyadi, Bölgesi,[Semerkand Tutarı],[Aile Tutarı],[Mostar Tutarı],[Tek Dergi Tutarı],[Toplam Dergi Tutarı],[Ödenen],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,Forms!Dergi.ödenen,date(),Forms!Dergi.bos,Forms!Dergi.bos)"
DoCmd.RunSQL sql
End Sub

Ayrıca; Kişinin dergi borcunun bulunduğu tablo ayrı olsa, yapılan ödemelerin kaydedileceği tablo ayrı olsa daha kullanışlı olur, çünkü her ödeme yapıldığında dergi fiyatlarını da kaydedip veritabanı gereksiz yere şişiriliyor. isim tablosundaki "Kimlik" alanı ile dergiborcu ve ödemener tablosu ilişkilendirilip, kişinin borcu ve ödeme toplamları form veya rapor üzerine aktarılabilir.
1 2