実行時エラー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_全体] FROMを1語にしますか？エラーを回避するためには

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 

：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'"