如何在关闭事件中取消表格？

Question

我确信这很简单,但我找不到它.在访问表单的关闭事件中,如何取消关闭表单？我有一个测试计数表中的记录.如果该表有记录,我想询问用户是否要关闭或返回并使用它们.那么如何取消关闭事件？

Answer 1

您可以使用Unload事件:

GlobalVar ButtonClicked

Private Sub Form_Open(Cancel As Integer)
     ButtonClicked = False
End Sub

Private ClickMe_Click(Cancel As Integer)
     ButtonClicked = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
     If Not ButtonClicked Then
         Cancel = True
     End if
End Sub  

数据库对象的事件顺序