AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Küçük harf ile form girişlerinin tabloya büyük harf ile aktarılması

1 2
11/04/2011, 20:40

Yandemir

ö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:46

volkan1

(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:55

volkan1

(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.
11/04/2011, 21:05

Yandemir

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
11/04/2011, 21:13

volkan1

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.
11/04/2011, 21:24

Yandemir

güncelleme sonrası daha sağlamdır çıkışta kurallar biraz daha serttir.
1 2