多子窗体表单实现子窗体记录同步切换

现有基础设置 #

主窗体F_ptselect包含子窗体F_s1、F_s2、F_s3，主窗体上的组合框find_ID用于选择整数ID（如1001、1002）。所有子窗体已通过Link Master Fields和Link Child Fields与ID关联，且已实现选择ID后自动加载对应ID的全部记录，当前使用的VBA代码如下：

Private Sub find_ID_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[ID] = " & Me![find_ID] & ""
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

当前数据结构（主键为KEY，每个ID对应多条按Day区分的记录）：

需求目标 #

选择ID后，所有子窗体默认显示该ID下Day=1的记录，且能通过控件快速切换同一ID下的不同Day记录，无需逐个操作子窗体的导航箭头。

方案1：通过Day组合框实现任意切换 #

1. 添加Day组合框
   在主窗体F_ptselect上新增组合框cbo_Day：

• 行来源设置为：SELECT DISTINCT Day FROM 你的数据表 WHERE ID = [find_ID] ORDER BY Day;（替换你的数据表为实际表名）
• 勾选Limit To List为Yes，仅允许选择当前ID下存在的Day值

2. 编写组合框更新事件代码
   同步所有指定子窗体的记录：

Private Sub cbo_Day_AfterUpdate()
    Dim subForm As SubForm
    Dim rs As Object
    
    ' 遍历目标子窗体实现同步
    For Each subForm In Me.Controls
        If TypeName(subForm) = "SubForm" Then
            If subForm.Name = "F_s1" Or subForm.Name = "F_s2" Or subForm.Name = "F_s3" Then
                Set rs = subForm.Form.Recordset.Clone
                rs.FindFirst "[ID] = " & Me![find_ID] & " AND [Day] = " & Me![cbo_Day]
                If Not rs.EOF Then
                    subForm.Form.Bookmark = rs.Bookmark
                End If
                Set rs = Nothing
            End If
        End If
    Next subForm
End Sub

3. 修改ID组合框的更新事件
   选择新ID后自动加载该ID下的第一个Day记录：

Private Sub find_ID_AfterUpdate()
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[ID] = " & Me![find_ID] & ""
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
    
    ' 刷新Day组合框并自动选中第一个值
    Me![cbo_Day].Requery
    If Not IsNull(Me![cbo_Day].ItemData(0)) Then
        Me![cbo_Day] = Me![cbo_Day].ItemData(0)
        Call cbo_Day_AfterUpdate
    End If
End Sub

方案2：通过导航按钮实现顺序切换 #

如果只需按Day顺序切换，可在主窗体添加“上一天”btn_PrevDay和“下一天”btn_NextDay按钮，配合方案1的cbo_Day使用：

上一天按钮代码

Private Sub btn_PrevDay_Click()
    Dim currentDay As Integer
    Dim targetDay As Integer
    
    currentDay = Me![cbo_Day]
    targetDay = currentDay - 1
    
    ' 验证目标Day是否存在
    If DCount("*", "你的数据表", "ID = " & Me![find_ID] & " AND Day = " & targetDay) > 0 Then
        Me![cbo_Day] = targetDay
        Call cbo_Day_AfterUpdate
    Else
        MsgBox "已到最早记录", vbInformation
    End If
End Sub

下一天按钮代码

Private Sub btn_NextDay_Click()
    Dim currentDay As Integer
    Dim targetDay As Integer
    
    currentDay = Me![cbo_Day]
    targetDay = currentDay + 1
    
    ' 验证目标Day是否存在
    If DCount("*", "你的数据表", "ID = " & Me![find_ID] & " AND Day = " & targetDay) > 0 Then
        Me![cbo_Day] = targetDay
        Call cbo_Day_AfterUpdate
    Else
        MsgBox "已到最新记录", vbInformation
    End If
End Sub

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