Girilen Tarih Kayıtları Arasında Önceden Belirlenen Kritere Göre Listeleme

19/03/2021, 16:30

yturan

Merhabalar...

Tarım İl Müdürlüğünde kullanılacak, basit bir program yapmaya çalışıyorum.

Kişilerin ödedikleri senet bilgileri var. ÜÇ SENE ÜST ÜSTE ödemedikleri taktirde cezalı duruma düşüyorlar. Örnek Formda Yunus Turan 2100-2001-2002 yıllarında düzenli ödemiş ancak sonra 2016 yılında ödemiş. Üç yılı geçtiği için cezalı duruma düşmüş. İki sene üst üste ödemediği taktirde, cezalı bir durumu yok. Ancak üç sene üst üste ödemediğinde cezalı oluyor. Bunları listelemesi mümkün olabilir mi?

İki tarih kaydı arasında çıkarma yapacak, üç yılı geçenleri listeleyecek. Sanırım böyle birşey...

Teşekkür ederim.
19/03/2021, 19:56

berduş

Peki kişi diyelim 4 yıl ödemedi sonra 1 tanesini ödedi sonra 3 yıl yine ödeme yapmadı bu durumda
2 cezalı ödeme 4 yıl,3 yıl Şeklinde mi olacak yoksa sadece cezalı mı yazacak
19/03/2021, 22:04

berduş

aşağıdaki fonksiyonu modüle ekleyip sorguda kullanmayı dener misiniz?
fonsiyon
Function CezaliBul(KisiID As Long) As String
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("select [Senet Tarihi],[Ödedi] from [SENETTABLOSU] where [siranum]=" & KisiID & " ORDER BY [Senet Tarihi];")
If rst.RecordCount < 1 Then GoTo Cikis

GunSay = 0
CezaSay = 0
GunKyt = ""

  Do Until rst.EOF
        If rst(1) = True Then
            If GunSay > 2 Then
                CezaSay = CezaSay + 1
                GunKyt = GunKyt & " , " & GunSay & " yıl gecikti"
            End If
            GunSay = 0
        Else
            GunSay = GunSay + 1
        End If
    rst.MoveNext
  Loop

Cikis:
rst.Close
Set rst = Nothing

If GunSay > 2 Then
CezaSay = CezaSay + 1
GunKyt = GunKyt & " : " & GunSay & " yıl gecikti"
End If

If CezaSay > 0 Then CezaliBul = CezaSay & " defa ceza aldı;" & Mid(GunKyt, 3) Else CezaliBul = ""

End Function
sorgu kodu
SELECT ANATABLO.siranum, ANATABLO.ADI_SOYADI, ANATABLO.tckimlikno, ANATABLO.[SENET TUTARI], CezaliBul([siranum]) AS CezaDurumu
FROM ANATABLO;
24/03/2021, 09:18

berduş

sayın @yturan lütfen olumlu yada olumsuz geri bildirimde bulunun
24/03/2021, 09:27

yturan

Merhabalar... Özür dilerim. Aslında istediğim bu değildi. Farklı bir yol deniyorum. Ben oluşturduğum yapıyı değiştirmeye çalışıyorum. Onun üzerinde çalışıyorum. O yüzden. Tekrar özür dilerim.