Skip to main content

AccessTr.neT


Lcase Ve Ucase Çevirmek

Lcase Ve Ucase Çevirmek

#1
bunu siteden bir arkadaşın eklediği örnekten aldım üç modülü tek modülde birleştirdim ama ingilizce hepsi büyük harf fonksiyonu eksik kullanılışı ise

Private Sub kucukeng_AfterUpdate()
kucukeng = TumuKucuk_Eng(kucukeng)
End Sub
.rar LCaseAndUCase.rar (Dosya Boyutu: 692 Bayt | İndirme Sayısı: 10)
@benbendedeilem
Cevapla
#2
Sayı accesman tümünü büyük harfe çevirmek için alttaki kodu modülünüze ekleyerek kullanabilirsiniz.
Soyadi Metin alanından çıkış  için örneklenmiştir.

Private Sub Soyadi_Exit(Cancel As Integer)
If Len(Soyadi) > 0 Then Soyadi = TUMUBUYUK(Soyadi)
End Sub

--------------------------------------------------------------

Public Function TUMUBUYUK(ByVal harf As String) As String
    TUMUBUYUK = StrConv(harf, vbProperCase)
    TUMUBUYUK = Replace(TUMUBUYUK, "a", "A")
    TUMUBUYUK = Replace(TUMUBUYUK, "b", "B")
    TUMUBUYUK = Replace(TUMUBUYUK, "c", "C")
    TUMUBUYUK = Replace(TUMUBUYUK, "ç", "Ç")
    TUMUBUYUK = Replace(TUMUBUYUK, "d", "D")
    TUMUBUYUK = Replace(TUMUBUYUK, "e", "E")
    TUMUBUYUK = Replace(TUMUBUYUK, "f", "F")
    TUMUBUYUK = Replace(TUMUBUYUK, "g", "G")
    TUMUBUYUK = Replace(TUMUBUYUK, "ğ", "Ğ")
    TUMUBUYUK = Replace(TUMUBUYUK, "h", "H")
    TUMUBUYUK = Replace(TUMUBUYUK, "i", "İ")
    TUMUBUYUK = Replace(TUMUBUYUK, "ı", "I")
    TUMUBUYUK = Replace(TUMUBUYUK, "j", "J")
    TUMUBUYUK = Replace(TUMUBUYUK, "k", "K")
    TUMUBUYUK = Replace(TUMUBUYUK, "l", "L")
    TUMUBUYUK = Replace(TUMUBUYUK, "m", "M")
    TUMUBUYUK = Replace(TUMUBUYUK, "n", "N")
    TUMUBUYUK = Replace(TUMUBUYUK, "o", "O")
    TUMUBUYUK = Replace(TUMUBUYUK, "ö", "Ö")
    TUMUBUYUK = Replace(TUMUBUYUK, "p", "P")
    TUMUBUYUK = Replace(TUMUBUYUK, "r", "R")
    TUMUBUYUK = Replace(TUMUBUYUK, "s", "S")
    TUMUBUYUK = Replace(TUMUBUYUK, "ş", "Ş")
    TUMUBUYUK = Replace(TUMUBUYUK, "t", "T")
    TUMUBUYUK = Replace(TUMUBUYUK, "u", "U")
    TUMUBUYUK = Replace(TUMUBUYUK, "ü", "Ü")
    TUMUBUYUK = Replace(TUMUBUYUK, "v", "V")
    TUMUBUYUK = Replace(TUMUBUYUK, "y", "Y")
    TUMUBUYUK = Replace(TUMUBUYUK, "z", "Z")
End Function
Cevapla
#3
teşekkürler sn.userx
tümü büyük harf ingilizce eksikti 
bu eklediğiniz tümü büyük harf ingilizce mi
Cevapla
#4
türkçe
Cevapla
#5
ingilizce isteyen aradaki Türkçe karekterleri kaldırabilir.
Cevapla
#6
teşekkürler
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da