QUIT属性是使用无效，怎么解决！

huangyz_xy

有点小bug，将代码改进了一下。 Private Sub Form_Open(Cancel As Integer) Dim i As Byte On Error GoTo ww: If CurrentProject.AllForms(Me.Form.Name).Properties("zc") = False Then '若未注册 Me.注册.Visible = True i = CurrentProject.AllForms(Me.Form.Name).Properties("cs") AddCustomFormProperty Me.Form.Name, "cs", i + 1 If i + 1 >= 30 Then '软件发行时发行者要点“初始化”按钮，将试用次数归零的，因此不会出现尚可使用次数为负数的情况，但为安全起见，还是加个大于号吧。 If MsgBox("试用期到！请注册使用", vbOKCancel) = vbCancel Then Quit 注册_Click Exit Sub End If MsgBox "您还有" & 30 - i & "次试用的机会，请您及时注册使用！" Exit Sub Else Exit Sub ’较大bug，系统检测为注册版时应退出代码执行，而不再执行后面的退出程序的语句。 End If ww: MsgBox "出现异常错误": Quit End Sub ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 以上引用了一位大侠的代码，在他做的窗体里面能正常运行，但是引用到我的窗体以后就出问题了，执行到If MsgBox("试用期到！请注册使用", vbOKCancel) = vbCancel Then Quit 的时候提示quit的属性的使用无效，是什么原因啊？

ui

应是docmd.quit  不直接使用quit