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