AccessTr.neT

Tam Versiyon: Excelden Accesteki veriyi filtreleme sorunu.
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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.