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

WDLRCZT · 发表于 2006-6-6 16:29:00

ding

fannky · 发表于 2006-6-6 17:44: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

谢谢，达到我预期效果

xjliyuehua · 发表于 2006-6-6 17:59:00

[em02][em02]

K仔 · 发表于 2006-6-6 18:13:00

我来看看先

kennylee · 发表于 2006-6-7 01:12:00

look

laiguiyou · 发表于 2006-6-7 02:20:00

accessone1 · 发表于 2006-6-7 05:28:00

antywjl · 发表于 2006-6-7 16:42:00

我想看看,谢谢楼主

videochat · 发表于 2006-6-7 19:46:00

看看高手的,谢谢

wangwang · 发表于 2006-6-9 22:24:00

顶.好代码.看看

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

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

主题相关群

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

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

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