Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

没有权限用户让窗体变成恢色或不用用状态

花落,相依  发表于:2010-09-16 21:29:32  
复制

我有一个窗体上有个文本框,在窗体文本框属性中定义了单击 = openform([lblmenu1]),"frmzc",true),意思就点击主窗体中这个文本框时进入FROMZC窗体。我想如果没有权限的人员点需主窗体事件就不让FRM2C窗体是恢色,不可再点击FRM2C窗体上的按钮了执行下一下了。

我在FRM2C窗体下加载的事件如下:但不起作用,请老师帮看一下,如何操作

option compare database

 private sub form _load()

   if dlookup("系统管理","用户权限表",("用户='"&opname &"'"))= false then

   docomd.close acform,me.name ,acsveyes '这句也不起作用

  

   msgbox "你不能进入"

   exit sub

end if

end sub

 

最后结果就是要无权限的点击主窗体中的文本框,可进入FRMZC窗体,但不进进入FRMZC窗体中的其它按钮打开相应的事件,或者让FRMZC变成恢色窗,不可用。

 

Top
陈福祥 发表于:2010-09-16 21:52:25

你的那个什么 opname 变量是在什么地方定义的,窗体的加载事件引用的变量应该是它自己窗体内部的变量,如果引用了其它窗体的变量,可能会无效。



liaohk 发表于:2010-09-17 07:40:06

在主窗体中文本框中--属性--单击项 录入=openform([lblmenu1]),"frmzc",true),



liaohk 发表于:2010-09-17 12:15:20
????

总记录:3篇  页次:1/1 9 1 :