Access-小示例-01-账户权限管理

微信公众号原文

系统：Windows 7
软件：Access 2016**

• 这个系列介绍一些简单的小示例
• 包括在界面端的设置及在代码端的实现

Part 1：本篇目标

1. 根据打开软件的不同用户，赋予不同操作权限
2. 本质上就是将一部分控件禁用，一部分控件启用
3. 如下图所示，打开窗体时，禁用按钮非管理员按钮，启用按钮管理员按钮，在文本框中写入当前登录账户

效果图

1.png

Part 2：实现步骤

1. 画出设计图，文本框名称为txt1，管理员按钮名称为cmd1，非管理员按钮名称为cmd2

界面设计

2.png

Part 3：代码

Private Sub Form_Load()
    currentUserName = Environ("username")
    Debug.Print (currentUserName)
    
    Set frm = Forms("窗体1")
    
    Set ctrl1 = frm.Controls("cmd1")
    Set ctrl2 = frm.Controls("cmd2")
    Set ctrl3 = frm.Controls("txt1")
    
    If currentUserName = "Administrator" Then
        ctrl1.Enabled = True
        ctrl2.Enabled = False
    Else
        ctrl1.Enabled = False
        ctrl2.Enabled = True
    End If
    
    ctrl3.Value = currentUserName
    
End Sub

代码截图

3.png

Part 3：部分代码解读

1. currentUserName = Environ("username")获取当前登录账户
2. ctrl1.Enabled = True启用控件ctrl1
3. ctrl2.Enabled = False禁用控件ctrl2
4. Private Sub Form_Load()，窗体启动事件​

本文为原创作品，更多学习交流可加小编微信号learningBin

---

更多精彩，请关注微信公众号
扫描二维码，关注本公众号

公众号底部二维码.jpg