2016-08-23 61 views
0

我有一天數次輸入表格中的數據,其中包含日期標記和時間戳以及其他信息。我有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 
+0

曾嘗試任何代碼.. – HA560

+0

它是VBA代碼?那就是我問的問題。我找到了第一部分的答案,刪除了剛纔在屬性設置中的重複項。 – holi4683

+0

HA560要求您發佈迄今爲止已有的代碼,以及您嘗試過但未正確運行(以及爲什麼)的代碼。這兩個列表框的行來源是什麼?您是否嘗試過任何VBA?它可能需要更新Listbox2。 – MoondogsMaDawg

回答

0

解決:

的創過濾命名查詢。

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 
相關問題