怎样在保存记录前进行询问

这个功能是通过在表单的BeforeUpdate事件处理程序中写一段代码来实现的，通过这个方法可以使用Undo方法来实现放弃保存。
private subform _ before update(cancel as integer)
dimstrmsg as string
strmsg = "数据已更改。"
strMsg = strMsg & vbCr & "要保存吗？"
strMsg = strMsg & vbCr & "点击【是】保存，点击【否】放弃保存。"
ifmsgbox (strmsg，vbquestion+vbyesno，"记录是否保留？")= vbYes Then
'如果不执行任何操作，将保存记录
else
docmd.run命令accmdundo
'对于access 95，请使用DoMenuItem方法，而不是
' docmd . do menuitem acformbar，acedit menu，acundo，，acmenuver 70
endif
endsub。