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;