Sub filtre()

Dim secim As String

Dim secim2 As String

Dim alan As String



On Error Resume Next



Set baglan = CreateObject("adodb.connection")

Set rs = CreateObject("adodb.recordset")

baglan.Open "provider=Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.Path & "\Database.accdb"



If ComboBox14.Value = "Başlama Zamanı" Then

alan = "BaslamaZamani"

ElseIf ComboBox14.Value = "Bitiş Zamanı" Then

alan = "BitisZamani"

ElseIf ComboBox14.Value = "Hatırlatma Zamanı" Then

alan = "HatirlatmaZamani"

End If



secim = Format(TextBox10.Value, "dd.mm.yyyy")

secim2 = Format(TextBox11.Value, "dd.mm.yyyy")



'..................Tarih Fitreleri.................................................

If ComboBox15.Value = "Eşittir" Then

rs.Open "select*from Ajandam WHERE int([" & alan & "]) =" & CDbl(CDate(secim)) & "", baglan, 1, 1

ElseIf ComboBox15.Value = "Arasında" Then

rs.Open "select*from Ajandam WHERE int([" & alan & "]) between " & CDbl(CDate(secim)) & " and " & CDbl(CDate(secim2)) & "", baglan, 1, 1



End If



With ListView1

    .ListItems.Clear



    If rs.RecordCount > 0 Then

    Do While Not rs.EOF

        .ListItems.Add , , rs(0).Value & ""

        For i = 1 To rs.Fields.Count - 1

            .ListItems(.ListItems.Count).ListSubItems.Add , , rs(i).Value & ""

        Next i

        rs.MoveNext

    Loop

    End If

End With

Set rs = Nothing

Set con = Nothing

End Sub