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ü #1
Herkeze iyi çalışmalar. Sorum ve sorunum ; bir metin kutusuna yapılan kayıt girişleri zaman zaman capsloock olayından küçük harf olarakta kayıt girilebiliyor. Büyük harf veya yanlışlıkla küçük harf ile yapılan girişlerin tabloda görselliği bozmayacak şekilde tamamı büyük harf olacak şekilde tabloya aktarabilirmiyiz. Tşk.
Volkan1 27 Kasım 2010 dan beri AccessTr üyesidir.Halay
Son Düzenleme: 11/04/2011, 20:28, Düzenleyen: volkan1.
Cevapla
Çözüldü #2
metin kutusunun onexit olayına
örnek:
text9 ise

me.text9=ucase(me.text9)

yazın
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla
Çözüldü #3
Yardımınız için teşekkürler. Konu çözülmüştür.
Volkan1 27 Kasım 2010 dan beri AccessTr üyesidir.Halay
Cevapla
Çözüldü #4
Sub cevir()
Me.ADI.Value = UCase(Me.ADI.Value)
Me.SOYADI.Value = UCase(Me.SOYADI.Value)
End Sub


Private Sub ADI_Exit(Cancel As Integer)
Call cevir
End Sub



Private Sub SOYADI_Exit(Cancel As Integer)
Call cevir
End Sub
GERİ SAYIM;Sen doğduğunda başladı ! Eğer (9) canlı bile olsaydın en fazla (8) kez kaçabilirdin Ölümden ! Bil ki (7) Düvele sultan dahi olsan yerin (6) Mekan olacak sana. En fazla (5) Metre kumaş götürebileceksin ! Kapatacaksın (4) açsanda gözlerini ! Bu (3) günlük fani dünyada Azraile (2) kat olup yalvarsanda nafile EceL geldiğinde (1) gün öleceksin ! İşte, o an herşey (0) dan başlayacak. Çünkü,
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !
Cevapla
Çözüldü #5
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)
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla
Çözüldü #6
(11/04/2011, 20:17)coskun_cakal yazdı:
Sub cevir()
Me.ADI.Value = UCase(Me.ADI.Value)
Me.SOYADI.Value = UCase(Me.SOYADI.Value)
End Sub


Private Sub ADI_Exit(Cancel As Integer)
Call cevir
End Sub



Private Sub SOYADI_Exit(Cancel As Integer)
Call cevir
End Sub

Teşekkürler
Volkan1 27 Kasım 2010 dan beri AccessTr üyesidir.Halay
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da