求助：基于订单表单选择更新MS Access Lines查询表单

推荐方案：使用Access内置主/子表单关联（无需VBA） #

这是实现主表单-子表单联动最简便的原生方法，无需编写代码：

1. 打开组合表单的设计视图
2. 选中右侧的子表单控件（注意是包含子表单的容器控件，不是子表单本身）
3. 在属性表中找到LinkMasterFields，设置为Orders表单的主键字段TaskId
4. 找到LinkChildFields，设置为子表单数据源中对应的外键字段TaskId
5. 保存表单后切换到窗体视图，选中不同订单行，子表单会自动加载对应明细

VBA解决方案（适合需要动态逻辑的场景） #

如果必须通过代码实现，不要直接修改查询定义，而是直接操作子表单的数据源或筛选器：
假设主表单名为frmOrders，子表单控件名为subOrderLines（控件名可在设计视图属性表中查看），在主表单的Current事件中添加以下代码：

Private Sub Form_Current()
    ' 获取当前选中订单的TaskId
    Dim currentTaskId As Variant
    currentTaskId = Me.TaskId
    
    ' 方式1：设置子表单筛选器（推荐，性能更优）
    If Not IsNull(currentTaskId) Then
        ' 根据TaskId类型调整引号：数字类型去掉单引号，文本类型保留
        Me.subOrderLines.Form.Filter = "TaskId = " & currentTaskId
        Me.subOrderLines.Form.FilterOn = True
    Else
        Me.subOrderLines.Form.FilterOn = False
    End If
    
    ' 方式2：动态设置子表单数据源（适合需要复杂SQL的场景）
    ' Dim strSQL As String
    ' If Not IsNull(currentTaskId) Then
    '     strSQL = "SELECT * FROM OrderStatus INNER JOIN OrderLines ON OrderStatus.StatusId = OrderLines.StatusId WHERE OrderLines.TaskId = " & currentTaskId
    '     Me.subOrderLines.Form.RecordSource = strSQL
    '     Me.subOrderLines.Form.Requery
    ' End If
End Sub

原代码问题分析 #

你当前的VBA代码无法生效的原因：

1. 直接修改查询定义属于全局修改，会影响所有使用该查询的对象，且子表单不会自动同步更新后的查询
2. 代码仅修改并打开查询，未触发子表单的刷新操作
3. 冗余操作（重复获取QueryDef对象、关闭查询）无意义，反而可能引发错误

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