运行-time Error 3131 FROM 子句语法错误

Question

尝试在论坛中搜索与我的主题类似的主题，但找不到任何可以引导我走向正确方向的内容。基本上我有一个 table，其中包含 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

当您使用 & _ 时，您没有在字符串

内添加线喙

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

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

运行-time Error 3131 FROM 子句语法错误

Run-time Error 3131 Syntax Error in FROM clause

sql

ms-access

vba

ms-access-2010