方法一:AfterLoad事件
e.form.DisableXButton
方法二:设置属性->显示控制框->Flase
方法三:BeforeClose事件
If vars("允许关闭") = False Then
e.Cancel = true
msgbox("不能关闭")
End If
自己的关闭按钮
vars("允许关闭") = true
e.form.close