Const KGlr As String = "SELECT sorguGelir.ucretID, sorguGelir.uOdemeTarihi, sorguGelir.oAdiSoyadi, sorguGelir.uAylikTaksit FROM sorguGelir ORDER BY sorguGelir.uOdemeTarihi DESC"
Const KGid As String = "SELECT sorguGider.id, sorguGider.Trh, sorguGider.Aciklama, sorguGider.Odenen FROM sorguGider ORDER BY sorguGider.Trh DESC"
Sub HESAPLA()
if isnull(Me.listeGelir) or isnull(Me.listeGider) then
            Me.listeGelir.RowSource = KGlr
            Me.listeGider.RowSource = KGid
else
            Me.listeGelir.RowSource = Replace(KGlr, "ORDER", "Where uOdemeTarihi between " & CLng(Me.basTarihi) & " And " & CLng(Me.bitTarihi) & " ORDER")
            Me.listeGider.RowSource = Replace(KGid, "ORDER", "Where Trh between " & CLng(Me.basTarihi) & " And " & CLng(Me.bitTarihi) & " ORDER")
end if
 
Me.listeGelir.Requery: Me.listeGider.Requery
 
Dim Kez, ListSy As Long, GecTp As Double
For Kez = 0 To 1
    For ListSy = 1 To Me.Controls("liste" & IIf(Kez = 0, "Gelir", "Gider")).ListCount - 1
        GecTp = GecTp + CDbl(Me.Controls("liste" & IIf(Kez = 0, "Gelir", "Gider")).Column(3, ListSy))
    Next ListSy
Me.Controls("aylik" & IIf(Kez = 0, "Gelir", "Gider")) = GecTp
GecTp = 0: ListSy = 0
Next Kez
End Sub
Private Sub basTarihi_AfterUpdate()
Call HESAPLA
End Sub
Private Sub bitTarihi_AfterUpdate()
Call HESAPLA
End Sub