AccessTr.neT
Lcase Ve Ucase Çevirmek - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Lcase Ve Ucase Çevirmek (/konu-lcase-ve-ucase-cevirmek.html)



Lcase Ve Ucase Çevirmek - accessman - 26/01/2020

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


Cvp: Lcase Ve Ucase Çevirmek - userx - 27/01/2020

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



Cvp: Lcase Ve Ucase Çevirmek - accessman - 27/01/2020

teşekkürler sn.userx
tümü büyük harf ingilizce eksikti 
bu eklediğiniz tümü büyük harf ingilizce mi


Cvp: Lcase Ve Ucase Çevirmek - userx - 27/01/2020

türkçe


Cvp: Lcase Ve Ucase Çevirmek - userx - 27/01/2020

ingilizce isteyen aradaki Türkçe karekterleri kaldırabilir.


Cvp: Lcase Ve Ucase Çevirmek - accessman - 27/01/2020

teşekkürler