ö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
(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.
(11/04/2011, 20:22)Yandemir yazdı: [ -> ]hatta türkçe sorunu yaşarsanız ki yaşayacksınız
kodu aşağıdaki şekilde yazın derim.
me.text9 = Replace(me.text9, "i", "İ")
me.text9 = Replace(me.text9, "ı", "I")
me.text9 = UCase(me.text9)
Sayın Yandemir ; Çalışmamda sizin bu kodunuzu kullandım ve sorunum çözüldü ancak metin yazılmış bir metin kutusu silinip boş geçildiğinde form kitleniyor ve tekrar formu açtığımda normale dönüyor. Aslında bir sorun yaratmıyor ancak normalmidir.
Düzeltme: Yukardaki kodu Günceleştirme sonrası bölümüne yazınca sorun tam anlamıyla çözüldü tekrar teşekkürler.
normal değil ama isnull kontrolü eklemeniz hatayı ortadan kaldırır.
Sub cevir()
if not isnull(Me.ADI.Value) then
Me.ADI.Value = Replace(Me.ADI.Value, "i", "İ")
Me.ADI.Value = Replace(Me.ADI.Value, "ı", "I")
Me.ADI.Value = UCase(Me.ADI.Value)
end if
if not isnull(Me.SOYADI.Value) then
Me.SOYADI.Value = Replace(Me.SOYADI.Value, "i", "İ")
Me.SOYADI.Value = Replace(Me.SOYADI.Value, "ı", "I")
Me.SOYADI.Value = UCase(Me.SOYADI.Value)
end if
End Sub
hocam bir üst mesajda düzeltme yazdığım gibi kodu "güncelleştirme sonrası bölümüne" yazınca sorun tamamen düzeldi. Anladığım kadarıyla çıkış kısmına yazınca boş geçilmesine müsade etmiyor. Tekrar teşekkürler.
güncelleme sonrası daha sağlamdır çıkışta kurallar biraz daha serttir.