+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Küçük harf ile form girişlerinin tabloya büyük harf ile aktarılması (/konu-kucuk-harf-ile-form-girislerinin-tabloya-buyuk-harf-ile-aktarilmasi.html)
Sayfalar:
1
2
Cvp: Küçük harf ile form girişlerinin tabloya büyük harf ile aktarılması - Yandemir - 11/04/2011
ö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
Cvp: Küçük harf ile form girişlerinin tabloya büyük harf ile aktarılması - volkan1 - 11/04/2011
(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.
Cvp: Küçük harf ile form girişlerinin tabloya büyük harf ile aktarılması - volkan1 - 11/04/2011
(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.
Cvp: Küçük harf ile form girişlerinin tabloya büyük harf ile aktarılması - Yandemir - 11/04/2011
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
Cvp: Küçük harf ile form girişlerinin tabloya büyük harf ile aktarılması - volkan1 - 11/04/2011
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.
Cvp: Küçük harf ile form girişlerinin tabloya büyük harf ile aktarılması - Yandemir - 11/04/2011
güncelleme sonrası daha sağlamdır çıkışta kurallar biraz daha serttir.