sorgudaki tarih alanını artan yap.ödeme tarihi alanını değil.bu sefer düzgün gelecektir.sorun görünmüyor
İyiki Varsın Access
Do While Not rst.EOF
Cdt = rst.Fields("ödemetutari")
Cdt = IIf(IsNull(Cdt), 0, Cdt)
Dbt = rst.Fields("taksittutari")
Dbt = IIf(IsNull(Dbt), 0, Dbt)
If Cdt = Dbt Then
RSM = 0
Exit Do
End If
RSM = RSM + Cdt - Dbt
rst.MoveNext
Loop