Kayıtta büyük harf küçük harf sorunu

[orkuncan5]

Kayıt butonunda mükerrer kayıt kodu vardır.Büyük harflerle yazdığım ismi küçük harflerlede yazarsam kayıt ediyor.Bunu nasıl engelleyebilirim.

 

[Orion1]

Aşağıdaki gibi yapın.

For Each ayni In Range("A2:A1500")
If UCase(Replace(Replace(ayni.Value, "ı", "I"), "i", "İ")) = _
UCase(Replace(Replace(CStr(TextBox2.Value), "ı", "I"), "i", "İ")) Then

 

[orkuncan5]

Evren Bey
TextBox2 = UCase(LCase(TextBox2)) kodu ile sorunu çözdüm.

 

[Orion1]

Evren Bey
TextBox2 = UCase(LCase(TextBox2)) kodu ile sorunu çözdüm.

Çözmemişsiniz.Çözdüğünüz sanmışsınız.
ingilizce birversiyonda ı,I,i,İ karakterleri sorun çıkracaktır.
Benim verdiğimi kullanının.

 

[orkuncan5]

Evren Bey haklıymışsınız Türkçe karakterlerde sorun çıkartıyor.Ama sizin kodları uyarlayamadım.Yardımcı olabilirmisiniz.Sanki sizin kodun devamı var gibi ama hepsi çıkmamış ekrana.

 

[Orion1]

Evren Bey haklıymışsınız Türkçe karakterlerde sorun çıkartıyor.Ama sizin kodları uyarlayamadım.Yardımcı olabilirmisiniz.Sanki sizin kodun devamı var gibi ama hepsi çıkmamış ekrana.

Oradaki if satırını kullanın sadece
öteki if satırını sil bunu kullan

 

[orkuncan5]

Tamamdır oldu.Ben gönderdiğim dosyada değilde başka bir dosyada denediğim için olmamış.Teşekkür ederim.Allah razı olsun sizden.