请教, 如何禁止使用Delete键

whowho

在ACCESS的窗体中, 我希望在删除记录时, 使用在窗体中设置的删除键来删除, 以便触发所设置的事件, 因此要禁止使用Delete键, 请问如何可以实现?

李啸林

编写确认删除前事件

Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
   if  不能删除 then
       Cancel        =True '取消删除
   end if
End Sub

whowho

啸林兄, 谢谢. 但我希望的, 是在确认删除时(真的是删除), 触发别的事件. 如: 在子窗体中有N条纪录, 需要在删除此N条纪录时, 将与此纪录相关的纪录进行更新, 可以设定删除按键来实现, 但如果选择此N条纪录后, 按键盘上的DELETE键, 则无法实现预定功能, 因此, 我想禁止使用DELETE键.

whowho

谁能帮帮我???

Roadbeg

将窗体的允许删除(AllowDeletions ) 属性设为假,即不允许删除.
在窗体上加一个按钮取名为 cmdDel
其单击事件过程如下:
Private Sub CmdDel_Click()
On Error GoTo Doerr

    Me.Recordset.Delete
    Me.Recordset.MoveNext
  
Doerr:
End Sub

whowho

谢谢ROADBEG, 我试一下