怎样在保存记录前进行询问
这个功能是通过在表单的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。
0条评论