Çözüldü Listbox da Filtreleme sayısal değer arandığında hata veriyor.

[OğuzTürkyılmaz]

Merhaba
Listbox üzerindeki combobox ile filtreleme yaparken combobox içindeki tüm itemlar çalışırken Taksit vadesini seçip sayısal değer yazdığımda hata alıyorum. Bu sorunu nasıl çözebilirim. Yardımlarınız için teşekkür ederim.

 

[OğuzTürkyılmaz]

Bu hatayı dosya ilk açıldığında eğer comboboxdan ilk taksit vadesini seçtiğinizde yapıyor. Eğer ilk olarak taksit vadesi dışında başka bir eleman ile arama yaptıktan sonra taksit vdesi seçeneğini seçerseniz bu hatayı vermiyor. dosya ilk açılıp list box da ilk taksit vadesi ile arama yapmak isterseniz bu hatayı veriyor.

 

[OğuzTürkyılmaz]

Bir tutarsızlık var bir şekilde bazen filtreliyor çoğu zaman hata veriyor tam anlayamadım.

 

[Adnan]

sarı formda hata alıyordunuz değil mi? bu haliyle bir deneyin

 

[OğuzTürkyılmaz]

sarı formda hata alıyordunuz değil mi? bu haliyle bir deneyin

Teşekkür ederim ilk bakışta kodda nereyi değiştirdiğinizi çözemedim. Hata neredeydi acaba

 

[Adnan]

hata combobox birden fazla kere dolduruluyor ve combo index numarsı büyüyordu. onu temizle sıfırdan doldur dedim
Sub AraFiltrele()
ComboBox_Filtre.Clear
Dim c As Integer

For c = 1 To 24
Me.ComboBox_Filtre.AddItem sayfaPoliceler.Cells(1, c).Value
Next

End Sub

 

[OğuzTürkyılmaz]

hata combobox birden fazla kere dolduruluyor ve combo index numarsı büyüyordu. onu temizle sıfırdan doldur dedim
Sub AraFiltrele()
ComboBox_Filtre.Clear
Dim c As Integer

For c = 1 To 24
Me.ComboBox_Filtre.AddItem sayfaPoliceler.Cells(1, c).Value
Next

End Sub

Çok teşekkür ederim. Bu kodu biliyorum ve uyguladığımı düşünüyordum derste anlatılmıştı zaten videoda ben yazdım diye hatırlıyorum ama bir sürü deneme yaparken sil yap boz orayıda uçurmuşum olmayan dikkatimden kaçmış. Çok teşekkür ederim.

 

[Adnan]

bu kodu siz mi yazdınız

 

[OğuzTürkyılmaz]

bu kodu siz mi yazdınız

Tabi ki hayır kendime göre eklemeler yaptım ama % 90 ı yabancı bir kaynaktan öğrendiklerim.

 

[Adnan]

o halde demin yazdığım kodu iptal edip AddDataToListbox sub unda combobox filter doldurma kodunu iptal etseniz daha iyi olur bir deneyin burayı nasılda görmemişim

 

[OğuzTürkyılmaz]

Tabi ki hayır kendime göre eklemeler yaptım ama % 90 ı yabancı bir kaynaktan öğrendiklerim.

Fakat bu kodda da sıkıntılar var sıkıntı demiyim de mesela combobox a sabit bir index numarası atayamıyorsunuz döngü ile doldurulduğu için sanırım ve mesela formun açılışında taksit vadesi seçili gelsin ve textbox kriteride günün tarihi olsun diyemiyorsunuz yani form yüklendiğinde listboxda o günün tarihi ile taksit vadesi gelenler otomatik filtrelensin yapamadım. Kodlar textboxın değiştiğinde yordamına yazıldı çünkü. Bir kaç şey deneyeceğim bakalım çok da sorun değil.

 

[Adnan]

yapabilirsiniz. Uğraşın yapamazsanız beraber yaparız. Combobox1.ListIndex=0 yada başka bir index no verebilirsiniz

 

[OğuzTürkyılmaz]

yapabilirsiniz. Uğraşın yapamazsanız beraber yaparız. Combobox1.ListIndex=0 yada başka bir index no verebilirsiniz

Onları denedim dün hata verdi. Belkide tekrar tekrar yüklüyor diye vermiştir tekrar deneyeceğim. Çok teşekkür ederim.

 

[Adnan]

hata vermiyor denedim