我的表单中有一个文本搜索,它使用以下代码来过滤我的员工数据表:
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”),我可以这样做。
答案 0 :(得分:3)
您要在此行中删除一个点:
"Or [ResearchArea]. Like '*" & [Forms]![StaffTotalQuery]![StaffTotalSearchText] & "*'" & _
除此之外,您无法像您一样以有意义的方式搜索日期。