如何用MS Access主窗体按钮切换主记录并更新子窗体列表框？

正确的VBA实现代码 #

把按钮的On_Click事件代码替换成以下内容，注意替换代码中标记的实际控件名称：

Private Sub GoNext_Click()
    ' 切换主窗体到下一条记录
    If Not Me.Recordset.EOF Then
        Me.Recordset.MoveNext
        ' 防止移动后超出记录集末尾
        If Me.Recordset.EOF Then
            Me.Recordset.MoveLast
        End If
    End If
    
    ' 更新子窗体中的列表框（需替换成你的选项卡控件实际名称）
    ' 示例中选项卡控件名称假设为TabCtl0，根据你的实际情况修改
    Me![TabCtl0].Pages("individualsSubformTab").Form!SubformList.Requery
End Sub

关键问题说明 #

你之前的代码失败核心原因是子窗体位于选项卡控件的页面内，引用路径缺失了选项卡控件的层级：

• 直接引用Me![individualsSubformTab]无效，因为子窗体控件是嵌套在选项卡控件的某个页面里的，必须先定位到选项卡控件，再找到对应的页面，才能访问子窗体的Form对象。

必做的排查步骤 #

1. 确认选项卡控件名称：打开主窗体设计视图，选中整个选项卡控件（不是单个页面），查看属性表的「名称」栏，把代码中的TabCtl0替换成这个实际名称。
2. 验证子窗体控件名称：确认选项卡页面内的子窗体控件名称确实是individualsSubformTab（在属性表中查看）。
3. 检查列表框行源：确保列表框的行源已关联主窗体主键，比如行源类似：

   SELECT Record FROM 子表名称 WHERE MainRecordKey = Forms![主窗体名称]![主键字段名]
   

   这样主记录切换后，重新查询才能自动加载对应匹配的子记录。

额外优化提示 #

如果你的子窗体已经和主窗体设置了主/子链接字段（通过子窗体控件属性的「链接主字段」「链接子字段」），那么子窗体本身会自动跟随主记录刷新，此时可以简化代码，直接刷新整个子窗体而非单独列表框：

Me![TabCtl0].Pages("individualsSubformTab").Form.Requery

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