怎么取消关闭窗口时的自动数据保存？

ymljyue

在关闭窗口的时候会自动保存数据，不给任何提示

我想在关闭窗口的时候给用户一个确认的机会，于是屏蔽关闭窗口按钮

自己加一个按钮用DoCmd.Close关闭窗口，结果还是一样自动保存，怎么才能让它不保存呢？

zhujianming

在更新后事件中加入提示，Dim strMsg As String

    strMsg = "资料已更改."

    strMsg = strMsg & vbCr & "您想保存吗?"

    strMsg = strMsg & vbCr & "点击[是]确定，点击[否]取消。"

    If MsgBox(strMsg, vbQuestion + vbYesNo, ) = vbYes Then

Else

    DoCmd.RunCommand acCmdUndo    End If

ymljyue

这个，不是很妥吧，我列表方式的每填一行都弹出来确认太不方便了吧？

[此贴子已经被作者于2005-7-1 17:18:12编辑过]

eyewitnes

关闭事件中加上 if me.form.durty then再加上楼上的代码

AlanMeng

超级新手，学习了

bayueduannai

On Error GoTo Err_关闭_Click
     Dim strMsg As String
     strMsg = "资料已更改."
     strMsg = strMsg & vbCr & "您想保存吗?"
     strMsg = strMsg & vbCr & "点击[是]确定，点击[否]取消"
            If MsgBox(strMsg, vbQuestion + vbOKCancel) = vbOK Then
            Else
            DoCmd.RunCommand acCmdUndo
            End If
    DoCmd.Close

yabaibai

Private Sub 关闭_Click()

On Error GoTo Err_关闭_Click
If Me.Form.Dirty Then

     Dim strMsg As String
     strMsg = "资料已更改."
     strMsg = strMsg & vbCr & "您想保存吗?"
     strMsg = strMsg & vbCr & "点击[是]确定，点击[否]取消"
            If MsgBox(strMsg, vbQuestion + vbOKCancel) = vbOK Then
            Else
            DoCmd.RunCommand acCmdUndo
            End If
End If
    DoCmd.Close
   
Exit_关闭_Click:
    Exit Sub
Err_关闭_Click:
    MsgBox Err.Description
    Resume Exit_关闭_Click
   
End Sub