Office中国论坛/Access中国论坛

标题: 如何使菜单变为灰色不可用? [打印本页]

作者: 谢健 时间: 2007-7-7 17:02
标题: 如何使菜单变为灰色不可用?
<

>我想请教根据"系统权限表",模块里的代码要如何写,才能实现菜单变成灰色不可用,即没有权限的用户登录后,菜单不可用.由于示例精简了,仅需要将模块里的代码帮我改正就可以了.谢谢!</P>[attach]25270[/attach]<BR>

作者: 一点通 时间: 2007-7-7 18:55
<

>尝试这样写行不行</P>
<

> CommandBars("系统菜单").Controls("【系统】").Controls("窗体1").Enabled = DLookup("权限", "系统权限", "[窗体名称] ='" & "窗体1" & "'" & "And [用户代码] ='" & 当前登录用户 & "'")</P>

[此贴子已经被作者于2007-7-7 10:55:29编辑过]

作者: 谢健 时间: 2007-7-7 23:13
谢谢一点通大师,经您的指点,实现了我想要达到的效果,非常感谢您的帮助!谢谢您!

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