Dim ctl As Control
    For Each ctl In Me.Controls
        Select Case ctl.ControlType
        Case acLabel, acLine, acRectangle, acCommandButton
        Case Else
            ctl.Enabled = False
        End Select
    Next
    Me![控件名].Enabled = HasPermission("模块名称", "权限名称")