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.
metin kutusunun onexit olayına
örnek:
text9 ise
me.text9=ucase(me.text9)
yazın
Yardımınız için teşekkürler. Konu çözülmüştür.
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
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)
(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