訪問和 VBA+SQL

Question

今天早上我開始了 Access 編程，並偶然發現了我似乎無法解決的第一個更大的問題。 我已經嘗試了很多方法（例如 DAO.Recordset），但它不起作用。

根據在 Combofield 上選擇的內容，我希望該列表僅顯示相關信息。

更多詳細信息：您可以搜索特定的存儲箱並在列表字段中列出存儲在該存儲箱上的材料。 為此，我認為每次用戶更改上述搜索字段中的 Storagebin 時，我都需要更改 Listfield 的記錄集。

代碼：

Dim findMatSQL As String

findMatSQL = "SELECT Material " & _
             "FROM [tbl_Storagebins] " & _
             "WHERE [tbl_Storagebins].ID = '" & Kombinationsfeld22 & "'"

Me!Liste60.RowSource = findMatSQL

非常感謝！

Answer 1

嘗試這個：

Dim findMatSQL As String

findMatSQL = "SELECT Material FROM [tbl_Storagebins] " _
& "WHERE [tbl_Storagebins].ID = " & Me.Kombinationsfeld22

Me!Liste60.RowSource = findMatSQL
Me.Liste60.Requery

Answer 2

使用此 SQL 代碼創建查詢

SELECT Material FROM [tbl_Storagebins] WHERE [tbl_Storagebins].ID = Forms![yourformnamehere]![Kombinationsfeld22]

不要忘記將 [yourformnamehere] 設置為您的實際表單名稱。 然后將 liste60 中的行源設置為您創建的查詢。 在 Kombinationsfeld22 的 afterupdate 事件中將其設置為：

Private Sub Kombinationsfeld22_AfterUpdate()
Me.Liste60.Requery
End Sub

Answer 3

我自己失敗了！ 感謝你們倆的所有幫助，錯誤從來不是代碼，而是我在我的列表中設置了 2 列，其中只有 1 列是真實存在的，所以它看起來是空的..