MS-ACCESS：筛选表，然后显示在未绑定的列表框中

Question

在我的形式Main我想有一个按钮Search显示从数列的Table到一个未绑定列表框（位于形式Main应用过滤器后）。 最初，我使用的是ComboBox，但我想使用一个列表框，该列表框仅显示那些在培训中过期的人员的姓名。 以下是我使用ComboBox时的效果，效果很好。

Private Sub SearchCheck_Click()
Call Search
End Sub

Sub Search()
Dim Task As String

Me.Refresh

Task = "SELECT * FROM Table WHERE DateDiff('m', [Training], Date()) > 24 And [Active Employee] = True"

DoCmd.ApplyFilter Task

End Sub

当然，我想我缺少可以告诉结果放置位置的内容吗？ 有任何想法吗？ 我对MS-ACCESS相当陌生。

Answer 1

除非您希望在运行时将列表框RowSource从非过滤列表更改为过滤列表，否则只需在设计中设置RowSource属性即可，而不要使用VBA。