关于限制记录防修改

子煜　发表于：2011-10-07 14:49:51 　

复制

详细见附档说明。、

点击下载此附件

Top

麥田发表于：2011-10-07 15:22:15

【技巧示例】只能添加数据,不能修改删除的例子-Access软件网
http://www.accessoft.com/article-show.asp?id=5355

Top

子煜发表于：2011-10-07 15:36:25

谢谢老师回复，但是你这个例子对我来说不适用。

要按我附件示例的窗体上做限制，因为我还有另外一个出库窗体记录，出库记录是拿入库记录数据，所以当入库的记录已出库，应该不可修改，如需修改必须删除出库记录。

Top

丘山发表于：2011-10-07 22:53:48

Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.P_Status = True Then
DoCmd.RunCommand acCmdUndo
End If
End Sub
上面是子窗体窗体更行前事件

你试试

Top

子煜发表于：2011-10-08 08:07:13

DoCmd.RunCommand acCmdUndo
老师你好，貌似这个可以，能帮解释一下上句是啥意思。

Top

子煜发表于：2011-10-08 08:21:06

另外再请教下问题。

如果Me.P_Status = True 当前记录已出货了，如何让当前记录背景填色，高亮显示呢。

Top

子煜发表于：2011-10-08 10:59:30

选中所有文本框，然后设置“条件格式”——表达式 P_Status = True 改变背景色，这样可以达到效果了，但是会不会影响速度，有没有比这更好的方法呢？

Top

丘山发表于：2011-10-08 12:22:17

Private Sub Form_Current()
Form_T_ProIn1.T_ProIn2_子窗体.Form.AllowEdits = Not Me.P_Status
End Sub

这个应该可以达到你要的效果

只不过需要你在点击编辑按钮事件中把 Me.T_ProIn2_子窗体.Form.AllowEdits = True 去掉

Top

丘山发表于：2011-10-08 12:23:27

上述事件是在子窗体中的成为当前事件

Top

子煜发表于：2011-10-08 13:49:06

最好的方法是可以锁定记录

Top

子煜发表于：2011-10-08 13:53:45

而不受allowedits的影响

Top

丘山发表于：2011-10-08 15:46:31

编辑框可以锁定

控件也可以锁定

锁定单条记录好像有点难度

要不你这样

把Form_T_ProIn1.T_ProIn2_子窗体.Form.AllowEdits = Not Me.P_Status
换成Form_T_ProIn1.T_ProIn2_子窗体.Locked = Me.P_Status
试试

Top

子煜发表于：2011-10-08 16:56:29

谢谢，这个方法比之前那样好。

另外已锁定的记录，也就是 Me.P_Status = True ，那么当前记录背景着色，有没有其他方法呢？

用条件格式可以实现，但是速度慢，而且影响视觉，记录多了一开窗体，还会看到有一个着色的过程。。

Top

丘山发表于：2011-10-08 23:59:16

不现实，至少在access窗体里
是在不行你看看这个

Private Sub Form_Current()
If Me.P_Status = True Then
DoCmd.RunCommand acCmdRecordsGoToNext
End If
End Sub

Top

dalianliuliu 发表于：2011-10-09 10:05:06

背景着色可否使用：

如果条件满足，背景就=红色（直接写红色的值，比如红色是100）

哈哈哈，但我不会写！

Top

子煜发表于：2011-10-09 11:52:03

楼上说的没错，如果用VBA来写的话，肯定比条件格式要快吧。

Top

dalianliuliu 发表于：2011-10-21 16:40:19

看看这个

我觉得速度没太大差别

http://www.accessoft.com/article-show.asp?id=5254

Top

总记录：16篇页次：1/1 9 1 :

Access交流中心

关于限制记录防修改