将过滤器应用于Access子窗体

Question

也许这个很容易，因为我之前可以通过一个简单的宏来做到这一点，但是通过VBA，我无法做到这一点。

我正在尝试通过VBA过滤子窗体来尝试应用DoCmd.Applyfilter命令。

我有一个名为TxtToday的数据字段，其中Date（）作为默认值。我想在表单加载一个过滤器，它将过滤子表单上与TxtToday字段具有相同日期的记录。

截至目前，我有这段代码：

Private Sub Form_Load()

DoCmd.ApplyFilter DATE_FOLLOWUP = TxtToday

End Sub

感谢您的帮助。

Answer 1

您根本不需要任何代码。

使用保存子表单的子窗体控件的 LinkMasterFields 和 LinkChildFields 。将主字段设置为TxtToday，将子字段设置为DATE_FOLLOWUP。