(11/04/2011, 20:40)Yandemir yazdı: öneri!!!
aşağıdaki şekilde düzenle bence türkçe sorun olmasın.
Sub cevir()
Me.ADI.Value = Replace(Me.ADI.Value, "i", "İ")
Me.ADI.Value = Replace(Me.ADI.Value, "ı", "I")
Me.ADI.Value = UCase(Me.ADI.Value)
Me.SOYADI.Value = Replace(Me.SOYADI.Value, "i", "İ")
Me.SOYADI.Value = Replace(Me.SOYADI.Value, "ı", "I")
Me.SOYADI.Value = UCase(Me.SOYADI.Value)
End Sub
Öneriniz için teşekkürler.