Merhaba, kriterleregore kodunu aşağıdaki ile değiştirerek deneyiniz.

Sub kriterleregore()



'RowSource Satır Kaynağı

'SELECT Seçin



Me.lstGelir.RowSource = "SELECT Gelir.GelirID, Gelir.Tarih, Gelir.SubeAdi, Gelir.GelirislemTuru, Gelir.Aciklama, Gelir.GirenMiktar FROM Gelir WHERE (((Gelir.Tarih) Between [Forms]![Kasa_Gunluk]![ilkTarih] And [Forms]![Kasa_Gunluk]![SonTarih]) AND ((Gelir.SubeAdi) Like '*' & [Forms]![Kasa_Gunluk]![SubeAdi] & '*'));"

Me.lstGider.RowSource = "SELECT Gider.GiderID, Gider.Tarih, Gider.SubeAdi, Gider.GiderislemTuru, Gider.Aciklama, Gider.GiderMiktar FROM Gider WHERE (((Gider.Tarih) Between Forms!Kasa_Gunluk!ilkTarih And Forms!Kasa_Gunluk!SonTarih) AND ((Gider.SubeAdi) Like '*' & [Forms]![Kasa_Gunluk]![SubeAdi] & '*'));"



Recalc



End Sub