如何为User用户设置FE1表单只读？解决On Open事件声明不匹配错误

嘿，这个报错我可太熟了！你遇到的「Procedure declaration does not match」问题，本质是VBA事件过程的签名不符合Access的要求——简单说就是你写的Form_Open过程参数不对，Access认不出这是合法的窗体打开事件。

错误原因拆解 #

Access的窗体Open事件有固定的过程格式要求，必须带Cancel As Integer参数，如果你的过程少了这个参数、参数类型写错，或者过程名不对，都会触发这个报错。

正确的实现步骤 #

我给你整理了完整的可运行代码，以及关键注意点：

1. 先确保用户类型能被FE1表单读取

登录表单提交时，把选择的用户类型（Admin/User）存到一个全局变量里（比如在标准模块里声明）：

' 新建一个标准模块，命名为modGlobal，写入下面的代码
Public gstrCurrentUserType As String

然后在登录表单的确认按钮里赋值：

Private Sub cmdLogin_Click()
    ' 假设你的用户类型下拉框叫cboUserType，密码框叫txtPassword
    If Me.txtPassword.Value = "你的密码验证逻辑" Then
        gstrCurrentUserType = Me.cboUserType.Value
        DoCmd.OpenForm "FE1" ' 打开目标表单
        DoCmd.Close acForm, Me.Name ' 关闭登录表单
    Else
        MsgBox "密码错误！"
    End If
End Sub

2. FE1表单的Form_Open事件正确写法

打开FE1表单的代码模块，写入以下代码（注意过程签名必须完全一致）：

Private Sub Form_Open(Cancel As Integer)
    ' 读取全局变量里的用户类型
    Dim strUserType As String
    strUserType = gstrCurrentUserType
    
    ' 判断如果是普通User，设置窗体为只读
    If strUserType = "User" Then
        ' 全局禁用编辑/删除/新增，一步到位
        Me.AllowEdits = False
        Me.AllowDeletions = False
        Me.AllowAdditions = False
        
        ' （可选）如果需要更细粒度控制，也可以锁定单个控件
        ' Me.txtSomeField.Locked = True
        ' Me.cboSomeCombo.Enabled = False
    End If
End Sub

避坑关键提醒 #

• 必须严格遵循事件签名：过程名必须是Form_Open，参数必须是Cancel As Integer，不能改名字也不能改参数。如果怕写错，直接在窗体属性面板的「打开」事件里选择「事件过程」，点击右边的三个点，Access会自动帮你生成正确的过程框架！
• 用户类型存储要靠谱：别用临时变量（会丢失），全局变量、隐藏窗体控件或者临时表都是靠谱的选择。
• 别放错模块：Form_Open过程必须写在FE1窗体的专属代码模块里，不能放在标准模块里。

如果按照这个步骤来，不仅能解决报错，还能完美实现普通用户只读的需求～

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