AccessTr.neT
Küçük harf ile form girişlerinin tabloya büyük harf ile aktarılması - Baskı Önizleme

+- 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

Küçük harf ile form girişlerinin tabloya büyük harf ile aktarılması - volkan1 - 11/04/2011

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.

Cvp: Küçük harf ile form girişlerinin tabloya büyük harf ile aktarılması - Yandemir - 11/04/2011

metin kutusunun onexit olayına
örnek:
text9 ise

me.text9=ucase(me.text9)

yazın

Cvp: Küçük harf ile form girişlerinin tabloya büyük harf ile aktarılması - volkan1 - 11/04/2011

Yardımınız için teşekkürler. Konu çözülmüştür.

Cvp: Küçük harf ile form girişlerinin tabloya büyük harf ile aktarılması - Coskun0559 - 11/04/2011 

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


Cvp: Küçük harf ile form girişlerinin tabloya büyük harf ile aktarılması - Yandemir - 11/04/2011

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)

Cvp: Küçük harf ile form girişlerinin tabloya büyük harf ile aktarılması - volkan1 - 11/04/2011

(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