Access中表单按钮控制函数报错：运行时错误'424'

问题场景 #

在Access数据库中，执行cmdStructureOn函数时抛出运行时错误'424'：需要对象异常，但功能完全相反的cmdStructureOff函数可正常运行；在另一正常Access库中，仅设置True的函数生效，将代码中True改为False的同结构函数却无效。

报错代码 #

Public Function cmdStructureOn()
    Dim arr As Variant
        arr = Array("btnAnalyze", "btnVacation", "btnTicket", "btnBackup104", "btnParameterStr", "btnStrReturnMenu")
    Dim btn As Variant
        For Each btn In arr
            Form_FrmMenu.Controls(btn).Visible = True
            Form_FrmMenu.Controls(btn).Enabled = True
        Next btn
End Function

正常代码 #

Public Function cmdStructureOff()
        Dim arr As Variant
            arr = Array("btnAnalyze", "btnVacation", "btnTicket", "btnBackup104", "btnParameterStr", "btnStrReturnMenu")
        Dim btn As Variant
            For Each btn In arr
                Form_FrmMenu.Controls(btn).Visible = False
                Form_FrmMenu.Controls(btn).Enabled = False
            Next btn
    End Function

可能原因及解决方案 #

1. 默认实例引用失效 #

代码中使用Form_FrmMenu引用表单的默认实例，在某些场景下（比如表单以副本形式打开、默认实例被意外释放），默认实例可能无法正确指向当前打开的表单。而设置Visible=False时，Access可能做了容错处理，设置True时则触发对象引用错误。

解决方案：改用动态引用表单实例，并添加状态校验：

Public Function cmdStructureOn()
    ' 校验表单是否加载且处于窗体视图
    If Not CurrentProject.AllForms("FrmMenu").IsLoaded Then
        MsgBox "FrmMenu未打开"
        Exit Function
    End If
    If Forms("FrmMenu").CurrentView <> acFormNormal Then
        MsgBox "FrmMenu需在窗体视图下操作"
        Exit Function
    End If
    
    Dim arr As Variant
        arr = Array("btnAnalyze", "btnVacation", "btnTicket", "btnBackup104", "btnParameterStr", "btnStrReturnMenu")
    Dim btn As Variant
        For Each btn In arr
            Forms("FrmMenu").Controls(btn).Visible = True
            Forms("FrmMenu").Controls(btn).Enabled = True
        Next btn
End Function

2. 控件父容器不可见 #

如果数组中的按钮位于某个容器控件（如Frame、子窗体）内，当父容器Visible=False时，直接通过表单的Controls集合引用子控件会失败。设置Visible=False时，即使父容器不可见，Access仍允许修改子控件属性，但设置True时需要父容器处于可见状态才能正确引用子控件。

解决方案：先确保父容器可见，或直接引用父容器下的控件：

' 假设按钮在名为Frame1的容器中
Forms("FrmMenu").Frame1.Controls(btn).Visible = True
Forms("FrmMenu").Frame1.Controls(btn).Enabled = True

3. 单个控件引用异常 #

数组中可能存在某个控件已被删除、重命名，或控件类型不支持Visible/Enabled属性。由于设置False时Access可能忽略无效控件，而设置True时触发错误。

解决方案：添加错误捕获定位问题控件：

For Each btn In arr
    On Error Resume Next
    Forms("FrmMenu").Controls(btn).Visible = True
    If Err.Number <> 0 Then
        MsgBox "控件[" & btn & "]设置Visible失败：" & Err.Description
        Err.Clear
    End If
    Forms("FrmMenu").Controls(btn).Enabled = True
    If Err.Number <> 0 Then
        MsgBox "控件[" & btn & "]设置Enabled失败：" & Err.Description
        Err.Clear
    End If
    On Error GoTo 0
Next btn

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