Ms access 在多个字段上访问VBA关键字搜索功能

Ms access 在多个字段上访问VBA关键字搜索功能,ms-access,search,filter,vba,Ms Access,Search,Filter,Vba,我目前有一个简单的Access数据库,其中有表单供用户根据查询的表填写 我的目标是使用一个搜索框,可以根据关键字多次过滤结果。我现有的代码非常适合在1个字段上进行单个搜索。我希望能够通过搜索另一个字段来深入第一次搜索。从组合框和搜索关键字中选择我的字段后,将显示我的结果。一旦我从同一个框中选择另一个字段并进行搜索,结果将不包括我的第一个过滤器 在表单上,我已经有了一个组合框,其中列出了所有可供选择的字段。然后在它旁边是一个文本框,供用户从所选字段列表中搜索。我有正确的VBA代码来搜索单个字段,但

我目前有一个简单的Access数据库,其中有表单供用户根据查询的表填写

我的目标是使用一个搜索框,可以根据关键字多次过滤结果。我现有的代码非常适合在1个字段上进行单个搜索。我希望能够通过搜索另一个字段来深入第一次搜索。从组合框和搜索关键字中选择我的字段后,将显示我的结果。一旦我从同一个框中选择另一个字段并进行搜索,结果将不包括我的第一个过滤器

在表单上,我已经有了一个组合框,其中列出了所有可供选择的字段。然后在它旁边是一个文本框,供用户从所选字段列表中搜索。我有正确的VBA代码来搜索单个字段,但我想从那里往下钻。基本上,我希望能够搜索选定字段上的关键字,然后再次使用相同的搜索框进一步过滤这些结果

示例:在表单上,从下拉列表中选择借款人,并在搜索框中键入Smith,然后单击搜索按钮。然后,我想从同一下拉列表中选择另一个字段,如“问题类别”,并键入“延迟付款”,然后单击“搜索”按钮。因此,如果存在逾期付款问题,请向我提供包含借款人史密斯的所有记录

我花了好几天的时间在这上面,终于崩溃了来到这里。我需要知道我需要添加哪些代码来实现我的目标,即在不重置过滤器的情况下进行多次搜索。我希望你能帮忙。这是我的代码Text35是文本框,searchlist是字段名的组合框列表:

Private Sub Search_Click()
Dim strSearchValue As String
strSearchValue = Me.Text35.Value

Select Case Me.searchlist.Value

        Case "Date"
            Me.Filter = "[Date] = #" & strSearchValue & "# "

        Case "Account number"
            Me.Filter = "[Account number] = #' & strSearchValue & '# "

        Case "Borrower"
            Me.Filter = "[Borrower] LIKE '*" & (Replace(strSearchValue, "'", "''")) & "*'"

        Case "Issue Category"
            Me.Filter = "[Issue Category] LIKE '*" & (Replace(strSearchValue, "'", "''")) & "*'"


End Select

Me.FilterOn = True

End Sub

我想您应该使用OR关键字,而不是&

问题是什么-错误消息,错误结果,什么也没有发生?如果是数字,请检查,更正为:Me.Filter=[账号]=&strearchValue&。问题是,如果不重置过滤器,我无法搜索多次。单击包含此代码的按钮时,我可以搜索一个字段。但是,当从列表框中选择一个新字段并键入一个新关键字时,它会再次从整个表中显示新结果。我希望我的第二次搜索从第一次搜索结果向下钻取。我怎样才能做到这一点?我需要添加哪些额外的代码才能使其正常工作?