系统退出时，如何有个提示呢？

先制作一个空窗体，在其unload事件中：

if msgbox("Really?",vbyesno,"Title")=vbno then

cancel=true

end if

上面窗体保存为frmHide

然后在启动窗体中，加入：

    DoCmd.OpenForm "frmHide", acNormal, , , , acHidden

这样即可在退出系统时，有提示了。