尝试在我的searh表单中添加一个文本框，该文本框将根据键入的单词过滤一个字段[ItemDescription]。例如，如果我键入“ Plate Steel”，我将获得记录中同时包含Plate和Steel的所有记录（以任何顺序）。其余的将被过滤掉。
我9年前从不再活跃的人那里找到了此代码。我尝试了此操作，但没有代码生成或未输入到表单属性的“过滤器”字段中。
我希望看到这个：
当我突出显示“ Plate”一词并单击主菜单上的“选择”按钮，然后选择“包含” Plate并对“ Steel”进行相同操作时，我会在表单属性的“过滤器”字段中得到它。
（（（[Item]。[ItemDescription] like“ Plate ”）））AND（[Item]。[ItemDescription] like“ Steel ”）
有人可以看着它，让我知道为什么我无法使它工作。作者声称这是一个有效的代码。
私人Sub btnSearch_Click（）
'检查搜索参数是否存在
如果IsNull（Me.txtSearch）然后
MsgBox（“请输入您的搜索条件。”）
其他
将strSearch设为字符串
将strLoad设置为字符串
将strSpaceFix设置为字符串
“加载文本框内容
strLoad = Me.txtSearch.Value
'用附加搜索代码替换空格
strSpaceFix = Replace（strLoad，“”，“”＆“ ”“ AND [ItemDescription]像”“ ”＆“”，1，-1）
'设置搜索字符串
strSearch =“（[[ItemDescription]如”“ ”＆strSpaceFix＆“ ”“）”
'取消注释以查看搜索字符串：
'MsgBox（strWhere）
'过滤掉所有内容
Me.Filter = strWhere
Me.FilterOn = True
“空搜索框”
Me.txtSearch.Value =“”
如果结束
结束子
注意：当我取消注释“取消注释以查看搜索字符串：我得到一个寡妇，它会打开，但是里面什么也没有。
表格/表格项：
btnSearch按钮启动搜索
btnSearchClear-Button显示所有记录/清除搜索
txtSearch-Unbound文本框，没有默认值
[ItemDescription]-是要搜索的表单上的“文本”字段（短文本）
基于称为Item的表的连续表格
按钮在表单的标题部分。