Combobox ile Veri Getirme

Listeleme kutusu. Verileriniz klasör ve dosyalarınızı görsel olarak kontrol edebileceğiniz bir nesne modeli.

Combobox ile Veri Getirme

İleti#1)  gencturkk » 06 Eyl 2017 01:47

Merhaba. Ufak çaplı bir program yapıyorum. Ancak, veri süzmede biraz başarısızım. Ekte sunduğum dosyada bulunan "İSTATİSTİK" bölümünde tek combobox (veri) ile çift combobox (veri) kullanarak veri getirmeye çalışıyorum. Sürekli bir yerde hata yapıyorum. Tek ve Çİft Combobox'a göre 1'er örnek kod yazabilirseniz çok sevinirim. Örneklerinize göre çeşitlendireceğim.
Teşekkür ederim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
gencturkk
Siteye Alışmış
 
Kayıt: 27 Arl 2016 23:05
Meslek: memur
Yaş: 39
İleti: 155
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: Combobox ile Veri Getirme

İleti#2)  gencturkk » 06 Eyl 2017 02:09

Not:Satır sayısı, veri girişi oldukça artarak devam edecek. Örnekteki gibi sinirli kalmayacak
Kullanıcı avatarı
gencturkk
Siteye Alışmış
 
Kayıt: 27 Arl 2016 23:05
Meslek: memur
Yaş: 39
İleti: 155
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: Combobox ile Veri Getirme

İleti#3)  gencturkk » 07 Eyl 2017 02:52

Merhaba.
Ekte sunduğum dosyada biraz çalıştım ama 2. sütundaki veri aratırken bulduramadım. Ayrıca, düzenleyeceğiniz koddu birbirine bağlı çift Combobox da yapmam gerekli.
Yardımcı olursanız sevinirim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
gencturkk
Siteye Alışmış
 
Kayıt: 27 Arl 2016 23:05
Meslek: memur
Yaş: 39
İleti: 155
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: Combobox ile Veri Getirme

İleti#4)  Ali ÖZ » 07 Eyl 2017 15:29

Merhaba,
TC ile süzme işlemi için bu kodu kullnabilirsiniz.Diğer süzme işini tam anlayamadım.

Kod: Tümünü seç
Private Sub CommandButton20_Click()
On Local Error Resume Next
ListBox1
.Clear
Set con 
CreateObject("adodb.connection")
Set rs CreateObject("adodb.recordset")
con.Open "provider=microsoft.ace.oledb.12.0;" "data source=" ThisWorkbook.FullName ";" _
"extended properties=""excel 8.0;hdr=yes"""
rs.Open "select * from [Sayfa1$] where [TC] = " ComboBox9.Text ""con11
With ListBox1
    
If .ListCount 1 Then
    
.ColumnCount rs.Fields.Count
    
.ColumnWidths "90;90"
    
.Column rs.getrows
    End 
If
End With
End Sub
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9242
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Combobox ile Veri Getirme

İleti#5)  gencturkk » 08 Eyl 2017 01:22

Merhaba Ali Bey. TC süzme işlemi için verdiğiniz kod güzel çalışıyor. Onun için teşekkür ederim.
Ancak Tek Veri kısmında, TC için verdiğiniz kodları "İCRA DOSYA NO" ve "TARİH"içinde yapmak istedim ancak süzdüremedim.

Ayrıca, Çift Veri Kısmında ise ilk olarak Tarih sonra ise Durum seçilerek (2 değere göre süzme), süzdürmek istedim ama beynim durdu yapamadım.
örnek; Eylül 2017 seçildikten sonra durum olarak araç seçildiğinde Eylül 2017 içinde araç olanları süzdürmek istiyorum.

Son olarak da Listboxda gelen verilerin üstünde Başlıkların da görünmesi mümkün mü?

Çok şey istiyorum ama ilginiz ve yardımınız için teşekkür ederim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
gencturkk
Siteye Alışmış
 
Kayıt: 27 Arl 2016 23:05
Meslek: memur
Yaş: 39
İleti: 155
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul


Forum ListView

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe