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.