(13/02/2020, 19:50)userx yazdı:

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

Evet gonderdiginiz kodun ciktisi bu sekilde oluyor.

Altta görüldüğü gibi aynı kodlarla ben de kayıt yapıyorum bir sorun görünmüyor. Hatalı olan kaydı silip tekrar dener misiniz 

(13/02/2020, 20:05)userx yazdı: Altta görüldüğü gibi aynı kodlarla ben de kayıt yapıyorum bir sorun görünmüyor. Hatalı olan kaydı silip tekrar dener misiniz 



 Sn @userx sorun ne bilmiyorum ama ben kodu asagidaki sekilde duzenledim ve suan tam istedigim gibi calisiyor. Yardiminiz icin tesekkur ederim. Umarim sonradan sorun cikarmaz.

Private Sub btnKaydet_Click()

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

txtUyeNo.Value = ""
txtUyeAdiSoyadi.Value = ""
cboTaksitAyKapama.Value = ""
txtAidatTutar.Value = ""

End Sub

Ama benim gönderdiğim kodun üst bölümünü kaldırmışsın. O kısmı ekler misin?

If IsNull([txtUyeNo]) Or IsNull([cboTaksitAyKapama]) Or IsNull([txtAidatTutar]) Then

MsgBox "Lütfen eksik bilgileri tamamlayınız."

DoCmd.GoToControl "txtUyeNo"

 Else

üstte yazdığın Private Sub btnKaydet_Click() in hemen altına ekle.

(13/02/2020, 20:11)userx yazdı: Ama benim gönderdiğim kodun üst bölümünü kaldırmışsın. O kısmı ekler misin?

If IsNull([txtUyeNo]) Or IsNull([cboTaksitAyKapama]) Or IsNull([txtAidatTutar]) Then

MsgBox "Lütfen eksik bilgileri tamamlayınız."

DoCmd.GoToControl "txtUyeNo"

 Else

üstte yazdığın Private Sub btnKaydet_Click() in hemen altına ekle.

Ekledim deminden beri onla ugrasiyorum. O kodu gelistirebilirmiyiz diye soracaktim size. Soyleki bu form icin degil ama metin kutularinin girilmesi zorunlu olan alanlardan hangileri bos birakildiysa o metin kutularini renklendirmek vs yada baska bir sey yapilabilirmi diye soracaktim

(13/02/2020, 20:39)Oğuz Türkyılmaz yazdı:

(13/02/2020, 20:11)userx yazdı: Ama benim gönderdiğim kodun üst bölümünü kaldırmışsın. O kısmı ekler misin?

If IsNull([txtUyeNo]) Or IsNull([cboTaksitAyKapama]) Or IsNull([txtAidatTutar]) Then

MsgBox "Lütfen eksik bilgileri tamamlayınız."

DoCmd.GoToControl "txtUyeNo"

 Else

üstte yazdığın Private Sub btnKaydet_Click() in hemen altına ekle.

Ekledim deminden beri onla ugrasiyorum. O kodu gelistirebilirmiyiz diye soracaktim size. Soyleki bu form icin degil ama metin kutularinin girilmesi zorunlu olan alanlardan hangileri bos birakildiysa o metin kutularini renklendirmek vs yada baska bir sey yapilabilirmi diye soracaktim

Pardon yaa hatirladim @alpeki99  derslerinde bir firma unvani alani icin yapmisti ikaz verdiriyordu ama ben renklendirme gibi bir sey yapmak isterim dogrusu nasil yapilabilir bir fikriniz varmi acaba