如何强制刷新Access窗体导航控件，自动更新关联子窗体数据？

问题根因 #

Access 导航控件的 NavigationWhereClause 属性默认仅在首次加载导航标签、手动切换标签时才会重新计算筛选条件。你切换客户后仅更新了 tbHHID 的值，没有触发导航控件的筛选条件重计算逻辑，所以子窗体数据不会自动刷新，必须手动点击标签才会更新。

修复步骤 #

步骤1：新增导航控件刷新专用VBA过程 #

在Clients窗体的VBA模块中新增如下通用过程，用来模拟手动切换标签的逻辑，自动触发所有导航子窗体的筛选刷新：

Private Sub RefreshNavigationSubforms()
    Dim navBtn As NavigationButton
    ' 保存当前选中的标签，刷新后自动切回，用户无感知
    Dim originalSelectedTab As Variant
    originalSelectedTab = Me.nav.SelectedTab
    
    ' 遍历所有可用导航按钮，触发筛选条件重计算
    For Each navBtn In Me.nav.NavigationButtons
        If navBtn.Enabled And Not IsNull(navBtn.NavigationTargetName) Then
            Me.nav.SelectedTab = navBtn
            Me.nav.NavigationSubform.Requery
        End If
    Next navBtn
    
    ' 切回用户原本选中的标签，最后再刷新一次确保数据正确
    Me.nav.SelectedTab = originalSelectedTab
    Me.nav.NavigationSubform.Requery
End Sub

步骤2：修改Form_Load事件代码 #

替换原有Form_Load逻辑，移除致歉弹窗，加入刷新调用，同时优化错误处理避免隐性问题：

Private Sub Form_Load()
On Error GoTo ErrHandler
    
    ' 加载当前选中客户的窗体记录源
    Me.RecordSource = "SELECT * FROM _HOUSEHOLDS WHERE HH_ID = " & GetSetting(AppName, Reg_JBGeneral, Reg_HH_ID, 0)
    ' 强制文本框值同步更新
    Me.tbHHID.Requery
    ' 调用导航刷新逻辑
    RefreshNavigationSubforms
    
ExitSub:
    Exit Sub
ErrHandler:
    ' 仅跳过非致命错误，避免全局屏蔽错误
    Resume Next
End Sub

步骤3：验证tbHHName_Click逻辑 #

原有点击事件逻辑无需修改，你已经在选择客户后调用了Form_Load，会自动触发导航刷新，选择客户后子窗体会自动更新数据。

额外优化建议 #

• 确认tbHHID控件的控件来源已绑定到窗体记录源的HH_ID字段，确保切换客户后tbHHID的值会自动同步为最新客户ID
• 如果部分导航子窗体不需要关联HH_ID筛选，可以单独在遍历逻辑中加判断跳过，减少不必要的刷新操作

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