在平台教程中,修改窗体中修改后按关闭就直接修改了数据,有时候会出现修改错误的情况,这时候最好是在修改的时候确认一下,这里稍微改进一下,用保存窗体中的TOOLBAR控件,当按保存的时候保存修改,按关闭的时候不修改数据直接关闭,例子如下:
Private Sub ToolbarFrm_ButtonClick(ByVal Button As Object)
Select Case Button
Case "关闭"
Me.Undo
DoCmd.Close acForm, "frmjj_child_Edit"
Case "保存"
Me.Refresh
DoCmd.Echo False
Forms!usysfrmMain!frmChild.SourceObject = "frmjj_child"
DoCmd.Echo True
'触发子窗体计时器事件
Forms!usysfrmMain!frmChild.Form.TimerInterval = 300
DoCmd.Close acForm, "frmjj_child_Edit"
End Select
End Sub
主要就是利用me.undo来撤消保存数据的操作