KeyDown代码适用于所有表单但只有一个

时间:2017-02-09 16:51:46

标签: vba ms-access access-vba ms-access-2010

我使用KeyDown事件禁用Access表单上的F11键,使用此代码非常简单:

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

F11不再对我已经实现此代码的所有表单执行任何操作,除了一个,即主输入表单。所述表单是应用程序中最复杂的,所以我认为表单中的其他代码是冲突的。但是,我尝试评论其他所有内容,而KeyDown代码仍然无法正常工作。

我还确认Key Preview设置为Yes,并成功测试了vbKeyF11上的其他操作,例如If KeyCode = vbKeyF11 Then MsgBox "pressed F11"

1 个答案:

答案 0 :(得分:0)

确保您的FORM的属性表 - 事件中存在[事件过程] 或使编译数据库找到错误,然后压缩和修复数据库

Click Here to see picture