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.
![Çözüldü](images/icons/cozuldu.png)
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