AccessTr.neTMicrosoft AccessAccess Örnekleri ve Uygulamaları

Büyük Harfe, Küçük Harfe Ve Türkçe Karakter Olmadan Küçük Harfe Çevirme

12/10/2018, 11:21

Allback

Merhaba,

Ekteki örnek uygulamada görebileceğiniz 3 farklı modül bulunmaktadır.
Bu modülleri Access çalışmanıza ekleyerek metin kutularına yazılan ifadelerin tümünü büyük, tümünü küçük ve tümünü Türkçe karakterler olmadan küçük harfe çevirebilirsiniz.

Kullanım Şekli:
Metin kutusunun güncelleştirme sonrası olayına

Büyük harfe çevirmek için: metinkutusu_adi=TumuBuyuk(metinkutusu_adi)

Küçük harfe çevirmek için: metinkutusu_adi=TumuKucuk(metinkutusu_adi)

Türkçe karakter olmadan küçük harfe çevirmek için: metinkutusu_adi=TumuKucuk_Eng(metinkutusu_adi)

Bu şekilde web adreslerini, mail adreslerini veya dilediğiniz başka verilerin doğru girilmesini sağlayabilirsiniz.
13/10/2018, 06:37

C*e*l*o*y*c*e

Paylaşım için teşekkürler hocam
21/02/2020, 17:10

Oğuz Türkyılmaz

(12/10/2018, 11:21)Allback yazdı: Merhaba,

Ekteki örnek uygulamada görebileceğiniz 3 farklı modül bulunmaktadır.
Bu modülleri Access çalışmanıza ekleyerek metin kutularına yazılan ifadelerin tümünü büyük, tümünü küçük ve tümünü Türkçe karakterler olmadan küçük harfe çevirebilirsiniz.

Kullanım Şekli:
Metin kutusunun güncelleştirme sonrası olayına

Büyük harfe çevirmek için: metinkutusu_adi=TumuBuyuk(metinkutusu_adi)

Küçük harfe çevirmek için: metinkutusu_adi=TumuKucuk(metinkutusu_adi)

Türkçe karakter olmadan küçük harfe çevirmek için: metinkutusu_adi=TumuKucuk_Eng(metinkutusu_adi)

Bu şekilde web adreslerini, mail adreslerini veya dilediğiniz başka verilerin doğru girilmesini sağlayabilirsiniz.
Teşekkür ederim işime yaradı.
21/02/2020, 17:58

feraz

Merhaba alttaki yerleri silince istediğim gibi oldu.
Yani tüm kelimeleri küçük harf yapmaya gerek kalmadı..

Elinize sağlık.

Kod:
Private Sub kucuk_AfterUpdate()
kucuk = TumuKucuk(kucuk)
End Sub

Private Sub kucukeng_AfterUpdate()
kucukeng = TumuKucuk_Eng(kucukeng)
End Sub