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

Derecelendirme: 0/5 - 0 oy

alican60

Aktif Üye
Kullanici Avatari
Aktif Üye
A.... C....
128
29/12/2012
0
Tokat
-
Dün,21:27
Çö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.


Ek Dosyalar
.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)
Cevapla

alican60

Aktif Üye
Kullanici Avatari
Aktif Üye
A.... C....
128
29/12/2012
0
Tokat
-
Dün,21:27
Çö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.)


Cevapla

POWER

Uzman
Kullanici Avatari
Uzman
U.... Ö....
1.865
02/04/2010
İzmir
Ofis 2003
Dün,22:33
Çözüldü 
İncelermisiniz...

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


Ek Dosyalar
.rar   EXCELDEN ACCESE VERİ AKTARMA -.rar (Dosya Boyutu: 34,03 KB / İndirme Sayısı: 23)
Please return your positive or negative ...
Cevapla

alican60

Aktif Üye
Kullanici Avatari
Aktif Üye
A.... C....
128
29/12/2012
0
Tokat
-
Dün,21:27
Çö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.


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Excel Veri Çekme Sorunu goksel86 7 687 26/05/2017, 16:14 ozanakkaya
Çözüldü Excel Filtreleme sonucu çıkan satır sayısı Ahmet Karaman 6 984 12/09/2016, 11:00 atoz112
Çözüldü Formülle köprü oluştırma ve sayfadaki veriyi alma aek1989 3 784 10/07/2016, 14:59 atoz112
Çözüldü Listbox a gelen veriyi kopyalama veya ilgili satıra gitme hsendogan 4 1.322 15/06/2016, 16:57 atoz112
Çözüldü Excelden otomatik mail gönderme ve Onay istemesi yildiray 8 2.364 20/05/2016, 00:11 ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.