在列表框中显示日期的所有时间戳

问题描述：

我有一天数次输入表格中的数据，其中包含日期标记和时间戳以及其他信息。我有2个字段进行过滤，主要是一天，另一个是时间。我也有一个2列表框的形式，我想显示日期和没有重复的。另一个我想在第一个列表框中选择一天后显示当天的所有时间戳。我如何在访问中执行此操作？在Excel或SQL中是否与vba相同？在列表框中显示日期的所有时间戳

下面的代码运行，但没有做任何事情：

Private Sub ltbDates_Click() 

[ltbFiltered].RowSourceType = "Table/Query" 

[ltbFiltered].RowSource = "SELECT Time_Stamp, Layer, Status, Weight, CDI FROM Scale Weight Log " & _ 

         "WHERE Date_Stamp = '" & ltbDates.Value & "'" 

End Sub

曾尝试任何代码.. – HA560

它是VBA代码？那就是我问的问题。我找到了第一部分的答案，删除了刚才在属性设置中的重复项。 – holi4683

HA560要求您发布迄今为止已有的代码，以及您尝试过但未正确运行（以及为什么）的代码。这两个列表框的行来源是什么？您是否尝试过任何VBA？它可能需要更新Listbox2。 – MoondogsMaDawg

答

解决：

的创过滤命名查询。

SELECT Log.[Time Stamp] AS Expr1, Log.Status, Log.[Layer Count] AS Expr2, Log.[Part Count] AS Expr3, Log.Weight 

FROM Log 

WHERE ((([Log].[Date Stamp])=[Forms]![Scale_Weight_Log]![LtbDateStamp])) 

ORDER BY Log.[Time Stamp];

然后在VBA

Private Sub LtbDateStamp_Click() 

ltbFiltered.Requery 

End Sub

在列表框中显示日期的所有时间戳

相关推荐