Cvp: raporda ilkharf büyük yapmada (ı) harfi sorunu - Yandemir - 22/01/2012
aşağıdaki fonksiyonu kullanın
Büyük harfte küçük harfte girseniz Capitalize hale getiriyor. Türkçe harflerde dahil.
Function IlkHarfBuyut(metin As String) As String
metin = Replace(metin, "A", "a", , , vbBinaryCompare)
metin = Replace(metin, "B", "b", , , vbBinaryCompare)
metin = Replace(metin, "C", "c", , , vbBinaryCompare)
metin = Replace(metin, "Ç", "ç", , , vbBinaryCompare)
metin = Replace(metin, "D", "d", , , vbBinaryCompare)
metin = Replace(metin, "E", "e", , , vbBinaryCompare)
metin = Replace(metin, "F", "f", , , vbBinaryCompare)
metin = Replace(metin, "G", "g", , , vbBinaryCompare)
metin = Replace(metin, "Ğ", "ğ", , , vbBinaryCompare)
metin = Replace(metin, "H", "h", , , vbBinaryCompare)
metin = Replace(metin, "I", "ı", , , vbBinaryCompare)
metin = Replace(metin, "İ", "i", , , vbBinaryCompare)
metin = Replace(metin, "J", "j", , , vbBinaryCompare)
metin = Replace(metin, "K", "k", , , vbBinaryCompare)
metin = Replace(metin, "L", "l", , , vbBinaryCompare)
metin = Replace(metin, "M", "m", , , vbBinaryCompare)
metin = Replace(metin, "N", "n", , , vbBinaryCompare)
metin = Replace(metin, "O", "o", , , vbBinaryCompare)
metin = Replace(metin, "Ö", "ö", , , vbBinaryCompare)
metin = Replace(metin, "P", "p", , , vbBinaryCompare)
metin = Replace(metin, "Q", "q", , , vbBinaryCompare)
metin = Replace(metin, "R", "r", , , vbBinaryCompare)
metin = Replace(metin, "S", "s", , , vbBinaryCompare)
metin = Replace(metin, "Ş", "ş", , , vbBinaryCompare)
metin = Replace(metin, "T", "t", , , vbBinaryCompare)
metin = Replace(metin, "U", "u", , , vbBinaryCompare)
metin = Replace(metin, "Ü", "ü", , , vbBinaryCompare)
metin = Replace(metin, "V", "v", , , vbBinaryCompare)
metin = Replace(metin, "X", "x", , , vbBinaryCompare)
metin = Replace(metin, "Y", "y", , , vbBinaryCompare)
metin = Replace(metin, "Z", "z", , , vbBinaryCompare)
metin = Replace(metin, " a", " A")
metin = Replace(metin, " b", " B")
metin = Replace(metin, " c", " C")
metin = Replace(metin, " ç", " Ç")
metin = Replace(metin, " d", " D")
metin = Replace(metin, " e", " E")
metin = Replace(metin, " f", " F")
metin = Replace(metin, " g", " G")
metin = Replace(metin, " ğ", " Ğ")
metin = Replace(metin, " h", " H")
metin = Replace(metin, " ı", " I")
metin = Replace(metin, " i", " İ")
metin = Replace(metin, " j", " J")
metin = Replace(metin, " k", " K")
metin = Replace(metin, " l", " L")
metin = Replace(metin, " m", " M")
metin = Replace(metin, " n", " N")
metin = Replace(metin, " o", " O")
metin = Replace(metin, " ö", " Ö")
metin = Replace(metin, " p", " P")
metin = Replace(metin, " q", " Q")
metin = Replace(metin, " r", " R")
metin = Replace(metin, " s", " S")
metin = Replace(metin, " ş", " Ş")
metin = Replace(metin, " t", " T")
metin = Replace(metin, " u", " U")
metin = Replace(metin, " ü", " Ü")
metin = Replace(metin, " v", " V")
metin = Replace(metin, " x", " X")
metin = Replace(metin, " y", " Y")
metin = Replace(metin, " z", " Z")
If Left(metin, 1) = "i" Then metin = "İ" & Mid(metin, 2): GoTo Cik
If Left(metin, 1) = "ı" Then metin = "I" & Mid(metin, 2): GoTo Cik
If Left(metin, 1) = "ş" Then metin = "Ş" & Mid(metin, 2): GoTo Cik
If Left(metin, 1) = "ğ" Then metin = "Ğ" & Mid(metin, 2): GoTo Cik
If Left(metin, 1) = "ü" Then metin = "Ü" & Mid(metin, 2): GoTo Cik
If Left(metin, 1) = "ö" Then metin = "Ö" & Mid(metin, 2): GoTo Cik
If Left(metin, 1) = "ç" Then metin = "Ç" & Mid(metin, 2): GoTo Cik
metin = UCase(Mid(metin, 1, 1)) & Mid(metin, 2)
Cik:
IlkHarfBuyut = metin
End Function
Cvp: raporda ilkharf büyük yapmada (ı) harfi sorunu - alpeki99 - 22/01/2012
Şu zamana kadar dikkat çekmemiş ama konu "Access Örnekleri ve Uygulamaları" kategorisine açılmış. Sayın aguney16 lütfen yeni bir konu açarken hangi kategoriye açtığınıza dikkat ediniz. Konu Access Soruları ve Cevapları kategorine taşınmıştır.
|