Excelden Accesteki veriyi filtreleme sorunu.
Tarih
05/01/2013 15:43
Konu Sahibi
alican60
Yorumlar
3
Okunma
1609
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....
116
29/12/2012
0
Tokat
-
Bugün,13:41
Çö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....
116
29/12/2012
0
Tokat
-
Bugün,13:41
Çö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.848
02/04/2010
İzmir
Ofis 2003
Bugün,12: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...


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....
116
29/12/2012
0
Tokat
-
Bugün,13:41
Çö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
  Excel Filtreleme sonucu çıkan satır sayısı Ahmet Karaman 6 366 12/09/2016, 11:00 atoz112
  Formülle köprü oluştırma ve sayfadaki veriyi alma aek1989 3 404 10/07/2016, 14:59 atoz112
  Listbox a gelen veriyi kopyalama veya ilgili satıra gitme hsendogan 4 906 15/06/2016, 16:57 atoz112
  Excelden otomatik mail gönderme ve Onay istemesi yildiray 8 1.291 20/05/2016, 00:11 ozanakkaya
  Güncelleme ve Kaydetme sorunu yok_06 2 431 16/05/2016, 17:02 atoz112


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya