将某些记录从表加载到表单

Question

到目前为止，我有一个包含所有客户信息的表和一个包含所有绑定字段的表单。我有一个字段上面有会员截止日期。我希望我们的呼叫中心能够看到哪些客户的会员资格将在未来"x"天/月内到期，以便他们可以打电话查看他们是否想续签。

我想知道的是，是否有一种方法可以让表单只显示这些客户，而不是整个数据库，如果没有，也许可以从显示最接近过期的成员资格开始，并从那里开始工作。

我很抱歉，我没有代码来显示我有多远，但我不知道如何开始这个过程，我所有的代码只是检查，以确保保存字段和其他装饰的东西。

对此事的任何帮助都将不胜感激。

提前感谢!

Answer 1

一种方法是在表单上放置一个按钮(例如，在表单Header上)，可以设置表单的.Filter属性，然后切换过滤，就像这样:

Private Sub btnFilterForExpiryWithin90Days_Click()
Me.Filter = _
        "[MembershipExpiryDate] Between #" & _
            Format(Now(), "yyyy-mm-dd") & _
            "# And #" & _
            Format(DateAdd("d", 90, Now()), "yyyy-mm-dd") & _
            "#"
Me.FilterOn = True
End Sub