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 koduSELECT ANATABLO.siranum, ANATABLO.ADI_SOYADI, ANATABLO.tckimlikno, ANATABLO.[SENET TUTARI], CezaliBul([siranum]) AS CezaDurumu
FROM ANATABLO;