AccessTr.neT
ilk harf büyük yapma hatası - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: ilk harf büyük yapma hatası (/konu-ilk-harf-buyuk-yapma-hatasi.html)



ilk harf büyük yapma hatası - alperadn01 - 20/07/2009

arkadaşlar aşağıda gönderdiğim kelimenin ilk harfini büyük yapmakta hata ile karşılaşıyorum.
1.hata: caps lock tuşu açıkken İ harfi büyük olarak kalıyor küçük i harfine dönmüyor.
2.bir kişinin adresini yazarken bilindiği gibi kısaltmalar yapılmaktadır.örneğin Yunus Emre Mah.İstiklal Cad.No:16 gibi adreste nokta(.) işaretinden sonraki harfi de küçük yapıyor.Noktadan sonraki kelimenin ilk harfini büyük diğerlerini küçük yaptırmak istiyorum.
kod:
Private Sub İKAMETİ_AfterUpdate()
İKAMETİ = StrConv(İKAMETİ, vbProperCase)
ilk = Target
ilk= Replace(ilk, " ", " ")
ilk = Replace(ilk, " ", " ")
ilk = Replace(ilk, "I", "ı")
ilk = Replace(ilk, "İ", "i")
ilk = Replace(ilk, ".", ". ")
Target = StrConv(ilk, vbProperCase)
End Sub

bu kod üzerinden yardımcı olurmusunuz. şimdiden bütün arkadaşlara teşekkür ederim.


Cvp: ilk harf büyük yapma hatası - C*e*l*o*y*c*e - 20/07/2009

güncelleştirme sonrasında olayına
Me.[İKAMETİ] = StrConv([İKAMETİ], 3) ...şeklinde
yada şu fonksiyonu BİR DENERMİSİNİZ...

Public Function MB(ByVal b As String) As String
MB = StrConv(b, vbUpperCase)
MB= Replace(MB, "i", "İ")
MB = Replace(MB, "ı", "I")
End Function