Access组合框选中“未知”项时仅显示null值的筛选实现方法

你原有筛选条件的核心问题是将Is Null设置为了无条件匹配项，只要把空值匹配的触发逻辑和组合框的选中值做绑定，就能实现「仅选"未知"时展示空客户记录，选普通客户时只返回对应客户数据」的需求，下面是两种可直接落地的实现方式：

方式1：直接写查询条件（零代码，适合简单场景） #

打开你绑定表单的查询，把原有筛选条件替换为以下语句，注意将语句里的[客户字段名]替换为你表中实际存储客户名称的字段名称：

([客户字段名] Like "*" & [Forms]![frmAll].[cmb_Customer] & "*" AND [Forms]![frmAll].[cmb_Customer] <> "未知")
OR ([Forms]![frmAll].[cmb_Customer] = "未知" AND [客户字段名] Is Null)

逻辑说明：

• 选中任意普通客户名称时，前半段判断生效，仅做客户名称的模糊匹配，后半段空值匹配逻辑因为组合框值不等于"未知"不会触发，不会带出空值记录
• 选中"未知"选项时，后半段判断生效，仅返回客户字段为Null的记录，不会和普通客户的匹配逻辑混淆
• 该写法同时规避了客户名称中恰好包含"未知"字符导致的误匹配问题

方式2：VBA动态构造筛选（适合多条件叠加的复杂场景） #

如果表单后续还要加其他筛选维度，用VBA在组合框更新后动态生成筛选规则容错性更高。打开cmb_Customer组合框的属性面板，找到「更新后」事件，选择「事件过程」进入VBA编辑界面，输入以下代码：

Private Sub cmb_Customer_AfterUpdate()
    Dim strFilter As String
    ' 处理组合框空选的边界情况
    If Nz(Me.cmb_Customer, "") = "" Then
        ' 未选任何值时展示全部记录，可根据需求改成其他逻辑
        Me.FilterOn = False
        Exit Sub
    End If
    
    If Me.cmb_Customer = "未知" Then
        ' 选中未知时，仅筛选客户字段为空的记录
        strFilter = "[客户字段名] Is Null"
    Else
        ' 选中普通客户时做模糊匹配，转义单引号避免特殊名称报错
        strFilter = "[客户字段名] Like '*" & Replace(Me.cmb_Customer, "'", "''") & "*'"
    End If
    
    ' 应用筛选
    Me.Filter = strFilter
    Me.FilterOn = True
End Sub

补充：组合框"未知"选项的正确添加方式 #

不要在原始客户表中插入"未知"的假数据，直接将组合框的行源改为联合查询，就能在不修改业务数据的前提下把"未知"加到下拉选项顶部，参考写法：

SELECT "未知" AS 客户名称 FROM 客户表
UNION
SELECT 客户名称 FROM 客户表
ORDER BY 客户名称

内容的提问来源于stack exchange，提问作者Cevher Yavuz Selim Demirbaş