مشكلة إختفاء سجلات من الجدول

انسخ هذا الكود و ضعه فى النموذج

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo Err_Form_KeyDown

    If KeyCode = vbKeyEscape Then
        KeyCode = 0
    End If

Exit_Form_KeyDown:
    Exit Sub

Err_Form_KeyDown:
    MsgBox Err.Description
    Resume Exit_Form_KeyDown
End Sub

Private Sub Form_Open(Cancel As Integer)
Me.KeyPreview = True
End Sub