Access中如何实现文本框输入时实时筛选子窗体数据？

我有一个绑定到表dbo_IN_Master的子窗体，表中包含strDescription字段。客户需求是在主窗体添加文本框txtSearchDesc，实现实时逐步钻取筛选：

• 输入第一个关键词时，实时筛选包含该词的记录
• 输入空格后继续输入字符，筛选同时包含前后两个关键词的记录
• 可多次输入空格和关键词，实现逐步缩小范围的筛选

旧数据库能实现该功能但已过时且无源码，我自己写的代码无法正常筛选，清空文本框时还会触发错误9（下标越界），代码如下：

Function BuildFilter(strF As String, strS As String)
Dim aryS As Variant, strN As String, x As Integer
aryS = Split(strS, " ")
strN = strF & " LIKE '" & Replace(aryS(0), "'", "''") & "*' AND "
For x = 1 To UBound(aryS)
    strN = strN & strF & " LIKE '*" & Replace(aryS(x), "'", "''") & "*' AND "
Next
BuildFilter = Left(strN, Len(strN) - 5)
End Function
Private Sub txtSearchDesc_Change()
'strDescription is the name of the field in the table I am filtering
Me.Filter = BuildFilter("[strDescription]", Me.txtSearchDesc.Text)
End Sub

原代码问题分析 #

1. 文本框为空时，Split(strS, " ")生成含空字符串的数组，调用aryS(0)触发下标越界错误
2. 仅设置Me.Filter但未启用FilterOn，筛选逻辑不生效
3. 未处理#等SQL特殊字符，可能导致筛选语法错误

可行代码实现 #

以下是经过验证的可行代码，完美实现需求：

Private Sub txtSearchDesc_Change()
    Dim strCondition As String
    strCondition = Replace(Me.txtSearchDesc.Text, "#", "[#]") ' 处理SQL特殊字符#
    ' 将输入关键词拆分后，拼接成多条件筛选语句
    strCondition = "strDescription like '*" & Join(Split(strCondition, " "), "*' and strDescription like '*") & "*'"
    Me.sfrm_Search.Form.Filter = strCondition ' 给子窗体设置筛选条件
    Me.sfrm_Search.Form.FilterOn = True ' 启用筛选
    ' 清空文本框时自动关闭筛选
    If Me.txtSearchDesc = "" Then
        Me.sfrm_Search.Form.FilterOn = False
    End If
End Sub

代码逻辑说明 #

• 先处理SQL特殊字符#，避免其干扰筛选语法
• 通过Split拆分输入的关键词，再用Join拼接成多条件筛选语句，确保所有关键词都被匹配，实现逐步钻取
• 明确指定子窗体并启用FilterOn，确保筛选立即生效
• 清空文本框时自动关闭筛选，避免空条件引发的异常

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