正 文:
(问): 我怎么在窗体中控制记录是否保存?
(答): 通过在窗体的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 |