Microsoft Access

Microsoft Access CapsLock Tusu Nasil AcilirMicrosoft Access ile geliştirdiğiniz uygulamada veri girişi sırasında tüm harfleri büyük olarak yazdırmak isteyebilirsiniz. "CapsLock(BüyükHarf) tuşunu nasıl açabiliriz?" sorusunu konunun devamında inceliyoruz.

Öncelikle CapsLock(BüyükHarf) tuşu açık mı bunu kontrol edelim. Eğer açık ise zaten yapacak bir şey yok. Eğer kapalı ise aktif edeceğiz. Eğer bu kontrolü yaptırmazsak zaten açık olan CapsLock(BüyükHarf) tuşunu kapatmış olabiliriz.

Programımızın genelinde kullanacağımız bir modülü projemize ekliyoruz. Bunun için VBA penceresinde iken menüden Insert altından Module'e tıklıyoruz.

Microsoft Access Insert Module

Modül açılınca aşağıdaki API tanımlamasını ekliyoruz:

' "VBA Developer's Handbook" isimli kitaptan alınmadır (Sybex, 1997)
Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Şimdi CapsLock(BüyükHarf) tuşunun aktif olup olmadığını Boolean değişken türünde geri döndürecek bir fonksiyon yazıyoruz:

Function CapslockAktifmi() As Boolean
  
  'CapsLock tuşunun durumunu geri döndürür
  CapslockAktifmi = CBool(GetKeyState(vbKeyCapital) And 1)
  
End Function

Artık CapsLock(BüyükHarf) tuşunun durumunu elde edebiliyoruz. Bundan sonraki aşamada bir Form ekliyoruz ve üzerine iki tane etiket ekliyoruz. Etiketlerden birisinin adı lblCapsLockDurumu olacak şekilde güncelliyoruz.

Formun Load yani Açıldığında olayına bir IF-ELSE kod bloğu ekliyoruz. IF ile kontrol ettiğimiz şart kısmında yukarıdaki yazdığımız CapsLockAktifmi() fonksiyonunu yazıyoruz. Böylelikle tuşun açık olması durumunda True değerini elde edebileceğiz. Açıldığında olayındaki kod ise şu şekilde olmalı:

  If CapslockAktifmi() Then
    lblCapsLockDurumu.Caption = "CapsLock zaten açıkmış"
    lblCapsLockDurumu.ForeColor = vbGreen
  Else
    CreateObject("Wscript.Shell").SendKeys "{CAPSLOCK}"
    lblCapsLockDurumu.Caption = "CapsLock kapalıydı ancak kod ile aktif edildi"
    lblCapsLockDurumu.ForeColor = vbRed
  End If

İlk kontrol bloğunda yani IF içinde eğer CapsLock(BüyükHarf) tuşu açık ise form üzerindeki etiketlerin içeriğinde ve renginde güncelleme yapıyoruz. Eğer zaten CapsLock tuşu önceden basılmış ve açılmış ise yapacağımız herhangi bir şey yok çünkü büyük harf ile yazılabilir durumda.

Eğer ki CapsLock(BüyükHarf) tuşu aktif değilse yani CapsLockAktifmi() fonksiyonundan geriye False değer dönmüş ise SendKeys ile CapsLock(BüyükHarf) tuşunu aktif ediyoruz.

Microsoft Access CapsLock Tusu Nasil Acilir

Bu yazıda anlatılanların uygulanmış olduğu Access Örnek Uygulamasını İndir :

Dosyalar:
CapsLock Tuşu Nasıl Aktif Edilir 1.0

Microsoft Access ile geliştirdiğiniz uygulamada bütün verilerin büyük harf ile girilmesi hakkındaki örnek uygulamadır.

Lisans GNU/GPL Tarih 2015-01-08 Dil  Multilanguage Sistem  Windows Dosya Boyutu 25.53 KB İndirin 9
Bu dosyayı yalnız kayıtlı ve oturum açmış kullanıcılar indirebilir.

Yorum ekle

Eklenen her yorum Türkiye Cumhuriyet'i kanunlarına uygun olmalıdır. Hakaret, küfür vb. olumsuz ifadelerin olduğu mesajlar yayınlanmadan direkt silinebilir.


Güvenlik kodu
Yenile

Benzer İçerikler İlginizi Çekebilir