Skip to main content

AccessTr.neT


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

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

Çözüldü #7
ö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
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla
Çözüldü #8
(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.
Volkan1 27 Kasım 2010 dan beri AccessTr üyesidir.Halay
Cevapla
Çözüldü #9
(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.
Volkan1 27 Kasım 2010 dan beri AccessTr üyesidir.Halay
Son Düzenleme: 11/04/2011, 21:04, Düzenleyen: volkan1.
Cevapla
Çözüldü #10
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
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Son Düzenleme: 11/04/2011, 21:07, Düzenleyen: Yandemir.
Cevapla
Çözüldü #11
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.
Volkan1 27 Kasım 2010 dan beri AccessTr üyesidir.Halay
Cevapla
Çözüldü #12
güncelleme sonrası daha sağlamdır çıkışta kurallar biraz daha serttir.
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da