Skip to main content

AccessTr.neT


raporda ilkharf büyük yapmada (ı) harfi sorunu

raporda ilkharf büyük yapmada (ı) harfi sorunu

Çözüldü #1
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)
Cevapla
Çözüldü #2
İnceleyiniz...

Lütfen olumlu veya olumsuz geri dönüş yapınız...
.rar rapor_ilkharf.büyük yapmada (ı) harfi sorunu.rar (Dosya Boyutu: 48,58 KB | İndirme Sayısı: 10)
Please return your positive or negative ...
Cevapla
Çözüldü #3
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.
Cevapla
Çözüldü #4
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ıyorumImg-grin))
Cevapla
Çözüldü #5
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.
Cevapla
Çözüldü #6
Buyrun inceleyin..

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

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task