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

andymark

你所列的控件都具有LOCK属性的,换言之只要把没LOCK属性的排除就简单多了

    Dim ctl As Control
    For Each ctl In Me.Controls
   
       If ctl.ControlType = acLabel Then
   
           Else
              ctl.Locked = True
        End If
     Next

andymark

命令按钮,直线 等等都没有LOCK属性,这要看实际情况,采用那种方法

还有一种方法,如果你的控件都邦定数据源的,可以参考下面的例子

http://www.office-cn.net/forum.php?mod=viewthread&tid=39483&replyID=9889&skin=1

andymark

把代码改成这样,你测试一下

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