訪問 VBA 運行時錯誤 3129

Question

我找不到我的問題。 它總是拋出一個運行時錯誤 3129，我在網上沒有找到任何幫助。

Dim strSQL As String

sqlList.AddItem strSQL = "SELECT Firma FROM Firma_Daten"

DoCmd.RunSQL strSQL

Answer 1

根據您的評論，您可以使用以下內容填充您的列表框：

sqlList.RowSourceType = "Table/Query"
sqlList.RowSource = "SELECT Firma FROM Firma_Daten"

其中sqlList是列表框的名稱。

Answer 2

應該：

Dim strSQL As String
strSQL = "SELECT Firma FROM Firma_Daten"
DoCmd.RunSQL strSQL