我有一个简单的数据库，用于跟踪工作中的事件 . 在主窗体上是一个子窗体，显示所有记录事件的简要概述 .
我在子窗体的 Headers 中有一个搜索框，用于搜索“详细信息”字段中的关键字，但我希望它同时搜索子窗体的“位置”字段 .
我的代码是：
Private Sub Text18_Change()
Dim strFilter As String
Me.Refresh
strFilter = "Details like '*" & Me.Text18 & "*'"
Forms![Main Form]![MainIncidentList].Form.Filter = strFilter
Forms![Main Form]![MainIncidentList].Form.FilterOn = True
Me.Text18.SelStart = Nz(Len(Me.Text18), 0)
End Sub
我在Access和VBA方面比较新，但我已经走到这一步了，有人可以给我一些关于如何在搜索中添加“位置”字段的建议吗？我试过添加
" And "Location like '*" & "Me.Text18 & "*'"
在“strFilter”行的末尾，但它没有工作，Access给出了语法错误 .
“详细信息”和“位置”都在表中定义为“长文本” .
提前致谢 .
1 回答
试试这个：