Arkadaşlar.
Metin kutusuna yazı yazarken her karakteri hemen büyük harfe çevirmenin yolu var mı? Normal biçimi > yaptığında büyük harf yapıyor fakat ben bıraktığım her karakteri anında büyütmesini istiyorum. İlginize şimdiden teşekkür ederim.
Bahsettiğiniz alanın güncelleştirme sonrasında olayında şu kodu kullanın:
Kod:
Dim metin, uce, UCaseEx, A
metin = Me.MetinKutusununAdı
For uce = 1 To Len(metin)
If Asc(Mid(metin, uce, 1)) = 105 Then metin = left(metin, uce - 1) & "İ" & Mid(metin, uce + 1)
If Asc(Mid(metin, uce, 1)) = 253 Then metin = left(metin, uce - 1) & "I" & Mid(metin, uce + 1)
Next uce
uce = 0
UCaseEx = UCase(metin)
Me.MetinKutusununAdı = Trim(UCaseEx)
Metin kutusundan çıktığınızda otomatik olarak harfler büyüyecektir. Çıkıldığında olayına da koyabilirsiniz.
Kolay gelsin...
Sayın tdsharun
ilginize teşekkür ederim. Bu yazmış olduğunuz kod metni komple büyük harfe çeviriyor. Bu da işimizi görür. Fakat benim demek istediğim "Zaman" yazarken "z" harfini yazdıktan sonra "a" harfine bastığımda "z" harfini büyük yapması idi. Ben antalmak istediğim tam anlatamamış olabilirim. Örneğiniz için de teşekkür ederim.
Bu söylediğiniz için metin kutusuna girilen değeri test etmek gerekir. Ancak siz hala o metin kutusunun içinde olduğunuzdan dolayı test edemez ve hata verir. Bu örneği Değiştiğinde olayıyla deneyin mesela. Hata verir... Çünkü henüz o metin kutusunu denetleyebilmesi için gerekli ortam oluşmamıştır. Yani siz hala o metin kutusunun içindesinizdir...
Belki bunun da bir yöntemi vardır. Ancak şunu kesinlikle söyleyebilirim ki eğer öyle bir yöntem varsa bile bu kod gibi bir kod değildir...
Ben bugüne kadar görmedim. Tabi ustalardan biri çıkar "Var" der, biz de öğrenmiş oluruz...
Sayın Sinan55, sizden bir ricam var: Genelde sorduğunuz sorulara en geç 1 saat içinde cevaplar veriliyor. Ancak siz konunuzu takip edip geri bildirimde bulunmuyorsunuz. İlk defa beni şaşırttınız ve konuya cevap verdiniz. Sanırım o da tam istediğiniz olmadığından...

Mümkünse bundan sonra size verilen cevaplara sorununuzun çözülüp çözülmediği ile ilgili geri bildirimde bulunabilir misiniz?
Böylece biz de o konuyu çözümlenmiş sorulara taşıyabilelim ve forum kirliliğini önleyebilelim...
Anlayışınız için şimdiden teşekkürler...
Kolay gelsin...
Sayın tdsharun
Bu dediğim olay akbank ın internet bankacılık giriş sayfasında var. orada gördüğüm için sordum.fakat gönderdiğiniz kodu uyguladım. en azından kayıt ederken bütün metni büyük harf yapıyor.
Benim mesleğim plastik kalıp tasarımcılığı.diyeceksiniz ki ne alakası var. bir kalıbın hem tasarımı ile hemde katı modelini yaparak cnc tezgahlarında işlemesiyle uğraşıyorum. Bu projeyi iş yerinde yaptığım için fazla boş vaktim olmuyor. Sorduğum sorulara mümkün olduğunca cevap vermeye çalışıyorum. fakat bazen araya zaman girip unuttuklarım olabiliyor. bu yüzden cevap veremediğim konular için kusura bakmayın.
Sayın seruz ilgin için sanada teşekkür ederim.