打开封闭表单VBA访问

Question

如果有办法在没有Access重载的情况下重新打开正在关闭的表单？

我有一个模态表单，我希望用户填写并且不希望他们离开该屏幕，直到该数据被填满。

我尝试重新打开他们试图关闭的表单，但它会超载Access并且在此之后不会让我做任何事情

Answer 1

您可以在Cancel = True活动中设置OnUnload来取消关闭表单。

Private Sub Form_Unload(Cancel As Integer)

    If Not CheckAllDataIsFilled() And Not bCancelButtonClicked Then
        MsgBox "Please fill out all data.", vbExclamation
        Cancel = True
    End If

End Sub

但是你应该总是提供一种取消表单的方法，否则用户会对你感到非常沮丧，如果没有别的办法，他们就不会通过任务管理器杀死Access。