Office中国论坛/Access中国论坛

标题: QUIT属性是使用无效，怎么解决！ [打印本页]

作者: huangyz_xy 时间: 2009-8-24 22:00
标题: QUIT属性是使用无效，怎么解决！

有点小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 时间: 2009-8-25 09:29
应是docmd.quit 不直接使用quit

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)