求助! 权限.

melanier

原帖由 静儿 于 2007-12-26 17:27 发表
Private Sub Form_BeforeUpdate(Cancel As Integer)  '非复核人不能修改已复核的记录。
If 权限("超级用户") = False and Me.复核 = True Then
       Cancel = True
       Me.Undo
       MsgBox "本单已复核， ...

谢谢,能给个例子看看吗? 谢谢了....
我是个见代码晕的人.因为我不知道把你这段代码放哪....

melanier

如果不方便的话,把例子发到我邮箱也行,谢谢了
g.g.go@126.com
QQ: 125741026

melanier

还想再请问静儿:
权限做完以后,拆分共享成功了吗?

静儿

我这里就是拆分使用的呀。

静儿

Function.......End Function  是放在模块中的。
其他的代码放在要控制窗体记录的代码窗体中去。

melanier

太好了,有希望了....

不过,控制窗体记录的代码窗体?

能不能麻烦你一下,能E给我一个例子吗? 登录框架就行..!
拜托了!

Derrick

有没有直接通过语句，从用户类别判断权限的？