多项查找文本框

时间:2016-09-22 08:11:23

标签: ms-access access-vba ms-access-2010

我创建了一个访问2010搜索框,根据表格中的列过滤结果,然后根据查询向我显示结果。

我想要实现的目标是不仅可以在搜索框中一次放置一个项目,而且可以放置多个项目。 这是我管理的一整套路由器,每天我得到一个需要进行状态检查的路由器列表,所以我现在正在做的是在搜索框上复制并粘贴每个路由器名称,它给我的状态,位置和电路参考,但我想做什么我一次复制和粘贴所有的路由器名称,并为每个路由器获得独立的结果。

这是我在文本框中为过滤器应用的代码:

Where Condition = [Circuit Reference] Like "*" & [Forms]![Query1]!  [Text12] & "*"

我可以添加更多文本框并将这些过滤器应用于它们,但我仍然需要独立地复制和粘贴每个路由器名称。

如果这个问题太容易回答但我无法在网上找到任何可以帮助我处理问题的内容,那么我不是一个访问大师,所以很抱歉。

1 个答案:

答案 0 :(得分:2)

听起来你想要在同一个字段上进行多个通配符搜索。您可以在SQL查询中使用OR来执行此操作。

Dim strSearchConditions As String
Dim strTerms() As String
Dim strSQL As String
Dim i as Integer

strSearchConditions = ""

strTerms = Split(Me.txtSearch,",") 'Assuming you separate your search terms with a comma

For i = 0 To UBound(strTerms)
    If Not strTerms(i) = "" Then
        strSearchConditions = " OR [Circuit Reference] Like '*" & strTerms(i) & "*'"
    End If
Next i

If Not strSearchConditions = "" Then
    strSQL = "Select * FROM tblMyTable WHERE 1=1 AND (" & strSearchConditions & ")"
Else
    MsgBox "No search terms!"
End If