Question

我每天多次在表格中输入数据，并附上日期戳和时间戳以及其他信息。我有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

Answer 1

解决：

创建名为filtered。的查询。

 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

在列表框

1 个答案: