如何禁止修改、删除表中的指定记录？

binzhouxc721521

表中的指定记录不能被修改、删除，其他记录则可以，请问怎么实现？

pgwq

1.先看附件图片
"报关完成"这个子段只能在其它窗体中修改,在本窗体中锁定.


2.再看下面的语句:

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

pgwq

Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)

If Me.报关完成 = False Then
   
  ???   我回答了一半的问题， 这里怎么做？

           请高手！
   
End If
End Sub

[此贴子已经被作者于2006-3-3 17:36:23编辑过]

binzhouxc721521

看不大懂，请祥告之。

binzhouxc721521

表中的指定记录不能被修改、删除，其他记录则可以，请问怎么实现？

wazi8

怎么能够让数据在 输入一定时间后自动锁定阿？

一点通

以下是引用binzhouxc721521在2006-3-12 21:50:00的发言：
表中的指定记录不能被修改、删除，其他记录则可以，请问怎么实现？

可以选用表中的关键字来实现这些功能

一点通

以下是引用wazi8在2007-2-14 23:21:00的发言：
怎么能够让数据在 输入一定时间后自动锁定阿？

系统时间与记录时间作一个比较,当大于某个值时锁定记录