Texbox Küçük Büyük Harf Düzeni

[mtozer]

Merhaba;

Bir sorgulama listesinde TextBox'a giriş yaptığımda küçük büyük harf duyarlılığı olmasını nasıl saglayabilirim. "Lower-Upper-Proper" dışında. Yani Textbox'a nasıl giriş yapılıyorsa oyle sorgulama yapmak istiyorum.

İyi çalışmalar.

 

[Orion1]

Merhaba;

Bir sorgulama listesinde TextBox'a giriş yaptığımda küçük büyük harf duyarlılığı olmasını nasıl saglayabilirim. "Lower-Upper-Proper" dışında. Yani Textbox'a nasıl giriş yapılıyorsa oyle sorgulama yapmak istiyorum.

İyi çalışmalar.

Bunların hiç birini kullanmayın.Direk textboxtaki veri ile sorgulama yapın.

 

[mtozer]

Private Sub TextBox1_Change()
On Error Resume Next
TextBox1 = Evaluate("=yazım.düzeni(""" & TextBox1 & """)")
TextBox1 = Evaluate("=proper(""" & TextBox1 & """)")
ListBox1.Clear
If TextBox1 <> "" Then
For i = 82 To Cells(Rows.Count, 82).End(3).Row



Kod bu sekilde "proper" ve textbox u silince hata veriyor.

 

[Korhan Ayhan]

Aşağıdaki iki satırı da silip öyle deneyin.

TextBox1 = Evaluate("=yazım.düzeni(""" & TextBox1 & """)")
TextBox1 = Evaluate("=proper(""" & TextBox1 & """)")

 

[mtozer]

Asil kullanim seklim soyle; ilk harf buyuk burada sorun yok ancak bunula birlikte rakamdan sonra kucuk harf yazmasi. Su anda ilk harf buyuk oldugundan rakamdan sonrada buyuk harf yaziyor. Ornegin "Yazi 200x" seklinde nasil yapilabilir.