问题描述：

解决方法：

用户角色编辑窗体代码里加个用户判断就好了，
    If GetParameter("Current User Role Name", dbText, Null) = "管理员" Then
        strSQL = "Select RoleID, RoleName FROM Sys_Roles where RoleId <>1"
    Else
        strSQL = "Select RoleID, RoleName FROM Sys_Roles"
    End If

Access开发平台--获取当前登录名\用户名\操作员及其它用户权限汇总[Access软件网]
http://www.accessoft.com/article-show.asp?id=11032