使用
Access快速开发平台,如何用代码实现判断当前用户角色是否为管理员?
代码如下:
If GetParameter("Current User RoleName") Like "*管理员" Then
详 解:
1. 默认数据类型就是dbText,默认值就是"",可以省略。
2. dbText是一个VBA常量,常量不可能像字段名那样存在空格不需要加[ ]。
3. Like 运算符的返回结果已经是布尔值了,不需要再去 = True
当前用户的信息,登录后都可以用GetParameter函数获取,第1个参数名就是 【“Current User " + 字段名】,字段名来源于用户名Sys_Users和权限表Sys_Roles中。
从这个表里可以查看系统管理员的字段名,如下图: