+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Tabloya Aylik Tahsilat Kaydedildiginde Formdaki Aylik Deger Renk Degistirsin.deger (/konu-tabloya-aylik-tahsilat-kaydedildiginde-formdaki-aylik-deger-renk-degistirsin-deger.html)
Cvp: Tabloya Aylik Tahsilat Kaydedildiginde Formdaki Aylik Deger Renk Degistirsin.deger - Oğuz Türkyılmaz - 18/02/2020
(18/02/2020, 12:14)berduş yazdı: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.MemberPayment tablosunda üyenin girilen yıla ait aidat ödemeleri var mı onu kontrol ediyor varsa ilgili ayın metin kutusunu siyah yapıyor.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_____________________________________________
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.
Cvp: Tabloya Aylik Tahsilat Kaydedildiginde Formdaki Aylik Deger Renk Degistirsin.deger - Oğuz Türkyılmaz - 18/02/2020
(18/02/2020, 22:23)berduş yazdı: Siz hala ekledigim dosyayla ilgili birşey demediniz?Hangi eklenen dosyadan bahsediyorsunuz çıkaramadım hatlarım karıştı şu anda
Incelediniz mi?
Cvp: Tabloya Aylik Tahsilat Kaydedildiginde Formdaki Aylik Deger Renk Degistirsin.deger - Oğuz Türkyılmaz - 18/02/2020
(18/02/2020, 12:14)berduş yazdı: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.MemberPayment tablosunda üyenin girilen yıla ait aidat ödemeleri var mı onu kontrol ediyor varsa ilgili ayın metin kutusunu siyah yapıyor.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_____________________________________________
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.
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
Cvp: Tabloya Aylik Tahsilat Kaydedildiginde Formdaki Aylik Deger Renk Degistirsin.deger - berduş - 18/02/2020
Payment tablosunda ocak ve mart ödemeleri gorunuyor
Cvp: Tabloya Aylik Tahsilat Kaydedildiginde Formdaki Aylik Deger Renk Degistirsin.deger - Oğuz Türkyılmaz - 18/02/2020
(18/02/2020, 23:26)berduş yazdı: Payment tablosunda ocak ve mart ödemeleri gorunuyor1 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.
Cvp: Tabloya Aylik Tahsilat Kaydedildiginde Formdaki Aylik Deger Renk Degistirsin.deger - berduş - 18/02/2020
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.