运行时错误 3131 FROM 子句中的语法错误

Question

尝试在论坛中搜索与我类似的主题，但无法真正找到任何可以引导我走向正确方向的内容。基本上，我有一个表格，其中包含 10 个区域中每个区域的 QA 分数，我试图根据月份使用特定区域的分数填充一个文本框。我试图在 vba 中为此表单执行此操作，但遇到了此运行时错误 3131，我不完全确定我的代码有什么问题，这对我来说似乎很简单。感谢您提前提供任何帮助或建议。

Private Sub Form_Load()


Dim strSql As String


strSql = "SELECT tblScorecard.[QA_Overall]" & _
        "FROM tblScorecard" & _
        "WHERE tblScorecard.[Audit Month] = 'Jan'" & _
        "AND tblScorecard.[Region] = '1'"

DoCmd.RunSQL strSql

txtReg1 = strSql

End Sub

Answer 1

你不能只添加空格吗？ tblScorecard.[QA_Overall]FROM 一个词？

Private Sub Form_Load()


Dim strSql As String


strSql = "SELECT tblScorecard.[QA_Overall] " & _
        "FROM tblScorecard " & _
        "WHERE tblScorecard.[Audit Month] = 'Jan'" & _
        " AND tblScorecard.[Region] = '1'"

DoCmd.RunSQL strSql

txtReg1 = strSql

End Sub

为了避免Error: 2342 A RunSQL:

Private Sub Form_Load()
    Dim qdf As QueryDef
    strSql = "SELECT tblScorecard.[QA_Overall] " & _
        "FROM tblScorecard " & _
        "WHERE tblScorecard.[Audit Month] = 'Jan'" & _
        " AND tblScorecard.[Region] = '1'"
    On Error Resume Next
    DoCmd.DeleteObject acQuery, "tempQry"
    On Error GoTo 0
    Set qdf = CurrentDb.CreateQueryDef("tempQry", strSQL)
    DoCmd.OpenQuery ("tempQry")
End Sub

找到更多信息here。

Answer 2

当您使用& _ 时，您不会在字符串内添加线喙

尝试在字符串末尾添加一个空格

strSql = "SELECT tblScorecard.[QA_Overall] " & _
        "FROM tblScorecard " & _
        "WHERE tblScorecard.[Audit Month] = 'Jan' " & _
        "AND tblScorecard.[Region] = '1'"