(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