Office中国论坛/Access中国论坛

标题: ACCESS_一个制止修改窗体记录的示例 [打印本页]

作者: pgwq 时间: 2006-2-24 23:59
标题: ACCESS_一个制止修改窗体记录的示例
1.先看附件图片
"报关完成"这个子段只能在其它窗体中修改,在本窗体中锁定.

2.再在本窗体的Form_BeforeUpdate中使用以下代码:

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim strMsg As String
strMsg = "数据已经改变."
strMsg = strMsg & vbCr & "点击[是]保存，点击[否]放弃保存。"

If Me.报关完成 = True Then
DoCmd.RunCommand acCmdUndo    '报关已完成,就不能修改记录,显示对话框后就此结束
MsgBox ("报关后记录不能修改!请在XXX窗体中先取消'报关完成'以及'报关单资料'后再行修改.")
Else
If MsgBox(strMsg, vbQuestion + vbYesNo, "记录保存吗?") = vbYes Then
      ' 什么也不需要做，就会保存记录

   Else
      DoCmd.RunCommand acCmdUndo

End If

End If
End Sub

[attach]16002[/attach]

[此贴子已经被作者于2006-2-24 16:00:00编辑过]

作者: yh0825 时间: 2008-1-11 03:43
如果有子窗体还能行吗？能用个例子说明吗？

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)