Access OpenForm打开窗体指定记录报运行时错误424缺少对象

错误根因 #

该报错由Access导航控件的层级引用规则差异导致：

• 文本框控件来源中通过表达式生成器写的引用路径可正常取值，是因为Access表达式解析服务会自动递归遍历所有嵌套层级匹配目标控件
• VBA代码中引用控件时，Controls集合仅检索当前容器的直接子控件，不会递归查找。默认的NavigationSubform子窗体控件是导航控件（默认名为NavigationControl）的子元素，并非主窗体[HUB]的直接子控件，因此直接写Forms![HUB]![NavigationSubform]无法找到对应对象，触发运行时错误424：缺少对象。

修复方案 #

最优写法（推荐） #

触发按钮与[MainLinkStoff]文本框同属当前导航子窗体，无需写跨窗体长路径，直接用Me关键字指代当前代码所在的子窗体即可，完全规避导航控件层级引用坑，代码简洁且稳定性最高：

Private Sub command_new_sdb_copy_Click()
    ' 数字主键可直接拼接值；若为文本类型主键，需改为"stoff_id='" & Me!MainLinkStoff & "'"
    DoCmd.OpenForm "neusdb", , , "stoff_id=" & Me!MainLinkStoff.Value
End Sub

全路径引用写法 #

如果必须使用全路径跨窗体引用，需要补全导航控件的层级，注意将导航控件名替换为你设计视图中实际的控件名称（选中导航栏后可在属性表查看名称）：

Private Sub command_new_sdb_copy_Click()
    ' 示例中NavigationControl为导航控件默认名，按实际情况修改
    DoCmd.OpenForm "neusdb", , , "stoff_id=" & Forms!HUB!NavigationControl!NavigationSubform.Form!MainLinkStoff.Value
End Sub

优化建议 #

• 引用控件取值时建议显式添加.Value属性，避免隐式调用默认属性带来的解析异常
• 增加空值校验，避免[MainLinkStoff]为空时拼接出无效筛选条件：

Private Sub command_new_sdb_copy_Click()
    If IsNull(Me!MainLinkStoff) Then
        MsgBox "请先选择需要关联的记录", vbExclamation
        Exit Sub
    End If
    DoCmd.OpenForm "neusdb", , , "stoff_id=" & Me!MainLinkStoff.Value
End Sub

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