在Access 2016中,如果未按下按钮,BeforeUpdate事件会被取消。解决方法是使用一个全局变量来记录按钮是否按下,并在BeforeUpdate事件中引用该变量,如果按钮未按下,取消事件,否则继续执行。以下是示例代码:
在公共模块中定义全局变量:
Public btnPressed As Boolean
在按钮点击事件中设置该变量:
Private Sub btn_Click() btnPressed = True End Sub
在BeforeUpdate事件中使用该变量:
Private Sub Form_BeforeUpdate(Cancel As Integer) If Not btnPressed Then Cancel = True MsgBox "请先按下按钮" End If End Sub
这样,如果在更改记录时未按下按钮,BeforeUpdate事件将被取消,并且显示一个提示消息。如果按下按钮,则可以继续执行BeforeUpdate事件。