在Microsoft Access窗体中实现多文本批量搜索的技术问题

1. 先调整窗体控件设置 #

将搜索文本框（SearchBox）的多行属性设为是，确保能正常粘贴多行内容。

2. 替换VBA代码实现批量搜索逻辑 #

删除原有的SearchBox_Change和Clear_Click代码，改用以下代码处理多行拆分与动态查询：

Private Sub SearchBox_Change()
    Dim searchTerms() As String
    Dim i As Integer
    Dim sqlWhere As String
    Dim baseSql As String
    
    ' 按换行符拆分粘贴的多行文本
    searchTerms = Split(Me.SearchBox.Text, vbCrLf)
    
    ' 基础SQL，替换成你实际的表名和需要查询的字段
    baseSql = "SELECT * FROM YourTableName WHERE "
    
    sqlWhere = ""
    For i = LBound(searchTerms) To UBound(searchTerms)
        ' 过滤空行，且限制最多20个搜索项
        If Trim(searchTerms(i)) <> "" And i < 20 Then
            Dim cleanTerm As String
            ' 转义单引号，避免SQL语法错误
            cleanTerm = Replace(Trim(searchTerms(i)), "'", "''")
            ' 为每个字段添加匹配当前搜索项的OR条件
            If sqlWhere <> "" Then sqlWhere = sqlWhere & " OR "
            sqlWhere = sqlWhere & "(Name LIKE '*" & cleanTerm & "*' OR ID LIKE '*" & cleanTerm & "*' OR [Reference no] LIKE '*" & cleanTerm & "*' OR Code LIKE '*" & cleanTerm & "*')"
        End If
    Next i
    
    ' 无有效搜索项时，显示全部数据
    If sqlWhere = "" Then
        baseSql = "SELECT * FROM YourTableName"
    Else
        baseSql = baseSql & sqlWhere
    End If
    
    ' 更新列表控件的数据源并刷新
    Me.ListResult.RowSource = baseSql
    Me.ListResult.Requery
End Sub

Private Sub Clear_Click()
    Me.SearchBox = ""
    ' 重置列表为全部数据
    Me.ListResult.RowSource = "SELECT * FROM YourTableName"
    Me.ListResult.Requery
    Me.SearchBox.SetFocus
End Sub

3. 关键注意事项 #

• 把代码中的YourTableName替换成你实际的数据表名称
• 带空格的字段名（如Reference no）必须用方括号[]包裹
• 转义单引号是为了避免搜索项含单引号时触发SQL语法错误
• 循环里的i < 20限制了最多处理20个搜索项，符合你的需求

替代方案：临时表辅助查询（适合复杂场景） #

如果动态SQL维护不便，可以用临时表中转搜索项：

1. 创建临时表TempSearchTerms，仅需一个文本字段Term
2. 搜索时清空临时表，将拆分后的有效搜索项插入表中
3. 用关联查询匹配数据：

SELECT t.*
FROM YourTableName t
INNER JOIN TempSearchTerms s 
ON t.Name LIKE "*" & s.Term & "*" 
OR t.ID LIKE "*" & s.Term & "*" 
OR t.[Reference no] LIKE "*" & s.Term & "*" 
OR t.Code LIKE "*" & s.Term & "*"

4. 在VBA中处理临时表的插入逻辑，再刷新列表控件即可。

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