怎樣在保存記錄前進(jìn)行詢問

通過在窗體的BeforeUpdate事件處理程序中編寫一段代碼來實現(xiàn)這一功能, 通過這個方法就能使用Undo方法來實現(xiàn)放棄保存。
    Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim strMsg As String
    strMsg = "數(shù)據(jù)已經(jīng)改變."
    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