#2
Dim metin, uce, UCaseEx, A
metin = Me.MetinKutusununAdı
For uce = 1 To Len(metin)
If Asc(Mid(metin, uce, 1)) = 105 Then metin = left(metin, uce - 1) & "İ" & Mid(metin, uce + 1)
If Asc(Mid(metin, uce, 1)) = 253 Then metin = left(metin, uce - 1) & "I" & Mid(metin, uce + 1)
Next uce
uce = 0
UCaseEx = UCase(metin)
Me.MetinKutusununAdı = Trim(UCaseEx)| Bu Konudaki Yorumlar |
|
Metin Kutusuna Yazının büyük harf yazılması - Yazar: sinan55 - 18/03/2009, 11:07
Cvp: Metin Kutusuna Yazının büyük harf yazılması - Yazar: tdsharun - 18/03/2009, 11:26
Cvp: Metin Kutusuna Yazının büyük harf yazılması - Yazar: sinan55 - 18/03/2009, 11:38
Cvp: Metin Kutusuna Yazının büyük harf yazılması - Yazar: tdsharun - 18/03/2009, 11:45
Cvp: Metin Kutusuna Yazının büyük harf yazılması - Yazar: Seruz - 18/03/2009, 11:53
Cvp: Metin Kutusuna Yazının büyük harf yazılması - Yazar: sinan55 - 18/03/2009, 12:16
Cvp: Metin Kutusuna Yazının büyük harf yazılması - Yazar: tdsharun - 18/03/2009, 12:30
Cvp: Metin Kutusuna Yazının büyük harf yazılması - Yazar: sinan55 - 18/03/2009, 12:41
|
