[分享][原创]精细的用户权限管理事例，简单实用

machi · 发表于 2007-5-4 19:05:00

ding

liao9416 · 发表于 2007-5-5 19:45:00

zhongsdwh · 发表于 2007-5-6 20:01:00

学习了 0

awangyd · 发表于 2007-5-7 06:15:00

看看

joyce1109 · 发表于 2007-5-10 22:41:00

我也想要

rgb5454 · 发表于 2007-5-11 03:21:00

以下是引用andymark在2006-6-5 21:06:00的发言：
把代码改成这样,你测试一下Public Sub SetFrm(frm As Form)
Dim TruPur As Boolean
TruPur = Nz(DLookup("[" & frm.Form.Caption & "]", "pur", "[姓名]=" & "'" & User & "' "))
If TruPur = False Then frm.AllowAdditions = False
frm.AllowDeletions = False
frm.AllowEdits = False

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Else
Exit Sub
End If
End Sub

ytf123 · 发表于 2007-5-12 15:29:00

[em01]

ferockpan · 发表于 2007-6-1 03:55:00

look......

today416 · 发表于 2007-6-2 02:59:00

赞一个

iamee · 发表于 2007-6-12 05:00:00

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

群介绍
Access培训群 (792054000)
Access免费培训群2 (792054000)
Access经典源码培训群 (77130759)
Access源码技巧群 (138920637)
access vba (307776555)

主题相关群

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

[模块/函数] [分享][原创]精细的用户权限管理事例，简单实用

学习了

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