主窗体引用子窗体报错：无法修改子窗体RecordSource并刷新

我太懂你这种抓耳挠腮的感觉了——明明逻辑上就是切换个查询，怎么就卡壳在访问子窗体这一步！别慌，这几乎是所有Access VBA新手都会踩的坑，核心问题大多出在子窗体的引用方式上，咱们一步步捋：

首先，搞懂最容易搞错的点：子窗体控件≠子窗体对象 #

你在主窗体上看到的“子窗体”，其实是一个承载子窗体的控件，它有自己的名字（和子窗体本身的名字可能不一样！）。要访问子窗体的属性，必须先通过这个控件，再指向子窗体的Form对象。

举个例子：如果主窗体上的子窗体控件名叫SbfmServiceContainer（注意是控件的名称，不是“源对象”里的子窗体文件名），那正确的引用路径是：
Me!SbfmServiceContainer.Form

修正你的代码片段 #

把你没写完的代码补全并修正引用，大概应该是这样：

Private Sub PeriodSelect_Change()
    Dim targetSQL As String
    
    '根据下拉选项选择对应的查询
    Select Case PeriodSelect.Value
        Case "Active"
            targetSQL = "SELECT * FROM qry_ActiveServiceRecords" '替换成你的实际查询名/语句
        Case "Archived"
            targetSQL = "SELECT * FROM qry_ArchivedServiceRecords" '其他选项对应的查询
        '可以继续加更多选项
        Case Else
            targetSQL = "SELECT * FROM qry_AllServiceRecords" '默认情况
    End Select
    
    '关键：正确引用子窗体并设置数据源
    '这里的[SbfmServiceWindow]要替换成你主窗体上的子窗体控件名称！
    Me!SbfmServiceWindow.Form.RecordSource = targetSQL
    
    '强制刷新子窗体，确保数据更新显示
    Me!SbfmServiceWindow.Form.Requery
End Sub

排查常见坑点 #

• 控件名称搞混：打开主窗体设计视图，选中子窗体控件，看属性表的「名称」栏（不是「源对象」里的子窗体名称），一定要用这个名字。
• 忘记Requery：光设置RecordSource有时候不会自动刷新，手动调用Requery能确保子窗体加载新数据。
• 下拉值匹配问题：可以在代码开头加一句Debug.Print PeriodSelect.Value，运行后看立即窗口里的实际值，是不是和你判断的"Active"完全一致（比如有没有空格、大小写差异）。

调试小技巧 #

如果还是报错，先测试能不能正常访问子窗体：在代码里加一行Debug.Print Me!你的子窗体控件名.Form.Name，运行后如果能输出子窗体的名字，说明引用是对的；如果报错，那肯定是控件名称写错了。

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