在Access中是否可以从全局函数中关闭变量？

Question

在我的访问程序中，如果他们想要保存，我会在每次关闭程序时询问用户。这可以通过任何形式完成。问题出现了，因为我想创建一个全局函数，以减少重复代码。这怎么办？在课堂模块中？ （这是怎么设置的？）

如果它有助于我的代码如下;

If Me.Dirty Then
 Dim LResponse As Integer

 LResponse = MsgBox("You have unsaved changes. Do you really want to close the database", vbYesNo, "Close form")

 If LResponse = vbYes Then
  DoCmd.Close
  Cancel = True
 End If
Else
 DoCmd.CloseDatabase
End If

Answer 1

默认情况下，绑定表单会在关闭时保存更改的数据，因此您不需要这一切。

因此，您只需要一个代码行：

DoCmd.Quit

如果您系统地希望向表单或控件添加功能或行为，请使用 WithEvents 。

可以找到一个示例here。