Microsoft Access中仅管理员可用按钮的实现方法

你已经搭好了基础的权限框架，接下来给你两种简单有效的方法来控制普通用户对特定按钮的访问权限，核心就是利用你已有的UserAccess值，在表单加载或按钮触发时做权限判断。

方法一：表单加载时禁用/隐藏按钮 #

首先确保登录成功后，把当前用户的UserAccess值存到全局变量里（比如在标准模块中定义Public gblUserAccess As Integer，登录验证通过后给这个变量赋值）。

打开客户表单，进入VBA编辑器，找到表单的Form_Load事件，添加以下代码：

Private Sub Form_Load()
    ' 把cmdDelete替换成你实际的删除按钮名称
    Select Case gblUserAccess
        Case 1 ' 普通用户
            Me.cmdDelete.Enabled = False ' 禁用按钮，点击无反应
            ' 要是想直接隐藏按钮，把上面一行换成：
            ' Me.cmdDelete.Visible = False
        Case 2 ' 管理员
            Me.cmdDelete.Enabled = True
            ' Me.cmdDelete.Visible = True
    End Select
End Sub

方法二：按钮点击事件中添加权限拦截 #

为了防止用户通过VBA直接触发按钮功能（比如手动运行代码），建议在按钮的Click事件里再加一层校验：

Private Sub cmdDelete_Click()
    If gblUserAccess <> 2 Then
        MsgBox "抱歉，你没有执行删除操作的权限！", vbExclamation, "权限不足"
        Exit Sub ' 直接退出，不执行后续删除逻辑
    End If
    
    ' 这里放你原来的删除代码，比如：
    ' DoCmd.RunCommand acCmdDeleteRecord
    ' 或者自定义的删除逻辑
End Sub

额外提示 #

• 如果表单是动态加载记录的，可以把权限判断放到Form_Current事件里，确保切换记录时按钮状态始终正确（如果用户权限是登录后固定的，Form_Load就足够了）
• 选择禁用还是隐藏按钮看你的UI需求：隐藏按钮更直观，但可能影响表单布局；禁用按钮保留位置，用户能看到但无法操作

内容的提问来源于stack exchange，提问作者Cbrady