Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
05/01/2013 15:43
Konu Sahibi
alican60
Yorumlar
3
Okunma
2124
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
alican60

alican60

Aktif Üye
50270
Al.... Ca....
 39
 128
 29/12/2012
0
 Tokat
 
 -
 Bugün,21:46
Çözüldü 

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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.




alican60

alican60

Aktif Üye
50270
Al.... Ca....
 39
 128
 29/12/2012
0
 Tokat
 
 -
 Bugün,21:46
Çözüldü 

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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.)



...........
POWER

POWER

Uzman
17709
Uf.... Öz....
 55
 44
 1.874
 02/04/2010
 İzmir
 Bilgisayar Mühendisi
 Ofis 2003
 15/07/2019,01:29
Çözüldü 
İncelermisiniz...

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


Please return your positive or negative ...

alican60

alican60

Aktif Üye
50270
Al.... Ca....
 39
 128
 29/12/2012
0
 Tokat
 
 -
 Bugün,21:46
Çözüldü 
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.




...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Kasa Defteri Uygulamasında Devir Sorunu Oğuz Türkyılmaz 53 647 19/08/2019, 01:27
Son Yorum: berduş
Çözüldü UserForm sorunu kenan827 2 2.081 17/04/2018, 15:20
Son Yorum: Subco
Çözüldü Excel Veri Çekme Sorunu goksel86 7 1.569 26/05/2017, 16:14
Son Yorum: ozanakkaya
Çözüldü Excel Filtreleme sonucu çıkan satır sayısı Ahmet Karaman 6 1.828 12/09/2016, 11:00
Son Yorum: atoz112
Çözüldü Formülle köprü oluştırma ve sayfadaki veriyi alma aek1989 3 1.208 10/07/2016, 14:59
Son Yorum: atoz112

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.