AccessTr.neT

@ercansahin Tavsiyeniz uzerine deneme icin Tablo ile iliskiyi kurdum mevcut kodlarin devaminda metin kutularini temizlettim fakat bu seferde tabloya bir bos bir dolu kayit atiyor. Tabloyla Iliskisiz haliyle kaydettigimde herhangi bir sorun yasamadim metin kutularinida temizlettim. Ama tavsiyeniz kafami karistirdi. Tavsiyenizin nedenini kisaca aciklarsaniz memnun olurum. Pek cok konuda gecen yorumlarda kimi iliskilerden uzak durun kodla cozun derken kimide sizin gibi iliskileri kullanin diyor.


Tabloya yaptigi bir bos bir dolu kayit



2.tabloma normal kayit atiyor.

Ö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.

Kaydet butonundaki kodu aşağıdaki kodla değiştirerek dener misin?

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

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.

(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.

Gönderdiğim koddan sonra mı oluyor anlayamadım.