禁用关闭键

Question

我想确保用户在希望退出时被迫使用嵌入在数据库中的表单中的关闭键以确保执行例程。我相信我目前有问题，因为数据库右上角的关闭键（由 'x' 标记）允许用户绕过我的退出键。是否可以删除该密钥以便用户 'forced' 使用我的方式退出？

Answer 1

您可以像这样设置一个 TempVar：

Application.TempVars.Add "blnEnableClose", False

...但确保在打开 Access 项目时尽快运行s。例如。如果您有一个设置为在打开 Access 项目时自动打开的窗体，请将其放在该窗体的打开事件中。

然后您可以运行以下 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

禁用关闭键

Disable the close key

ms-access

vba

ms-access-2010