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。