Private Sub adi_Exit(Cancel As Integer)
kkk = Left(Me.adi, 1)
Me.adi = Replace(StrConv(kkk, 3), "I", "İ") & Mid(Me.adi, 2, Len(Me.adi))
End Sub
Kodu aşağıdaki gibi değiştiriniz...
Please return your positive or negative ...