如何保存和退出

feifei　发表于：2018-06-27 14:07:43 　

打开窗体，输入或更改数据，点击保存按钮，数据保存，如果没有点击保存按钮，点击退出时，有提示是否要保存

点击下载此附件，谢谢各位

Top

仙来发表于：2018-06-28 10:16:02

退出事件中:

Dim Msg, Style, Response
   Msg = "是保存吗？"
   Style = vbYesNoCancel
   Response = MsgBox(Msg, Style)

   Select Case Response
       Case vbYes
       Call 保存_Click
       Case vbNo
       DoCmd.Close
       Case vbCancel
       Exit Sub
   End Select

feifei 发表于：2018-06-28 12:47:36

怎么提示子过程货函数未定义

仙来发表于：2018-06-28 13:57:29

是因为你的保存按扭没有事件

你设设置下保存单击事件就OK了

Private Sub 保存_Click()

End Sub

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

Access交流中心