这句代码错在哪里，应该怎么写？

老顽童　发表于：2013-06-08 09:44:07 　

If MsgBox("您真的要退出本系统吗？", vbYesNo + vbQuestion, "退出提醒") = vbNo Then Cancel = True

我按了否还是会退出系统。

老顽童发表于：2013-06-08 09:56:59

Beep
If MsgBox("您真的要退出本系统吗？", vbYesNo + vbQuestion, "退出提醒") = vbYes Then Cancel = True

DoCmd.Quit acSave

全部代码是这样的

菜鸟发表于：2013-06-08 10:33:47

Beep
If MsgBox("您真的要退出本系统吗？", vbYesNo + vbQuestion, "退出提醒") = vbYes Then

DoCmd.Close acForm, Me.Name

end if

这样试试

老顽童发表于：2013-06-08 10:38:21

编译错误，提示没有If块。

殷小宝发表于：2013-06-08 11:03:08

代码应该写在窗体卸载事件中，不应写在关闭事件中。卸载事件有取消关闭。

老顽童发表于：2013-06-08 11:13:49

请看一下附件，我写在卸载事件中也是一样。

菜鸟发表于：2013-06-08 11:27:15

Private Sub Command0_Click()
On Error GoTo Err_Command0_Click

If MsgBox("您真的要退出本系统吗？", vbYesNo + vbQuestion, "退出提醒") = vbYes Then DoCmd.Quit
Exit_Command0_Click:
Exit Sub

Err_Command0_Click:
    MsgBox Err.Description
    Resume Exit_Command0_Click

End Sub

cspa 发表于：2013-06-08 13:10:34

“编译错误，提示没有If块。”

检查下你的模块中是否还有其他if条件，是否是其他if块不完整？

cspa 发表于：2013-06-08 13:13:25

Private Sub Form_Unload(Cancel As Integer)
If MsgBox("您真的要退出本系统吗？", vbYesNo + vbQuestion, "退出提醒") = vbNo Then Cancel = True
else 加上此句

DoCmd.Quit
end if 加上此句

End Sub

总记录：8篇页次：1/1 9 1 :

Access交流中心