Disabling Delete Key

[Eranka]

Hi


i have created a deleted button in my system. but when i open a table and select a record and press the delete key on the keyboard it deletes the record from the table. How can i disable the delete key from deleting records from a table (not in a form).

[isladogs]

Keys are disabled by resetting the value to nothing in the form

1. Set Key Preview = Yes in the form property sheet
2. Add this code to the Form_KeyDown event

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

    If KeyCode = vbKeyDelete Then
        'Del pressed - don't allow it
        KeyCode = 0
        MsgBox "The Del key has been disabled. Please use the Delete button instead"        
    End If

End Sub

I've added a message otherwise users who use Del may click it repeatedly trying to get a response
Most other keys can be disabled in a similar way though Ctrl, Shift, Alt require slightly different code
AFAIK the Windows key cannot be disabled

NOTE: This code will not block key combinations e.g. Ctrl+Alt+Del. To do so requires changes to the registry

[June7]

I don't disable delete key but handle this with form BeforeDeleteConfirm event. Users get educated and eventually won't use Delete key (or ctrl+alt+del) for this situation, if they ever did either. Doubt my users would.

Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
'suppress default Delete Confirm dialog box.
Response = acDataErrContinue
'cancel the automatic delete operation
Cancel = True
MsgBox "Must click Remove Test button to delete test from sample." & vbCrLf & _
        "If sample is in closed accounting period, Delete/Remove test not permitted.", , "Delete"
End Sub