禁用关闭键

Question

我希望确保用户在希望退出时强制使用数据库中表单上嵌入的密钥，以确保执行例程。我相信我目前遇到问题，因为数据库右上角的关键键（标记为＆＃39; x＆＃39;）会让用户绕过我的退出键。是否可以删除该密钥，以便用户被强制使用＃39;用我的方式退出？

Answer 1

您可以像这样设置TempVar：

Application.TempVars.Add "blnEnableClose", False

...但确保在打开Access项目时尽快运行。例如。如果您的表单在打开Access项目时设置为自动打开，则将其放在该表单的Open事件上。

然后，您可以在每个表单的卸载事件中运行以下IF语句：

Private Sub Form_Unload(Cancel As Integer)

    If _
        Application.TempVars!blnEnableClose = False _
    Then

        Cancel = True

    Else

        ' optional:
        ' DoCmd.Quit 

    End If

End Sub

如果您希望用户能够使用标准的Access退出按钮，您还可以选择在项目的其他位置设置Application.TempVars!blnEnableClose = True。

来源：https://www.youtube.com/watch?v=YXDi8r0AMfU