求助：如何控制

大海　发表于：2015-08-26 20:04:53 　

复制

请教老师！

下级打钩后这一行数据不可以编辑

中级打钩后这一行数据不可以编辑，并且下级的钩不可以取消，除非中级钩取消后才可以取消下级的钩

上级打钩后这一行数据不可以编辑，并且中级和下级的钩不可以取消，除非取消上级的钩后才可以取消中级的钩

点击下载此附件

Top

黎红军发表于：2015-08-27 05:53:42

在编辑记录前判别你需要设置的条件。

if 上级=yes，Then 不可编辑

else

if 中级=yes， then 不可编辑

ELSE

IF 下级=yes， then 不可编辑

else

end if

我个人觉得可能还要考虑你这个下级/中级/上级对于的权限问题，有权限修改上级的才能修改上级字段值，就打钩或取消。

中级同样，下级权限最低。

供参考

Top

大海发表于：2015-08-27 07:57:49

谢谢 1 楼的黎红军老师！

Private Sub Form_Current()
If Me.上级 = True Then
Me.费用名称.Locked = True
Me.币种.Locked = True
Me.金额.Locked = True
Me.下级.Locked = True
Me.中级.Locked = True
Me.备注.Locked = True
ElseIf Me.中级 = True Then
Me.费用名称.Locked = True
Me.币种.Locked = True
Me.金额.Locked = True
Me.下级.Locked = True
Me.备注.Locked = True
ElseIf Me.下级 = True Then
Me.费用名称.Locked = True
Me.币种.Locked = True
Me.金额.Locked = True
Me.备注.Locked = True
Else
Me.费用名称.Locked = False
Me.币种.Locked = False
Me.金额.Locked = False
Me.下级.Locked = False
Me.中级.Locked = False
Me.上级.Locked = False
Me.备注.Locked = False
End If
End Sub

代码这样写对吗？

Top

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

Access交流中心

求助：如何控制