Sub filtre()

Set baglan = CreateObject("adodb.connection")

Set rs = CreateObject("adodb.recordset")



Call baglanti



If ComboBox1.Text <> Empty And ComboBox2.Text = Empty And ComboBox3.Text = Empty Then

    rs.Filter = "[CALISAN_KODU] like '" & Mid(ComboBox1.Text, 1, Len(ComboBox1.Text)) & "%'"

    



ElseIf ComboBox1.Text <> Empty And ComboBox2.Text <> Empty And ComboBox3.Text = Empty Then

    rs.Filter = " [CALISAN_KODU] like '" & Mid(ComboBox1.Text, 1, Len(ComboBox1.Text)) & "%'" & _

             "and [ADI]          like '" & Mid(ComboBox2.Text, 1, Len(ComboBox2.Text)) & "%'"



End If



ListBox1.Column = rs.GetRows



End Sub

Kodu ile excelden accesteki veriyi süzdürme yapamıyorum,yardımcı olabilirmisiniz.

---

örnek dosya ekledim.

Sub filtre()

Set baglan = CreateObject("adodb.connection")

Set rs = CreateObject("adodb.recordset")



Call baglanti



If ComboBox1.Text <> Empty And ComboBox2.Text = Empty And ComboBox3.Text = Empty Then

    rs.Filter = "[CALISAN_KODU] like '" & Mid(ComboBox1.Text, 1, Len(ComboBox1.Text)) & "%'"



ElseIf ComboBox1.Text <> Empty And ComboBox2.Text <> Empty And ComboBox3.Text = Empty Then

    rs.Filter = " [CALISAN_KODU] like '" & Mid(ComboBox1.Text, 1, Len(ComboBox1.Text)) & "%'" & _

             "and [ADI]          like '" & Mid(ComboBox2.Text, 1, Len(ComboBox2.Text)) & "%'"

            

ElseIf ComboBox1.Text <> Empty And ComboBox2.Text <> Empty And ComboBox3.Text <> Empty Then

    rs.Filter = " [CALISAN_KODU] like '" & Mid(ComboBox1.Text, 1, Len(ComboBox1.Text)) & "%'" & _

             "and [ADI]          like '" & Mid(ComboBox2.Text, 1, Len(ComboBox2.Text)) & "%'" & _

             "and [DOGUM_TARIHI] like '" & Mid(ComboBox3.Text, 1, Len(ComboBox3.Text)) & "%'"

            

End If



    With Application

        .ScreenUpdating = False

        .EnableEvents = False

    End With

    On Error Resume Next

            ListBox1.Column = rs.GetRows



End Sub

Ykarıdaki kodu ekteki acces dosyasındaki açılan kutulara nasıl uyarlayabilirim.(Ek dosyayı ( VERİ) önceki mesaja ekleyebildim.)

İncelermisiniz...

Filtreleme değilde yeniden sorgulama yolu düşünülmüştür...Belki işinizi görür ve ışık açar...

Ufuk abi bilgine sağlık.Ne yalan söyliyeyim inşallah dosyama POWER bakar diye içimden geçiriyordum(daha önceki yanıtından dolayı).Çözümlemelerin kısa,net,anlaşılır,basit ve 10 numara.Allah razı olsun.