+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Ctrl + F ve Ctrl + P Tuşlarını Kapatma (/konu-ctrl-f-ve-ctrl-p-tuslarini-kapatma.html)
Ctrl + F ve Ctrl + P Tuşlarını Kapatma - ozanakkaya - 01/11/2008
Ctrl + F ve Ctrl + P Tuşlarını Kapatma Kodları,
aşağıdaki kodu modüle kaydedin.
Public Function HotKeys(KeyCode As Integer, Shift As Integer, callerForm As String)
Dim strOpenarg As String
Dim intkey As Integer
intkey = KeyCode
KeyCode = 0
Select Case intkey
Case 17
ctrlKey = True
Case 70
If ctrlKey = True Then
ctrlKey = False
MsgBox "Ctrl+f kullanılamaz"
GoTo abort
End If
Case 80
If ctrlKey = True Then
ctrlKey = False
MsgBox "Ctrl+p kullanılamaz"
GoTo abort
End If
Case Else
GoTo abort
End Select
exitsub:
Exit Function
abort:
KeyCode = intkey
End FunctionModülü kaydedin,
formun tuş önizleme özelliğini evet olarak değiştirin,
Formun tuşa basıldığında olayına aşağıdaki kodu ekleyin
Call HotKeys(KeyCode, 0, Me.Name)Koddaki 17 ctrl, 70 f ve 80 p tuşlarının kodudur.
Cvp: Ctrl + F ve Ctrl + P Tuşlarını Kapatma - Puletin - 01/11/2008
TEŞEKKÜRLER...
Cvp: Ctrl + F ve Ctrl + P Tuşlarını Kapatma - esrefigit - 01/11/2008
şöyle bir atasözü vardı "accessde yapabilecekleriniz hayalgücünüzle sınırlıdır."