Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
26/04/2012 01:52
Konu Sahibi
Yandemir
Yorumlar
9
Okunma
4107
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

Yandemir

Only Office 2003
Kullanici Avatari
Aktif Üye
M.... Y....
1.432
26/08/2009
482
Tekirdağ
Ofis 2003
25/08/2017,00:10
İlk harfleri büyük yazmak her zaman dert olmuştur.
aşağıdaki fonksiyon ile türkçe karakter sorunu olmadan kullanabilirsiniz.
Örneğin:
ırak=Irak
örnek=Örnek
murat yandemir=Murat Yandemir
mURAT yANDEMİR pYRAMİD=Murat Yandemir Pyramid

Kullanımı:

Visual Basic Code
me.AdSoyad=IlkHarfBuyut(me.AdSoyad)

Kod:

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
Function IlkHarfBuyut(metin As String) As String
    metin = Replace(metin, "A", "a", , , vbBinaryCompare)
    metin = Replace(metin, "B", "b", , , vbBinaryCompare)
    metin = Replace(metin, "C", "c", , , vbBinaryCompare)
    metin = Replace(metin, "Ç", "ç", , , vbBinaryCompare)
    metin = Replace(metin, "D", "d", , , vbBinaryCompare)
    metin = Replace(metin, "E", "e", , , vbBinaryCompare)
    metin = Replace(metin, "F", "f", , , vbBinaryCompare)
    metin = Replace(metin, "G", "g", , , vbBinaryCompare)
    metin = Replace(metin, "Ğ", "ğ", , , vbBinaryCompare)
    metin = Replace(metin, "H", "h", , , vbBinaryCompare)
    metin = Replace(metin, "I", "ı", , , vbBinaryCompare)
    metin = Replace(metin, "İ", "i", , , vbBinaryCompare)
    metin = Replace(metin, "J", "j", , , vbBinaryCompare)
    metin = Replace(metin, "K", "k", , , vbBinaryCompare)
    metin = Replace(metin, "L", "l", , , vbBinaryCompare)
    metin = Replace(metin, "M", "m", , , vbBinaryCompare)
    metin = Replace(metin, "N", "n", , , vbBinaryCompare)
    metin = Replace(metin, "O", "o", , , vbBinaryCompare)
    metin = Replace(metin, "Ö", "ö", , , vbBinaryCompare)
    metin = Replace(metin, "P", "p", , , vbBinaryCompare)
    metin = Replace(metin, "Q", "q", , , vbBinaryCompare)
    metin = Replace(metin, "R", "r", , , vbBinaryCompare)
    metin = Replace(metin, "S", "s", , , vbBinaryCompare)
    metin = Replace(metin, "Ş", "ş", , , vbBinaryCompare)
    metin = Replace(metin, "T", "t", , , vbBinaryCompare)
    metin = Replace(metin, "U", "u", , , vbBinaryCompare)
    metin = Replace(metin, "Ü", "ü", , , vbBinaryCompare)
    metin = Replace(metin, "V", "v", , , vbBinaryCompare)
    metin = Replace(metin, "X", "x", , , vbBinaryCompare)
    metin = Replace(metin, "Y", "y", , , vbBinaryCompare)
    metin = Replace(metin, "Z", "z", , , vbBinaryCompare)

    metin = Replace(metin, " a", " A")
    metin = Replace(metin, " b", " B")
    metin = Replace(metin, " c", " C")
    metin = Replace(metin, " ç", " Ç")
    metin = Replace(metin, " d", " D")
    metin = Replace(metin, " e", " E")
    metin = Replace(metin, " f", " F")
    metin = Replace(metin, " g", " G")
    metin = Replace(metin, " ğ", " Ğ")
    metin = Replace(metin, " h", " H")
    metin = Replace(metin, " ı", " I")
    metin = Replace(metin, " i", " İ")
    metin = Replace(metin, " j", " J")
    metin = Replace(metin, " k", " K")
    metin = Replace(metin, " l", " L")
    metin = Replace(metin, " m", " M")
    metin = Replace(metin, " n", " N")
    metin = Replace(metin, " o", " O")
    metin = Replace(metin, " ö", " Ö")
    metin = Replace(metin, " p", " P")
    metin = Replace(metin, " q", " Q")
    metin = Replace(metin, " r", " R")
    metin = Replace(metin, " s", " S")
    metin = Replace(metin, " ş", " Ş")
    metin = Replace(metin, " t", " T")
    metin = Replace(metin, " u", " U")
    metin = Replace(metin, " ü", " Ü")
    metin = Replace(metin, " v", " V")
    metin = Replace(metin, " x", " X")
    metin = Replace(metin, " y", " Y")
    metin = Replace(metin, " z", " Z")
    
    If Left(metin, 1) = "i" Then metin = "İ" & Mid(metin, 2): GoTo Cik
    If Left(metin, 1) = "ı" Then metin = "I" & Mid(metin, 2): GoTo Cik
    If Left(metin, 1) = "ş" Then metin = "Ş" & Mid(metin, 2): GoTo Cik
    If Left(metin, 1) = "ğ" Then metin = "Ğ" & Mid(metin, 2): GoTo Cik
    If Left(metin, 1) = "ü" Then metin = "Ü" & Mid(metin, 2): GoTo Cik
    If Left(metin, 1) = "ö" Then metin = "Ö" & Mid(metin, 2): GoTo Cik
    If Left(metin, 1) = "ç" Then metin = "Ç" & Mid(metin, 2): GoTo Cik
    
    metin = UCase(Mid(metin, 1, 1)) & Mid(metin, 2)
Cik:
    IlkHarfBuyut = metin
End Function


Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla

benremix

Uzman
Kullanici Avatari
Uzman
R.... S....
4.433
17/05/2009
365
Ankara
Ofis 2010
Dün,05:31
Murat hocam emek ve paylaşım için teşekkürler.
Saygılar....


Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi


Cevapla

accessman

Aktif Üye
Kullanici Avatari
Aktif Üye
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
(26/04/2012, 06:00)benremix Adlı Kullanıcıdan Alıntı: Murat hocam emek ve paylaşım için teşekkürler.
Saygılar....


@benbendedeilem
Cevapla

iscinar

İsmail ÇINAR
Kullanici Avatari
Uzman
İ.... Ç....
860
30/05/2011
275
İstanbul
Ofis 2013 64 Bit
06/08/2017,13:05
Yandemir hocamın fonksiyonunu örneğe ben uygulasam kızmaz herhalde Img-grin

Ek Dosyalar
İlk Harfler Büyük.rar


Cevapla

DUAYEN

Aktif Üye
Kullanici Avatari
Aktif Üye
S.... A....
1.026
13/08/2010
279
Yozgat
Ofis 2007
16/03/2017,17:22
Emek ve paylaşım için teşşekürler.


Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.801
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Dün,18:32
Eline sağlık Murat hocam.


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

[-]
Etiketler
büyük capitalize ilk harfleri yapmak


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Formda arama yapmak ayhan2122 16 12.057 02/05/2016, 13:55 aysunusta3
  Form Üzerinde Bütün Harfleri Büyük Olarak Yazmak gogoli01 7 2.812 08/05/2014, 01:25 gogoli01
  küçük harfleri BÜYÜK harfler çevirir.Veri olan yerleri yanlışlıkyazılmasını Engeller akem 14 5.489 19/03/2014, 12:16 butcher888
  Menü Yapmak fascioğlu 6 2.863 18/11/2012, 22:16 hgulsever1702
  Tarih boşsa tablodaki en büyük değeri getirsin accessman 2 1.731 17/04/2012, 14:59 DUAYEN

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.