退出系统提示问题

小何

我想在退出系统时就会提示“是否真的退出系统”，点击“否”就不退出。点击“是”再次提示“是否需要备份数据？”。如果点“是”就打开“备份”窗体进行备份，点击“否”就直接退出系统。这个代码怎么写啊？

一点通

Dim Response
   
Response = MsgBox("真的要退出系统吗？", 4 + 32 + 0, "系统提示")

If Response = vbYes Then    ' 用户按下“是”。




    Response = MsgBox("退出时备份数据库吗？", 4 + 32 + 0, "系统提示")

    If Response = vbYes Then    ' 用户按下“是”。

        '在这里写备份代码




        'QUIT '不要这句就行了

     Else '用户按下否

        QUIT

     End if

Else '用户按下否,不退出系统

End if

fannky

if msgbox ("退出?",vbyesno)=vbyes then


你的备份事件


quit

else



docmd.openform me.name

exit sub




end if

小何

这个基本是可以了,但还有两否的问题,当退出提示时点击否还是会关闭主窗体,另外,点击是时,强制用户备份,而不是提示用户是否需要备份?

fannky

哦，这样啊

试一试

if msgbox ("退出?",vbyesno)=vbyes then

docmd.openform "备份窗口"

else



exit sub



end if

而且按照你的思路的话，关闭系统的事件应该设置在备份窗口关闭时

小何

7楼的你这个不行,点击是就直接退出了,我目的是想在点击是时提示是否需要备份,如果要备份就打开备份窗体,不需要备份时就退出

fannky

以下是引用fannky在2006-8-12 16:06:00的发言：


if msgbox ("退出?",vbyesno)=vbyes then

quit

else

exit sub

end if

if msgbox ("退出?",vbyesno)=vbyes then

quit

else

docmd.openform me.name

exit sub

end if

小何

怎么做啊?能不能帮我写全啊?

一点通

减少QUIT这句

小何

二楼朋友,我用你这个但点击否时也会关闭了主窗体,另外,我已将提示退出是否备份数据库时,点击是就打开备份窗体了,但打开备份窗体时主窗体而已关闭了,这个怎么解决啊?

[此贴子已经被作者于2006-8-12 16:49:14编辑过]