Tabloya yaptigi bir bos bir dolu kayit
2.tabloma normal kayit atiyor.
If IsNull([txtUyeNo]) Or IsNull([cboTaksitAyKapama]) Or IsNull([txtAidatTutar]) Then
MsgBox "Lütfen eksik bilgileri tamamlayınız."
DoCmd.GoToControl "txtUyeNo"
Else
If MsgBox("Bilgiler Kaydedilecek Onaylıyormusunuz ?", vbQuestion + vbYesNo, "Dikkat") = vbYes Then
CurrentDb.Execute " insert into T_1_MemberPayment " & _
" ( UyeNo, GelirKodu,GelirTipi,TaksitAyKapama, Tarih, AidatTutar ) values " & _
" ( " & Me.txtUyeNo & ", '" & Me.txtGelirKodu & "', '" & Me.txtGelirTipi & "', '" & Me.cboTaksitAyKapama & "','" & Me.txtTarih & "', CCur('" & Me.txtAidatTutar & "'))"
CurrentDb.Execute " insert into T_0_MemberAccount " & _
" ( UyeNo,Tarih,IslemTuru, Tutar ) values " & _
" ( " & Me.txtUyeNo & ",'" & Me.txtTarih & "','Alacak', '" & Me.txtAidatTutar & "')"
End If
Me.txtUyeNo = ""
Me.txtUyeAdiSoyadi = ""
Me.cboTaksitAyKapama = ""
End If
(13/02/2020, 12:50)ercansahin yazdı: Öncelikle burada bahsedilen ilişki ile kullanılması önerilmeyen ilişki farklı şeyler. Sizin için "Frm_T_1_MemberPayment" formunu oluşturdum. İncelediğinizde ne demek istediğimi anlayacaksınız. Formun görsel tasarımı ve kaydet, sil vb. butonlarını siz oluşturun. Umarım yardımcı olur. Kolay gelsin.@ercansahin ilginiz icin cok tesekkur ederim. Birlesik giris kutusu kullanmak istemedigimden boyle bir cozume yoneldim. Biraz daha fazla ugrastiriyor dogru ama alistigim profesyonel muhasebe vs gibi programlarin kullanimina daha yakin bir bir tarz olusturmaya calistigim icin bu yonden yurumeye devam ediyorum.
(13/02/2020, 19:35)Oğuz Türkyılmaz yazdı: Sn @userx
Resimde dikkatinizi cekecektir. MemberPayment tablosuna en son yapılan kayıt ısleminin uye ve ay bılgılerı olmayan bos bır kaydını atıyor, 18 kımlık nolu ıslem bır kayıt daha gırıldıgınde o kaydın tarıh ve aıdat tutar bılgılerıyle guncellenıyor.