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ı: 5)
Cevapla
Thumbs Up #2
(14/09/2021 10:29)lemoncher2 Adlı Kullanıcıdan Alıntı: 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