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

debugcn 发表于 Dev

马克·佩尔蒂埃

我正在努力处理基于日期条件过滤表单的任务。我想我正在以某种方式修改日期格式并且找不到可以返回结果的组合。子表格上有有效日期；标准应返回结果 - 但返回零记录。我尝试了 DATE 函数以及显式 #10/17/2017# 类型值。

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

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

谢谢！

古斯塔夫

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

Select Case Me!frmFilter.Value
    Case 1  'All
        Forms![InventoryList]![InventoryList subform].Form.FilterOn = False
    Case 2  'Active
        strFilter = "[StartDate] > Date()"
        Forms![InventoryList]![InventoryList subform].Form.Filter = strFilter
        Forms![InventoryList]![InventoryList subform].Form.FilterOn = True
    Case 3  'Pending
        'do something else
End Select

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。