merhaba.
siteden aldığım dosyada rapor çıktısı almada diğer bütün harflerde sorun çıkmamasına rağmen "ı" harfi başa geldiğinde büyük harfe dönüşmüyor.
bunu nasıl çözeceğimiz konusunda yardımcı olursanız sevinirim.
teşekkür ederim.

Ek Dosyalar

rapor_ilkharf.büyük yapmada (ı) harfi sorunu.rar(47.51 KB)

İnceleyiniz...

Lütfen olumlu veya olumsuz geri dönüş yapınız...

sn.POWER
ilginiz için çok teşekkür ediyorum.
ilk harflerin büyüklüğünde sorun yok.
fakat kelime ortasındaki "i" harfleri "ı" olarak çıkıyor.örneğin "Kadır" gibi.
bunu nasıl çözebiliriz.
teşekkür ediyorum.

Function convert(metin, secim)

    metin = Replace(metin, "I", "ı")

    metin = Replace(metin, "İ", "i")

    convert = metin

End Function



Function ilkharfbuyut(metin As String) As String

Dim deger As String, kacinci As Integer, karakter As Integer

Dim harf() As String, sayac As Integer

Dim i As Integer, yenimetin As String

karakter = Len(metin)

ReDim harf(karakter)

deger = LCase(metin)

For sayac = 1 To karakter

   harf(sayac) = convert(Mid(deger, sayac, 1), 3)

Next

kacinci = InStr(1, deger, " ")

Do While (kacinci > 0)

   harf(kacinci + 1) = UCase(harf(kacinci + 1))

   kacinci = InStr(kacinci + 1, deger, " ")

Loop

harf(1) = UCase(harf(1))

For i = 1 To karakter

   yenimetin = yenimetin + harf(i)

Next

ilkharfbuyut = yenimetin

   

End Function

Bu kodları yazın, istediğiniz yerde de ilkharfbuyut([AlanAdi]) olarak kullanın.

Not: Kodlar alıntıdır. Ama nereden aldığımı hatırlamıyorum))

sn.BlackEagle
kodlar için teşekkür edeim.
fakat kodları nasıl yerleştireceğim.bu konuda yardımcı olursanız sevinirim.
teşekkürler.

Buyrun inceleyin..

Ek Dosyalar

rapor_ilkharf.büyük yapmada (ı) harfi sorunu_2012-01-22.rar(47.45 KB)