AccessTr.neT

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 Function

Modü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.

TEŞEKKÜRLER...

şöyle bir atasözü vardı "accessde yapabilecekleriniz hayalgücünüzle sınırlıdır."

---