MS Access VBA - 使用日期过滤表单

Question

我正在努力根据日期标准过滤表单。我想我会以某种方式更改日期格式，但找不到会返回结果的组合。子表单上有有效日期;条件应返回结果 - 但返回ZERO记录。我尝试了DATE函数以及明确的＃10/17/2017 #type值。

Dim strFilter As String

Select Case Me!frmFilter.Value

    Case 1  'All
        Forms![InventoryList].[InventoryList subform].Form.FilterOn = False
    Case 2  'Active
        strFilter = "Forms![InventoryList].[InventoryList subform].Form.[StartDate] > #" & Date & "#"
        Forms![InventoryList].[InventoryList subform].Form.Filter = strFilter
        Forms![InventoryList].[InventoryList subform].Form.FilterOn = True
    Case 3  'Pending
        'do something else

End Select

End Sub

有什么建议可以帮助我推进这项任务吗？

谢谢！

Answer 1

如果StartDate是日期并且[InventoryList subform]是子表单控件的名称，则必须这样做：

{{ 2}}