Soru Listbox comboboxlar dolmuyor

[arrow3441]

Merhaba ekteki dosyada listbox sayfaya bilgiler geliyor fakat comboboxlar dolmuyor .Alttaki kodlardan kaynaklı ama bu kodların önemi nedir bunları kaldırınca düzeliyor.

Rs.Close: Con.Close
Set Con = Nothing
Set Rs = Nothing
sql = ""
son = Empty

 

[Korhan Ayhan]

O yazdığınız satırları aşağdaki makronun sonuna ekleyip deneyiniz.

Sub Combo(ByVal Tablo As String)

 

[arrow3441]

Yok hocam olmadı ekledim oraya bu sefer combobox filtreleme çalışmadı

 

[Korhan Ayhan]

Ben Comboboxların dolması olayı için cevap vermiştim. Önerimi uygulayınca Comboboxlar doldu mu?

 

[arrow3441]

Evet hocam doldu orayı yazamamışm bu seferde ama combobox filtre çalışmıyor

 

[Korhan Ayhan]

Bu durumda bahsi geçen kod satırlarını aşağıdaki olayın hemen altına 2. satırından itibaren ekleyip deneyiniz.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

 

[arrow3441]

Evet hocam bu şekilde doğru sonuç veriyor . Hocam peki bu kodlar listbox ekleme yada dediğiniz gibi
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Buranın içine eklemenin ne gibi faydası yada sıkıntısı olur anlamak için soruyorum

 

[Korhan Ayhan]

Forumumuzda bu kod yapısı ile ilgili bölüm var. İncelerseniz bilgi sahibi olabilirsiniz.

ADO-DAO-Kapalı Dosya Uygulamaları

Bu başlıkta, ADO ve DAO kullanımını içeren kodları ve kapalı dosyadan veri alma ile veri kaydetme uygulamalarını bulabilirsiniz.

www.excel.web.tr

 

[arrow3441]

Teşekkürler