Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
22/01/2012 15:16
Konu Sahibi
aguney16
Yorumlar
13
Okunma
3284
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

aguney16

Aktif Üye
 Belirtilmemiş
 67
 20
 26/06/2011
0
 Ankara
 
 Ofis 2003
 23/01/2013,14:44
Çözüldü 
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)



Kullanici Avatari

POWER

Uzman
UF.... ÖZ....
 54
 1.874
 42
 02/04/2010
 İzmir
 Bilgisayar Mühendisi
 Ofis 2003
 09/12/2018,20:57
Çözüldü 
İnceleyiniz...

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


Ek Dosyalar
.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 ...

Kullanici Avatari

aguney16

Aktif Üye
 Belirtilmemiş
 67
 20
 26/06/2011
0
 Ankara
 
 Ofis 2003
 23/01/2013,14:44
Çözüldü 
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.



Kullanici Avatari

ercansahin

Uzman
ER.... ŞA....
 44
 3.740
 69
 14/11/2008
 Bursa
 
 Ofis 2010 32 Bit
 27/11/2018,13:27
Çözüldü 

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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))



Kullanici Avatari

aguney16

Aktif Üye
 Belirtilmemiş
 67
 20
 26/06/2011
0
 Ankara
 
 Ofis 2003
 23/01/2013,14:44
Çözüldü 
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.



Kullanici Avatari

ercansahin

Uzman
ER.... ŞA....
 44
 3.740
 69
 14/11/2008
 Bursa
 
 Ofis 2010 32 Bit
 27/11/2018,13:27
Çözüldü 
Buyrun inceleyin..

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




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Raporda Checkbox Görünümü Neden Metinsel Evet/hayır Olarak Gözükür. Oğuz Türkyılmaz 9 123 16/11/2018, 15:41
Son Yorum: Oğuz Türkyılmaz
Çözüldü Sayısal Değeri En Büyük Olana Ait Kayıtları Listelemek derebeyi 4 108 16/11/2018, 08:19
Son Yorum: derebeyi
Çözüldü Raporda Verileri Yanyana Yazdırmak alimadam 4 111 16/11/2018, 00:15
Son Yorum: alimadam
Çözüldü Çok Sayfalı Raporda İlk Sayfayı Yazdırmak İstiyorum alimadam 2 82 14/11/2018, 12:02
Son Yorum: alimadam
Çözüldü Raporda Tarih Farkı Hesaplama notrino 2 57 12/11/2018, 14:23
Son Yorum: notrino

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.
123444