Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Access› 窗体标准控件 › 查看内容

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

1970-1-1 08:00| 发布者: Dev Ashish| 查看: 2086| 评论: 0

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

收藏分享邀请

帐号		自动登录	找回密码
密码			注册

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

最新评论

相关分类