如何在Access导航窗体中添加组合框作为两个子窗体的筛选器

安全阿岳

2026-5-25

嘿，作为Access新手能折腾到导航窗体这一步已经很厉害了！我来一步步帮你实现用组合框同时筛选两个子窗体的功能：

步骤1：在导航窗体上添加数据源来自表的组合框

打开你的导航窗体的设计视图，从左侧控件工具箱里拖一个「组合框」到窗体的合适位置（比如顶部工具栏区域）。
弹出组合框向导后，选择「使用组合框获取其他表或查询中的值」，点击下一步。
选择你要获取选项的那张表，然后选中需要作为组合框选项的字段（比如假设表叫产品分类表，字段是分类名称），点击下一步。
调整组合框的列宽（可以把不需要显示的列设为0），然后给组合框起个好记的名称，比如cbo_分类筛选（这个名称后面写代码要用，别乱改），最后完成向导。
选中组合框，打开右侧的属性面板，把「限于列表」设为是，这样用户只能选列表里的选项，避免无效输入。

步骤2：编写VBA代码实现同步筛选

因为两个子窗体放在导航窗体的标签页里，我们需要通过导航窗体里的子窗体容器来引用它们（注意：是容器的名称，不是子窗体本身的名称，你可以在设计视图里选中子窗体，看属性面板的「名称」栏）。

右键点击刚才创建的组合框，选择「事件生成器」，在弹出的窗口里选「代码生成器」，打开VBA编辑器。
在组合框的AfterUpdate事件里粘贴以下代码（记得根据你的实际情况替换字段名和容器名称）：

Private Sub cbo_分类筛选_AfterUpdate()
    Dim filterCriteria As String
    
    ' 处理组合框为空的情况：取消所有筛选
    If IsNull(Me.cbo_分类筛选) Or Me.cbo_分类筛选 = "" Then
        filterCriteria = ""
    Else
        ' 这里替换成你两个子窗体数据源里的关联字段名
        ' 如果是文本字段，要加单引号；数字字段去掉单引号；日期字段用#包裹
        filterCriteria = "[产品分类] = '" & Me.cbo_分类筛选 & "'"
    End If
    
    ' 给第一个子窗体应用筛选
    Me.NavigationSubform1.Form.Filter = filterCriteria
    Me.NavigationSubform1.Form.FilterOn = True
    
    ' 给第二个子窗体应用筛选
    Me.NavigationSubform2.Form.Filter = filterCriteria
    Me.NavigationSubform2.Form.FilterOn = True
End Sub

（可选）如果你希望打开导航窗体时就自动应用默认筛选，可以在窗体的Form_Load事件里加这段代码：

Private Sub Form_Load()
    ' 如果组合框有选项，默认选中第一个并触发筛选
    If Me.cbo_分类筛选.ListCount > 0 Then
        Me.cbo_分类筛选 = Me.cbo_分类筛选.ItemData(0)
        Call cbo_分类筛选_AfterUpdate
    End If
End Sub

几个关键注意点

确保两个子窗体的**数据源（表/查询）**都包含和组合框选项对应的关联字段，比如组合框选的是「分类名称」，子窗体的数据源里必须有「产品分类」这个字段，不然筛选不起作用。
字段类型一定要匹配：文本字段加单引号，数字字段直接写值，日期字段用#包裹（比如filterCriteria = "[入库日期] = #" & Me.cbo_分类筛选 & "#"）。
别搞混子窗体容器和子窗体本身的名称：导航窗体里的子窗体是放在一个容器控件里的，你要引用的是这个容器的名称，不是子窗体对象的名称，在设计视图里选中子窗体控件，看属性面板的「名称」就能找到。

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