1

我有一个带有值dateFrom和dateTo. 单击按钮时，我想打开一个包含两个子表单的新表单。其中一个子表单显示过滤的记录。它显示note_date介于dateFrom和之间的记录dateTo。

note_date是查询中的列之一，它是过滤子表单中的记录源

因此，其中一个子表单的过滤器不起作用。

这是我的代码，我认为它会如何工作

Overview_of_vacation_notes是包含两个子表单的表单的名称

dtmFrom = Text56.Value 'start date
dtmTo = Text58.Value   'end date
Dim strCriteria As String

strCriteria = "[note_date] >= #" & Format(dtmFrom, "yyyy-mm-dd") & "# AND [note_date] <= #" & Format(dtmTo, "yyyy-mm-dd") & "#"
    
DoCmd.OpenForm "Overview_of_vacation_notes", whereCondition:=strCriteria

有没有办法我可以做这样的事情？

DoCmd.OpenForm "Overview_of_vacation_notes", subformName.whereCondition:=strCriteria

因为我的代码不起作用，因为 whereConditionstrCriteria在主窗体而不是子窗体上使用

4

1 回答 1

0

DoCmd.OpenForm "Overview_of_vacation_notes"正在打开父窗体。因此，您不能将 where 条件应用于此行。您需要为子表单设置过滤条件并过滤该子表单以显示过滤后的数据。试试下面的代码。

dtmFrom = Text56.Value 'start date
dtmTo = Text58.Value   'end date
Dim strCriteria As String

strCriteria = "[note_date] >= #" & Format(dtmFrom, "yyyy-mm-dd") & "# AND [note_date] <= #" & Format(dtmTo, "yyyy-mm-dd") & "#"
    
DoCmd.OpenForm "Overview_of_vacation_notes"
Forms![Overview_of_vacation_notes]![YourSubform].Form.FilterOn = False 'Clear previous filter.
Forms![Overview_of_vacation_notes]![YourSubform].Form.Filter = strCriteria 'Set filter criteria
Forms![Overview_of_vacation_notes]![YourSubform].Form.FilterOn = True 'Apply filter.
于 2021-09-15T08:28:07.933 回答