[5分]采用这种做法会降低系统效率吗？

下面则是公用函数（请大家注意看红色部分的代码，我就担心这部分会影响系统效率）

Public Function My_applyFieldRight(frmAny As Form)
'本函数将某一窗体进行字段级的权限控制，想要进行字段级控制，必须满足下面三个基本条件：
'第一个条件，该窗体一定要有说明属性并且一定要以"fld"三个字符开头
'第二个条件，窗体中的字段默认应该设置为锁定状态，另外只对窗体中的文本框控件、复选框控件和组合框控件进行字段级权限控制
'第三个条件，窗体中需要进行字段级控制的字段必须要有tag属性
    Dim ctl As Control
    Dim strUserName As String

    If IsLoaded("usysfrmFieldRights_child_Add") Then    '如果usysfrmFieldRights_child_Add窗体打开了，则意味着管理员正在进行字段级管理权限的系统设置
        For Each ctl In frmAny.Controls
            If ctl.ControlType = acTextBox Or ctl.ControlType = acCheckBox Or ctl.ControlType = acComboBox Then
                If ctl.Tag <> "" Then
                    Forms("usysfrmFieldRights_child_Add").CobctlList.AddItem ctl.Tag & ";" & ctl.Name
                End If
            End If
        Next ctl
        DoCmd.Close acForm, frmAny.Name
        Exit Function
    End If
    '下面的代码则是正式的对该窗体中的每个需要设置权限的字段根据当前用户的权限情况进行字段级的权限设置
    strUserName = Forms!usysfrmLogin!txtUserName '当前用户代码
    DoCmd.RunSQL "Delete * from sys_tblFieldRights_temp"
    DoCmd.RunSQL "INSERT INTO sys_tblFieldRights_temp SELECT * FROM sys_tblFieldRights WHERE UserNumber='" & strUserName & "';"
    '上面两句DoCmd.RunSQL语句是把当前用户的字段级权限数据从服务器上下载到本地临时表，以减轻下面的遍历语句由于频繁的访问权限数据表而带来的网络流量
    If DCount("*", "sys_tblFieldRights_temp") = 0 Then Exit Function '如果当前用户没有任何字段级权限，则退出函数
   
    For Each ctl In frmAny.Controls
        If ctl.ControlType = acTextBox Or ctl.ControlType = acCheckBox Or ctl.ControlType = acComboBox Then
            If ctl.Tag <> "" Then
                If DCount("*", "sys_tblFieldRights_temp", "FrmName='" & frmAny.Name & "' And CtlName='" & ctl.Name & "'") > 0 Then
                    ctl.Locked = False '如果当前用户对该控件具有字段级权限，则解除该控件的锁定状态
                End If
            End If
        End If
    Next ctl
End Function