MS Access：空子窗体查询导致父控件引用为空问题

问题场景 #

主窗体C采用表格式布局搭载两个连续子窗体A、B：

• 子窗体A[stoffe_abfrage subform]存储化学品名称信息
• 子窗体B[tmb_abfrage subform]存储对应化学品的关联信息
  主窗体C上设有控件D[MainLinkStoff]，取值为子窗体A当前记录的主键[stoff_id]；子窗体B通过自身[stoff_id]字段与控件D绑定，展示当前选中化学品对应的所有关联记录。

现有查询与配置 #

• 子窗体A查询语句：

SELECT chemikalien_tabelle.stoff_id, chemikalien_tabelle.bezeichnung, 
chemikalien_tabelle.einsatzgebiet, kategorie_tabelle.kategorie
FROM kategorie_tabelle INNER JOIN chemikalien_tabelle ON 
kategorie_tabelle.[kategorie_id] = chemikalien_tabelle.[kategorie_id];

• 子窗体B查询语句：

SELECT tmb_tabelle.version, tmb_tabelle.datum_aktualisiert, 
tmb_tabelle.datum_upload, sprachen_tabelle.bezeichnung, 
tmb_link.stoff_id, tmb_link.tmb_id, tmb_tabelle.datei.FileType, 
tmb_tabelle.datei
FROM (sprachen_tabelle INNER JOIN tmb_tabelle ON sprachen_tabelle. 
[sprache_id] = tmb_tabelle.[sprache_id]) INNER JOIN tmb_link ON 
tmb_tabelle.[tmb_id] = tmb_link.[tmb_id];

• 主窗体控件D取值表达式：

=[stoffe_abfrage subform].[Formular]![stoff_id]

子窗体B通过自身[stoff_id]字段与控件D建立主副窗体链接

异常表现 #

需求为在子窗体B的按钮事件中调用子窗体A的主键值，但存在固定复现的异常：

• 仅当子窗体B存在匹配记录时，从B侧引用A的stoff_id字段可正常获取值
• 若子窗体B无对应记录，即使A侧控件值非空，跨窗体引用得到的stoff_id也为空，触发运行时错误

已尝试排查 #

• 分别尝试直接读取子窗体A的[stoff_id]值、读取主窗体控件D的值，均复现相同问题：子窗体B无记录时返回空值触发运行时错误。
• 在子窗体B的页眉区域（按钮所在区域）增设测试文本框[dummyB]，将其值设为与控件D相等，分别测试两种引用方式：
  1. 通过Parent属性引用主窗体C的控件D

  =[Me].[Parent].[MainLinkStoff]
  

  2. 通过Forms集合直接逐层引用控件D

  =Formulare![HUB]![NavigationSubform].Formular![MainLinkStoff] 
  

测试结果：当子窗体B存在对应记录时，测试文本框与控件D显示的主键值完全一致；当子窗体B无对应记录时，主窗体上的控件D可正常显示值，但子窗体B内的测试文本框同样为空。 #

异常原因 #

这是Access主副窗体链接机制的固有特性，不属于代码写法错误：

1. 当子窗体通过「链接主字段/链接子字段」和父窗体或父窗体控件绑定过滤时，如果子窗体筛选结果为空记录，Access会将子窗体的运行上下文切换到空记录占位状态。
2. 该状态下，子窗体范围内所有控件的表达式求值都会被强制拦截，无论控件放在页眉、页脚还是细节区，无论引用路径是通过Parent属性还是Forms全局集合，只要表达式是在子窗体的上下文里求值，都会返回Null，和引用路径的正确性无关。
3. 主窗体上的控件D可以正常显示值，是因为控件D运行在主窗体的独立上下文里，不受子窗体空状态的影响。

解决方案 #

不要依赖Access自带的主副窗体链接字段做自动过滤，改用VBA事件手动触发子窗体B的筛选，绕开空记录状态下的表达式拦截问题，操作步骤如下：

1. 清空子窗体B控件的「链接主字段」「链接子字段」属性，取消自动绑定关系。
2. 在子窗体A的Current事件（切换当前选中记录时触发）中添加VBA代码，手动同步子窗体B的筛选规则和显示值：

Private Sub Form_Current()
    ' 跳过新记录空值场景
    If Me.NewRecord And IsNull(Me.stoff_id) Then Exit Sub
    
    ' 引用同主窗体内的子窗体B对象
    Dim frmB As Form
    Set frmB = Me.Parent.Controls("tmb_abfrage subform").Form
    
    ' 手动应用子窗体B筛选
    frmB.Filter = "stoff_id = " & Nz(Me.stoff_id, 0)
    frmB.FilterOn = True
    
    ' 直接给子窗体B页眉的测试文本框赋值，无需依赖控件表达式
    frmB.Controls("dummyB") = Me.stoff_id
End Sub

3. 子窗体B的按钮点击事件中，不要通过子窗体B内的控件中转获取主键值，直接从子窗体A的当前记录取值，完全绕开子窗体B的运行上下文：

Private Sub 操作按钮_Click()
    Dim currentStoffId As Long
    ' 直接通过Forms集合引用子窗体A的当前主键值
    currentStoffId = Forms!HUB!NavigationSubform.Form.Controls("stoffe_abfrage subform").Form.stoff_id
    
    ' 后续业务逻辑直接调用currentStoffId即可，不会出现空值报错
End Sub

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