为Access列表框创建搜索工具

时间:2014-11-13 16:05:58

标签: vba listbox ms-access-2007

我在表单中有一个包含许多字段的列表框,我试图创建一个搜索其中部分字符串的搜索功能。

Private Sub SearchBox_Change()
    Me.DataView.RowSource = "SELECT RowSrcString FROM MechDataFiltered WHERE " & _
    "MechDataFiltered.* LIKE " & Chr(34) & Me.SearchBox.Text & "*" & Chr(34) & " "
End Sub

RowSrcString是一串字段名称(来自MechDataFiltered),根据其他过滤器而变化。我认为我的问题在第3行; MechDataFiltered.*用于"所有"而不是"任何"。我应该更改什么才能在每个字段中进行搜索?

1 个答案:

答案 0 :(得分:0)

您可以查看Allen Brown网站上的一些search criteria样本。从编程的角度来看,它相当先进,但他是业内专家之一,我曾多次使用他网站上的提示。

Allen演示了如何使用来自多个输入字段的搜索条件来动态构建一个查询(过滤器)表达式,该表达式返回我认为您正在寻找的结果。

他有一些样本数据库,你可以下载试用各种技术。

希望有所帮助!