Access怎样在保存记录前进行询问_access窗体及access控件

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

时间：2005-02-04 10:40 来源：theaccessweb 作者：Dev Ashi… 阅读：次

通过在窗体的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

(责任编辑：admin)

顶一下

(0)

踩一下

(0)

上一篇：在 Access 中利用生日计算年龄
下一篇：Access在窗体间传递参数的几种常用办法