Skip to main content

AccessTr.neT


Metin Kutusuna Yazının büyük harf yazılması

Metin Kutusuna Yazının büyük harf yazılması

Çözüldü #1
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.
Cevapla
Çözüldü #2
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...
NZ Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DSum ve Sum Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DLookup Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
Cevapla
Çözüldü #3
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.
Cevapla
Çözüldü #4
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... Img-grin

Ben bugüne kadar görmedim. Tabi ustalardan biri çıkar "Var" der, biz de öğrenmiş oluruz... Img-grin

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... Img-grin
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...
NZ Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DSum ve Sum Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DLookup Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
Cevapla
Çözüldü #5
Direkt sizin söylediğiniz şekilde benimde aklıma gelen bir yöntem yok
ancak ActiveX text box ile her tuşa basıldığında change olayı aktif oluyordu,
diye hatırlıyorum. Onu bir deneyip yazarım sonucu.

Veya daha güzel bir yol; istediğiniz textbox aktif olduğunda veya form açıldığında,
CapsLock tuşunu bir kodla büyük harfe çevirmek olabilir.
Google hazretleri ile böyle bir kod aranabilir mesela.



Evet ActiveX text box ile istediğiniz gibi,
harfe basıldığında anında büyük harfe çevirme olayı oldu.

ActiveX Text Box eklemek için form tasarımında iken
resimdeki butona basıyorsunuz.
[Resim: buyuk1.jpg]

Listeden "Microsoft Forms 2.0 TextBox" seçeneğini seçin
ve formda herhangi bir yere tıklayın.
[Resim: buyuk2.jpg]

Kod kısmında change olayına şunu yazıyoruz.
Kod:
Private Sub TextBox3_Change()
    Me.TextBox3 = UCase(Replace(Me.TextBox3, "i", "İ"))
End Sub

Not: Ucase fonksiyonu küçük "i" harfini büyük "I" ya çevirdiği için ek olarak Replace eklendi.

Aslında ActiveX TextBox arama veya filtreleme olayında, her tuşa basıldığında güncelleme yapılabildiği için çok işe yarar.
.rar BuyukHarf_Seruz.rar (Dosya Boyutu: 113,01 KB | İndirme Sayısı: 108)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla
Çözüldü #6
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.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da