退出系统提示问题

fannky

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


你的备份事件


quit

else



docmd.openform me.name

exit sub




end if

一点通

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