通过在窗体的BeforeUpdate事件处理程序中编写一段代码来实现这一功能, 通过这个方法就能使用Undo方法来实现放弃保存。
　　Private Sub Form_BeforeUpdate(Cancel As Integer)
　　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
　　End Sub

　　更多信息请访问：计算机等级考试站　计算机等级考试在线题库　计算机等级考试论坛