MS Access VBA - 使用日期的篩選器表格

我正在根據日期標準來篩選表格。我想我以某種方式消滅日期格式，並且找不到能夠返回結果的組合。子表單上有有效的日期;標準應返回結果 - 但返回零記錄。我嘗試了DATE函數以及明確的＃10/17/2017＃類型值。MS Access VBA - 使用日期的篩選器表格

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

任何建議可以幫助我將這項任務向前推進一點點？

謝謝！

來源

2017-10-17 Mark Pelletier

什麼數據類型是'StartDate'的訪問？ – DiskJunky

「StartDate」來自查詢，格式爲「常規日期」。查詢的源表定義爲「日期/時間」。 –

這有如果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

來源

2017-10-17 20:55:11 Gustav

謝謝。按預期工作。埃裏克也在正確的軌道上，但我仍然錯過了公交車，過濾器過於複雜。 –

MS Access VBA - 使用日期的篩選器表格

回答

相關問題