Excel-Access combobox listbox sorunu

[ipkisiyamaksosis]

Merhaba arkadaşlar,

Ben excel'de bir userform oluşturdum. Userform'da resimde de göreceğiniz gibi bir Combobox'ım var. Bu combobox'la access veritabanından okuma sağlayıp seçtiğim isime ait bilgileri listbox'da gözükmesini istiyorum.

Yaklaşık 2 haftadır bunun için uğraşıyorum kendim yapmaya çalıştım fakat bir türlü beceremedim. Listbox olayının aynısını combobox'a taşıdım olur sandım fakat olmadı.

Şunu da belirtmek isterim. Forumda saatlerce arama yaptım fakat bu durumla ilgili bir örnek de bir türlü bulamadım.

Lütfen yardımlarınızı bekiyorum. Engin bilgilerinize ihtiyacım var.

Teşekkürler.

 

[Orion1]

Örnek dosya ekleyiniz.

 

[ipkisiyamaksosis]

Örnek dosyayı .rar dosyasını olarak eklemiştim ama açılmıyor mu? Rar'dan çıkartarak tekrar ekliyorum.

mdb dosyasının boyutu 960 kb olduğu için ekleyemedim bu yüzden .rar yaptım.

Şimdi görebiliyor olmanız lazım.

 

[Orion1]

Örnek dosyayı .rar dosyasını olarak eklemiştim ama açılmıyor mu? Rar'dan çıkartarak tekrar ekliyorum.

Rar dosyasında excel dosyası ve acess dosyası yoktu.ppt dosyası vardı ve sanırım birde doc dosyası vardı.
Excel dosyasını ve access dosyasına bir kaç veri ekleyerek yolarsanız bakarız.
Yoksa bunları bizim kendimizinmi oluşturmamımızı istiyorsunuz.
Zira her kodu denemek gerekiyor .Afaki cevap yazılmıyor hiç bir zaman.Deniyoruz.Eğer doğru sonuç almışsak size dosyayı yolluyoruz,oldu diye.

 

[ipkisiyamaksosis]

Sayın Evren Gizlen,

Ben dosyaları Rar yapacağıma sorunu anlattığım resmi ve ppt dosyasını .rar yapmışım. Çok afedersiniz. Şimdi düzelttim.

Teşekkür ederim.

 

[Orion1]

Dosyanız ektedir.

Sub combolist()
Set rs = CreateObject("ADODB.recordset")
strSQL = "SELECT distinct(Afs) FROM [Add]ORDER BY Afs;"
rs.Open strSQL, adoCN, 1, 3
rs.MoveFirst
cbxasor.Clear
cbxasor.Column = rs.getrows

End Sub

 

[ipkisiyamaksosis]

Sayın Evren Gizlen,

Öncelikle cevap verdiğinizi için çok teşekkür ederim.

Combodan seçim yapılıyor fakat aşağıdaki listbox seçime göre süzülmüyor. Yani ben Bekir ismini seçtim ve diğerlerini de denedim ama olmadı.

Ekte göreceğiniz resimdeki gibi görüyorum.

 

[Orion1]

Sayın Evren Gizlen,

Öncelikle cevap verdiğinizi için çok teşekkür ederim.

Combodan seçim yapılıyor fakat aşağıdaki listbox seçime göre süzülmüyor. Yani ben Bekir ismini seçtim ve diğerlerini de denedim ama olmadı.

Ekte göreceğiniz resimdeki gibi görüyorum.

Ben o bölümü atlamışım.
Dosyanız ektedir.
hepsini listelemek için comboboxı silin.O zaman hepsi listelenir.

Sub liste_59()
ListBox1.Clear
Set rs = CreateObject("ADODB.recordset")
If cbxasor.Value = "" Then
    Set rs = adoCN.Execute("select count(Afs) from [Add];")
    Else
    Set rs = adoCN.Execute("select count(Afs) from [Add] where Afs='" & cbxasor.Value & "';")
End If
If rs(0).Value = 0 Then Set rs = Nothing: Exit Sub

Set rs = Nothing
Set rs = CreateObject("ADODB.recordset")

If cbxasor.Value = "" Then
    strSQL = "SELECT * FROM [Add] order by Afs;"
    Else
    strSQL = "SELECT * FROM [Add] where Afs='" & cbxasor.Value & "' order by Afs;"
End If
rs.Open strSQL, adoCN, 1, 3
rs.MoveFirst
ListBox1.Column = rs.getrows
rs.Close
Set rs = Nothing
End Sub

 

[ipkisiyamaksosis]

Tek kelimeyle muhteşemsiniz. O kadar çok uğraşmıştım ki hep farklı yöntemler denemiştim.

Çok çok teşekkür ederim. Emeğinize sağlık. Allah razı olsun.

 

[Orion1]

Tek kelimeyle muhteşemsiniz. O kadar çok uğraşmıştım ki hep farklı yöntemler denemiştim.

Çok çok teşekkür ederim. Emeğinize sağlık. Allah razı olsun.

Rica ederim.
İyi çalışmalar.

 

[kadirdilbaz]

Teşekürler epeydir aradığım bir soruya cevap buldum.