Skip to main content

AccessTr.neT


Excelden Accesteki veriyi filtreleme sorunu.

Excelden Accesteki veriyi filtreleme sorunu.

Çözüldü #1
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.
.rar EXCELDEN ACCESE VERİ AKTARMA -.rar (Dosya Boyutu: 32,3 KB | İndirme Sayısı: 11)
.rar VERİ.rar (Dosya Boyutu: 22,01 KB | İndirme Sayısı: 5)
Son Düzenleme: 06/01/2013, 14:52, Düzenleyen: alican60.
Cevapla
Çözüldü #2
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.)
Son Düzenleme: 06/01/2013, 14:54, Düzenleyen: alican60.
Cevapla
Çözüldü #3
İncelermisiniz...

Filtreleme değilde yeniden sorgulama yolu düşünülmüştür...Belki işinizi görür ve ışık açar...
.rar EXCELDEN ACCESE VERİ AKTARMA -.rar (Dosya Boyutu: 34,03 KB | İndirme Sayısı: 24)
Please return your positive or negative ...
Cevapla
Çözüldü #4
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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da