Skip to main content

AccessTr.neT


Fonksiyon Tuşlarını Devre Dışı Bırakma

Fonksiyon Tuşlarını Devre Dışı Bırakma

#1
Bu konuda forumda daha önce birkaç çalışma yapılmış. Bende bu şekilde bir örnek çalışma eklemek istedim. Bulduğum bir kaç kodun bu konuda araştırma yapan arkadaşlara yardımcı olur inşallah.

Ekte örneği inceleyip de kendi çalışmanıza ekleyebilirsiniz veya

Özellikleri:
F1-F2....-F12 Tuşları çalışmaz
Alt+ beraberindeki tuş kombinasyonları çalışmaz

Sadece Ctrl+C ve Ctrl+V tuş kombinasyonları çalışır



Formunuzun Vba kısmına bu kodu yapıştırınız.

Kod:
Public Sub sb_disablekeys(keycode As Integer, shift As Integer)
    Select Case shift
        Case acCtrlMask
            Select Case keycode
                Case 0 To 16, 18 To 66, 68 To 85, 87 To 255
                
                    keycode = 0
            End Select
        Case acAltMask
                    keycode = 0
    End Select

    Select Case keycode
        Case vbKeyF1 To vbKeyF16
            keycode = 0
    End Select
End Sub


Formunuzun Tuşa Basılırken Olayına bu kodu yapıştırınız.
Kod:
sb_disablekeys keycode, shift

Formunuzun açıldığında olayına
Kod:
Me.KeyPreview = True
İyi günler.
.rar Fonksiyon_Tus_Disable.rar (Dosya Boyutu: 19,96 KB | İndirme Sayısı: 8)
Cevapla
Thumbs Up #2
(14/09/2021, 10:29)lemoncher2 yazdı: Bu konuda forumda daha önce birkaç çalışma yapılmış. Bende bu şekilde bir örnek çalışma eklemek istedim. Bulduğum bir kaç kodun bu konuda araştırma yapan arkadaşlara yardımcı olur inşallah.

Ekte örneği inceleyip de kendi çalışmanıza ekleyebilirsiniz veya

Özellikleri:
F1-F2....-F12 Tuşları çalışmaz
Alt+ beraberindeki tuş kombinasyonları çalışmaz

Sadece Ctrl+C ve Ctrl+V tuş kombinasyonları çalışır



Formunuzun Vba kısmına bu kodu yapıştırınız.

Kod:
Public Sub sb_disablekeys(keycode As Integer, shift As Integer)
    Select Case shift
        Case acCtrlMask
            Select Case keycode
                Case 0 To 16, 18 To 66, 68 To 85, 87 To 255
               
                    keycode = 0
            End Select
        Case acAltMask
                    keycode = 0
    End Select

    Select Case keycode
        Case vbKeyF1 To vbKeyF16
            keycode = 0
    End Select
End Sub


Formunuzun Tuşa Basılırken Olayına bu kodu yapıştırınız.
Kod:
sb_disablekeys keycode, shift

Formunuzun açıldığında olayına
Kod:
Me.KeyPreview = True
İyi günler.
?
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da