Microsoft Access 2010:ComboBox文本提取/搜索

时间:2016-06-22 15:33:07

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

我的表单中有一个文本搜索,它使用以下代码来过滤我的员工数据表:

 Private Sub Command71_Click()

 DoCmd.ApplyFilter "", _

 "[Forename] Like '*" & [Forms]![StaffTotalQuery]![StaffTotalSearchText] & "*'" & _

 "Or [Surname] Like '*" & [Forms]![StaffTotalQuery]![StaffTotalSearchText] & "*'" & _

 "Or [ResearchArea]. Like '*" & [Forms]![StaffTotalQuery]![StaffTotalSearchText] & "*'" & _

 "Or [Skills] Like '*" & [Forms]![StaffTotalQuery]![StaffTotalSearchText] & "*'" & _

 "Or [EndDate] Like '*" & [Forms]![StaffTotalQuery]![StaffTotalSearchText] & "*'"

 End Sub

搜索适用于[ResearchArea]以外的所有字段。 ResearchArea和Skills都是我分割形式的组合框。

ResearchArea和Skills都是我员工表中的字段。

可以在拆分表单中添加新技能,但只能在表格中添加新的ResearchArea。

Skills ComboBox上的下拉框包含重复的条目(例如,如果我列出的五名员工的技能是:“”,“”,“”,“会计”,“会计”,那么这些选项将出现在drop-box)和空白。我希望它只显示唯一的条目,但也让我能够以这种分割形式创建新的条目。

我也希望能够搜索所有员工的ResearchArea,如果他们是文本(例如“Forename”),我可以这样做。

1 个答案:

答案 0 :(得分:3)

您要在此行中删除一个点:

"Or [ResearchArea]. Like '*" & [Forms]![StaffTotalQuery]![StaffTotalSearchText] & "*'" & _

除此之外,您无法像您一样以有意义的方式搜索日期。