正    文：

(问): 我怎么在窗体中控制记录是否保存?

 

(答): 通过在窗体的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