MS Access特定表单锁定异常：管理员无法访问Admin表单求助

我来帮你一步步排查并解决这个问题，大概率是权限传递、逻辑判断或者表单属性设置环节出了问题，咱们逐个验证：

1. 先确认用户类型是否正确传递到主窗体 #

权限字符串光在登录窗体定义没用，得确保它确实传到了主窗体的txtUserType控件里：

• 打开登录窗体的登录按钮代码，检查是不是在主窗体加载后才赋值（避免主窗体未加载导致控件不存在）：

  Private Sub cmdLogin_Click()
      ' 假设这里已经完成用户名密码验证，获取到用户类型
      Dim strUserType As String
      strUserType = DLookup("UserType", "Users", "Username='" & Me.txtUsername.Value & "'")
      
      ' 先打开主窗体，再给控件赋值
      DoCmd.OpenForm "MainForm"
      Forms!MainForm.txtUserType.Value = strUserType
      DoCmd.Close acForm, Me.Name
  End Sub
  

• 可以在主窗体Form_Load事件开头加个调试弹窗，确认值是否正确：

  Private Sub Form_Load()
      MsgBox "当前登录用户类型：" & Me.txtUserType.Value
      ' 后续权限判断代码...
  End Sub
  

如果弹窗显示不是Admin，那问题出在权限传递环节，得先把这个搞定。

2. 检查主窗体权限判断的逻辑是否正确 #

确保你在Form_Load里的判断逻辑没有错误：

• 正确的逻辑应该是：当用户类型为Admin时，解除Admin表单的锁定/启用它；否则锁定。示例代码：

  Private Sub Form_Load()
      ' 先判断用户类型是否有效
      If Not IsNull(Me.txtUserType.Value) Then
          ' 统一大小写避免匹配问题（比如数据库存的是小写admin）
          Select Case UCase(Me.txtUserType.Value)
              Case "ADMIN"
                  ' 如果Admin表单已经打开，直接启用并解锁
                  If CurrentProject.AllForms("AdminForm").IsLoaded Then
                      With Forms!AdminForm
                          .Enabled = True
                          .AllowEdits = True
                          .AllowAdditions = True
                          .AllowDeletions = True
                          ' 若表单内控件单独设了锁定，这里也要取消
                          .Controls("txtAdminOnlyField").Locked = False
                      End With
                  End If
              Case Else
                  ' 非管理员锁定表单
                  If CurrentProject.AllForms("AdminForm").IsLoaded Then
                      Forms!AdminForm.Enabled = False
                  End If
          End Select
      Else
          MsgBox "用户类型未正确加载，请重新登录"
      End If
  End Sub
  

• 注意：如果Admin表单是在主窗体加载之前就自动打开的，那主窗体的Form_Load代码不会生效，建议改成在主窗体里控制Admin表单的打开时机——比如给管理员显示专属打开按钮，非管理员则隐藏该按钮。

3. 检查Admin表单自身的属性设置 #

有时候表单本身的默认设置会覆盖你的权限逻辑：

• 打开Admin表单的设计视图，检查这几个核心属性：
  • AllowEdits、AllowAdditions、AllowDeletions：默认是不是设为No？如果是，即使管理员登录，也要在代码里把这些属性改成Yes。
  • 表单的Enabled属性：是不是默认No？同样需要在权限判断时设为Yes。
• 如果是表单内的特定控件单独锁定，要确保代码里把这些控件的Locked属性设为False。

4. 排查字符串大小写匹配问题 #

数据库里存储的用户类型可能是小写admin，但你的判断代码用的是大写Admin，导致匹配失败。可以用UCase或LCase统一格式，比如上面示例里的UCase(Me.txtUserType.Value) = "ADMIN"，这样不管大小写都能正确匹配。

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