怎样在保存记录前进行询问$ F! I1 s6 f" z% D
通过在窗体的BeforeUpdate事件处理程序中编写一段代码来实现这一功能, 通过这个方法就能使用Undo方法来实现放弃保存。) k4 Z( `. c) N4 ]9 F
Private Sub Form_BeforeUpdate(Cancel As Integer)8 r+ v+ k" U8 {( w$ C4 ]
Dim strMsg As String* V! f! V. g/ ^% {# l4 G
strMsg = "数据已经改变."7 W }9 a5 L' E% M
strMsg = strMsg & vbCr & "你想保存吗?"* R9 I# _; h- c* P, F
strMsg = strMsg & vbCr & "点击[是]保存，点击[否]放弃保存。"
; X6 S6 c- {/ @, M If MsgBox(strMsg, vbQuestion + vbYesNo, "记录保存吗?") = vbYes Then. K/ k* H) q3 n4 H. q
' 什么也不需要做，就会保存记录% O7 l% _8 V; a6 E
Else, |' ]; h' W! L& f
DoCmd.RunCommand acCmdUndo
/ W) b# T) |* P( R# U% F- l ' 对于access 95, 使用DoMenuItem方法代替
, m8 C3 @5 \1 N+ j- ^ 'DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70 k0 @; \# f, q" w9 ~3 [' X
End If
% B; r& g- `' ^2 y End Sub |
发表于 2012-7-31 22:26:35
