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.