Baş Harf Büyük Yapma Sorunları

Merhabalar, çalışmamda bir formu veri girişi için kullanıyorum. Verileri baş harfleri büyük girmem lazım. Formdaki adı alanının çıkış olayındaki strconv fonksiyonu işimi görüyor ancak türkçe karakterlerle başım dertte. Oda replace ile çözülebiliyor, ancak i ile başlayan isimlerde sonuç hep yanlış oluyor. Replace baş harfteki i ler ile isimdeki diğer i leri aynı yaptığından sonuç genellikle yanlış oluyor. Bu sorunu aşmanın bir yolu varmıdır.

Kodu aşağıdaki gibi değiştiriniz...

Private Sub adi_Exit(Cancel As Integer)

kkk = Left(Me.adi, 1)

Me.adi = Replace(StrConv(kkk, 3), "I", "İ") & Mid(Me.adi, 2, Len(Me.adi))

End Sub

Büyük harfle veri girerken sonuç yanlış oluyor, ve I ile başlayan isim girmek istediğimizde. İlginize teşekkürler..

Yandemir hocanın örneğinde bu konu çözülmüştü incelemenizi tavsiye ederim.

Çok teşekkürler..