(18/02/2020, 12:14)berduş yazdı:

Dim AidtRS As New ADODB.Recordset

Dim AidtSrg As String



AidtSrg = " SELECT Month(CDate('1.' & [TaksitAyKapama] & '.2000')) AS yilDnm, T_1_MemberPayment.AidatTutar " & _

          " FROM T_1_MemberPayment " & _

          " WHERE (((T_1_MemberPayment.UyeNo)=" & Me.txtUyeNo & ") AND ((Year([Tarih]))=" & Year(Me.Metin216) & "))"

    

    AidtRS.Open AidtSrg, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    If AidtRS.RecordCount > 0 Then

    Do While Not AidtRS.EOF 

        Me.Controls("txtAy" & AidtRS(0)).BackColor = vbBlack

        AidtRS.MoveNext

    Loop

    End If

'hy_____________________________________________

MemberPayment tablosunda üyenin girilen yıla ait aidat ödemeleri var mı onu kontrol ediyor varsa ilgili ayın metin kutusunu siyah yapıyor.
Not: ilgili aya ait ödemelerin tam yapıldığı varsayılmıştır. yani "ocak 2001"de aidat 20 liraysa ama siz 9 lira yazdıysanız bunu kontrol etmeden kapatıyor. bu şekilde tasarladım çünkü sizin memberpayment formunuzda taksit kapama olarak geçiyor.
2. nokta da MemberPayment tablosunda sadece aidat değil de başka ödemeler de yapılıyorsa sizin aidatı belirten kodu da filtreye eklemeniz gerekiyor
iyi çalışmalar.

Hayır baska odemeler yapılmayacak orada sadece uyenın aidat borcu odemesi yapılacak.Odeme ekranında Ay kapama listesinden ay seçimini yapmaz ise  odeme kaydedilmeyecek sadece belırlenen aidat tutarı kadar odeme yapabılcek.

(18/02/2020, 22:23)berduş yazdı: Siz hala ekledigim dosyayla ilgili birşey demediniz?
Incelediniz mi?

Hangi eklenen  dosyadan bahsediyorsunuz çıkaramadım hatlarım karıştı şu anda

(18/02/2020, 12:14)berduş yazdı:

Dim AidtRS As New ADODB.Recordset

Dim AidtSrg As String



AidtSrg = " SELECT Month(CDate('1.' & [TaksitAyKapama] & '.2000')) AS yilDnm, T_1_MemberPayment.AidatTutar " & _

          " FROM T_1_MemberPayment " & _

          " WHERE (((T_1_MemberPayment.UyeNo)=" & Me.txtUyeNo & ") AND ((Year([Tarih]))=" & Year(Me.Metin216) & "))"

    

    AidtRS.Open AidtSrg, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    If AidtRS.RecordCount > 0 Then

    Do While Not AidtRS.EOF 

        Me.Controls("txtAy" & AidtRS(0)).BackColor = vbBlack

        AidtRS.MoveNext

    Loop

    End If

'hy_____________________________________________

MemberPayment tablosunda üyenin girilen yıla ait aidat ödemeleri var mı onu kontrol ediyor varsa ilgili ayın metin kutusunu siyah yapıyor.
Not: ilgili aya ait ödemelerin tam yapıldığı varsayılmıştır. yani "ocak 2001"de aidat 20 liraysa ama siz 9 lira yazdıysanız bunu kontrol etmeden kapatıyor. bu şekilde tasarladım çünkü sizin memberpayment formunuzda taksit kapama olarak geçiyor.
2. nokta da MemberPayment tablosunda sadece aidat değil de başka ödemeler de yapılıyorsa sizin aidatı belirten kodu da filtreye eklemeniz gerekiyor
iyi çalışmalar.

Sn.@berduş Tablolarda 20 tl lik Uyenın alacaklandırıldıgı bır kayıt goremedım sadece borc kayıtları var ama formda Ocak ve Mart aylarında odeme yapılmıs gıbı renklendırılmıs odemeyı nereye kaydettıde ocak ve mart odemenın yapıldıgına daır renklendırme yapıldı anlayamadım. Tablolarda 1 numaralı  uyenın alacaklandırıldıgı bır kayıt yok.







Ben bu tabloda Uye no gırdımmı o uyenın taksıdlerını goruyorum ama 1 numaralı uyenın alacaklandıgı bır odemesı tablolarda yok

Payment tablosunda ocak ve mart ödemeleri gorunuyor

(18/02/2020, 23:26)berduş yazdı: Payment tablosunda ocak ve mart ödemeleri gorunuyor

1 numaralı uyenın ocak ve mart 20 tl lık odemesı gonderdıgım duzenlemenızın resımdekı payment tablosunda yok halıl bey ben farklı bır yeremı bakıyorum.

21. mesajınızdaki ilk resimde payment tablosu var orada 1 nolu üyenin ocak ayında 2, mart ayında 3 ödemesi görünüyor.