访问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