ListBox son satır sorunu

[kahramang1]

Merhabalar. Ekli dosyada 147. satırdan sonra yazmış olduğum verileri "Arama" sayfasındaki ListBox a getirmiyor. Sebebini bilemedim. Gerekli düzeltmeyi satır sıınrı fazla olacak şekilde yapıp gönderirseniz çok sevinirim. Kolay gelsin.

 

[ÖmerFaruk]

For i = 1 To sonsatir - 1
Bu şekilde 2 satırınız var. Bunlardan -1 çıkartmayın
For i = 1 To sonsatir

 

[kahramang1]

- 1 leri kaldırınca içeren kelimeleri bulma özelliği kayboldu. Örneğin "siemens" yazdığım zaman ürünü bulamıyor.

 

[kahramang1]

Pardon. Siemens i büyük harfle yazınca ürünü buldu. Kodu küçük-büyük harf duyarlı yapabilir miyiz lütfen

 

[AdemCan]

Veri sayfasındaki kayıtların hepsi büyük harfle yazılmış.

Kod içerisinde de TextBox a yazılan harfleri, büyük harfe çevirme kodu var.
aranan = UCase(TextBox1.Text)

Bu satırı aşağıdaki şekilde yazdığınız zaman küçük i harfini büyük İ harfine çevirir.
aranan = UCase(Replace(TextBox1.Text, "i", "İ"))

 

[kahramang1]

ilginiz için çok teşekkür ederim. Tüm problemler giderilmiş oldu. Herkese kolay gelsin.