How to stop Delete key from deleting records?

[RSW]

I have a form that deletes a record if the Delete key is pressed when the form's on that record.

I don't want to entirely stop the form from deleting records...because there's a Delete button that can be used for just that. But records are being deleted without warning when a user accidentally presses the Delete key. What is the best way to stop this?

Thanks in advance!

 

[boblarson]

Set the form's KeyPreview to YES. Then in the KeyPress event of the form, put:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
        If KeyCode = 46 Then
            KeyCode = 0
        End If
End Sub

 

[RSW]

Thanks Bob,

I'm unclear...do you mean KeyPress or KeyDown?

 

[boblarson]

Sorry, KeyDown.

 

[gemma-the-husky]

or

set the forms delete records option to no - and add a dedicated button to delete them where you can do so under control

 

[RSW]

Sorry, KeyDown.

Thanks Bob, this worked perfectly. It seems to also disable the delete key on the number pad (which is good)

 

[RSW]

or

set the forms delete records option to no - and add a dedicated button to delete them where you can do so under control

The delete button would still work even if the delete records option was no?

 

[gemma-the-husky]

yes - code still works - just not any of the intrinsic delete options (all of them!)