ACCESS_一个制止修改窗体记录的示例

pgwq

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

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

yh0825

如果有子窗体还能行吗？能用个例子说明吗？