AccessTr.neT

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

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

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

türkçe

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

teşekkürler