在需要的主窗体加载事件里加上这段代码就好了：
    If GetParameter("Current User Role Name", [dbText], "admin") Like "*管理员" = False Then
        Me.sfrList.Form.RecordSource = "Select * FROM 预估主表 where 制作部门='" & GetParameter    ("Current User Name", [dbText], "admin") & "' "
    Else
        Me.sfrList.Form.RecordSource = "Select * FROM 预估主表"

    End If