字段权限函数请教(关于Form)

下面是我写的关于限定一些共用窗体,各部门拥有不同字段的权限,试验通不过,所以发贴求助

请高手能帮忙解答疑惑, 如有更好的方法或建议最好,  谢谢!

'限定字段的权限

'========================
Public Function ControlRight(frm As Form)    '括号里的参数填ME,me.form,me.name为什么都不行?如果是子窗体呢那又该如何填写?
    Dim Ctl As Control
    For Each Ctl In frm.Controls
        If TypeOf Ctl Is TextBox Or TypeOf Ctl Is ComboBox Then    '前面加ac为什么不能编译?
            If Ctl.Tag <> "" Then    '正常情况下没有设标签, 标签是否要加""?
                If Ctl.Tag = Forms!sysfrmmain!dcode Then    '平台中主窗中的三位部门代码
                    Ctl.Enabled = True
                Else
                    Ctl.Enabled = False
                End If
            Else
                Ctl.Enabled = True '没有标签的控件都可以用
            End If
        End If
    Next
End Function
'========================