[求助]关闭自动保存除了不使用记录源外还有没有别的办法？

secowu

[求助]关闭自动保存除了不使用记录源外还有没有别的办法？

andymark

在关闭事件写上保存的语句

secowu

以下是引用andymark在2007-3-12 16:41:00的发言：


在关闭事件写上保存的语句

要是一滚动滚轮，还是会自动保存啦

rjacky

定义一个全局变量

在窗体的更新前事件中判断此保存动作是用户操作还是系统自动的，如果是系统自动的则撤销

secowu

这个好用，贴出来以备查询

Dim strMsg As String
    strMsg = "是否保存当前记录？"
    strMsg = strMsg & vbCr & "　"
    strMsg = strMsg & vbCr & "点击[是]保存，点击[否]放弃保存。"
    If MsgBox(strMsg, vbQuestion + vbYesNo, "记录保存吗?") = vbYes Then
        ' 什么也不需要做，就会保存记录
    Else
        DoCmd.RunCommand acCmdUndo
'        ' 对于Access 95, 使用DoMenuItem方法代替
'        'DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
    End If

roundu

以下是引用rjacky在2007-3-12 19:09:00的发言：


定义一个全局变量

在窗体的更新前事件中判断此保存动作是用户操作还是系统自动的，如果是系统自动的则撤销

绝得可行。。。。。好。

gaping

不行！假如没有修改数据，按下关闭时，点击“否”不保存，就会出现错误！！！