如何使菜单变为灰色不可用?

谢健 · 发表于 2007-7-7 17:02:00

<

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

一点通 · 发表于 2007-7-7 18:55:00

<

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

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

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

谢健 · 发表于 2007-7-7 23:13:00

谢谢一点通大师,经您的指点,实现了我想要达到的效果,非常感谢您的帮助!谢谢您!

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[其它] 如何使菜单变为灰色不可用?

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)