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.