filtre kodunada alttakilerini ekledim.
ayBas = DateSerial(Year(Date), Month(Date - 1), 1)
aySon = DateSerial(Year(Date), Month(Date - 1) + 1, 0)
select case yede ekledim ve Combobox10 ada fitre yazdım.Yani combo10dan geçen ay seçilirse listelenir.
Case "Geçen Ay": rs.Open "select * from Ajandam where fix(" & alan & ") between " & Fix(CDbl(CDate(ayBas))) & " and " & Fix(CDbl(CDate(aySon))) & "", baglan, 1, 1