怎样在保存记录前进行询问
4 G! }1 N F0 ^3 H. H9 _通过在窗体的BeforeUpdate事件处理程序中编写一段代码来实现这一功能, 通过这个方法就能使用Undo方法来实现放弃保存。7 Y3 m; l1 {3 v
Private Sub Form_BeforeUpdate(Cancel As Integer). {: X& v/ I C9 S) \
Dim strMsg As String$ q9 U2 j+ C5 q" @7 N
strMsg = "数据已经改变."
7 |. e) L) ]; C: J! I2 @$ K0 w strMsg = strMsg & vbCr & "你想保存吗?"
, v' j# A3 X+ K: P strMsg = strMsg & vbCr & "点击[是]保存，点击[否]放弃保存。"
8 m0 Z; `$ e9 P4 `: g4 V' A0 X7 d* { If MsgBox(strMsg, vbQuestion + vbYesNo, "记录保存吗?") = vbYes Then
. D9 [; m% Z* I' z" q' X. I7 f ' 什么也不需要做，就会保存记录3 `- m% V& T4 T* t8 H
Else
8 ]/ W2 b3 g0 L( U DoCmd.RunCommand acCmdUndo
4 h: {5 ]- q/ o# x3 L# W9 S$ Z1 \ ' 对于access 95, 使用DoMenuItem方法代替
F7 {* y) w& I4 S- E# P 'DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70* C! }4 o. `( r& C
End If
) x" i7 X0 |8 A/ ?7 O3 ^ End Sub |
发表于 2012-7-31 22:26:35
