| 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 |
