Forma aşağıdaki fonksiyonu ekleyip

Function convert(metin, secim)

    Select Case secim

        Case 0

    metin = convert(metin, 1)

    metin = convert(Left(metin, 1), 2) & Mid(metin, 2, Len(metin) - 1)

Case 1

    metin = Replace(metin, "I", "ı")

    metin = Replace(metin, "İ", "i")

    



End Select

    convert = metin

End Function

Metin2 isimli metin kutusu için "Güncelleştirme Sonrasında" olayına aşağıdaki kodu yazarsan.....

Private Sub Metin0_AfterUpdate()

Me.Metin2 = StrConv(Left(Metin0, 1) & convert(Mid(Metin0, 2, Len(Metin0) - 1), 1), 3)

End Sub

tümü büyük veya tümü küçük yazsan bile ilk harf büyük, diğerleri küçük yazar.