ms-access - msaccess 表单中的列表框过滤器

Question

我在表单中添加了一个列表框，它允许我在数据库中的条目之间快速跳转。它使用 tblProjectCoreData 作为源，只显示 4 行：ProjectID、ProjectName、Product 和 Customer。我想过滤列表并尝试使用按钮：

Private Sub butFilter() DoCmd.GoToControl "Product" DoCmd.RunCommand acCmdFilterMenu End Sub

然而这并没有奏效。有人可以帮助我吗？

编辑：

我在以下功能上取得了一定的成功：

Private Sub FilterBy_Change()
    Dim sql As String
    sql = "SELECT listbox001 Product FROM tblProjectCoreData WHERE Product Like '" & Me.FilterBy.Text & "*' ORDER BY Product"
    Me.listbox001.RowSource = sql
End Sub

然后，这会根据我在“FilterBy”文本框中输入的内容过滤表中的条目。但是，它不允许我跳转到数据库中的条目而只是过滤列表。

标签： ms-accesslistboxlistboxitem