Microsoft Access 掲示板

Error #:3144 UPDATEステートメントの構文エラーです

2 コメント
views
4 フォロー

Accessを始めて一か月の初心者です。よろしくお願いします。
既存レコードの修正 → 更新の実行で、題記のエラーが発生します。
「AccessVBA 実践マスターガイド」今村ゆうこ著 262頁を参考にしました。
ご教示ください!

Private Sub btn更新Click()   '「btn更新」のクリックイベントプロシージャ
    Dim strSQL As String
    strSQL =

      "UPDATE T依頼 " &
      "SET " &
        "[依頼者] = '" & Me.cmb依頼者.Value & "', " &

        "[W_No] = '" & Me.cmbWNo.Value & "', " &
        "[品名] = '" & Me.txt品名.Value & "', " &

        "[希望処置] = '" & Me.cmb希望処置.Value & "', " &
        "[ロット番号] = '" & Me.txtロット番号.Value & "', " &

        "[ロット枝] = '" & Me.cmbロット枝.Value & "', " &
        "[巻き長さ] = '" & Me.txt巻き長さ.Value & "', " &

        "[依頼理由_1] = '" & Me.cmb依頼理由1.Value & "', " & _
        "[依頼理由_2] = '" & Me.cmb依頼理由2.Value & "', " & _
        "[依頼理由_3] = '" & Me.cmb依頼理由3.Value & "', " &
        "[補足説明] = " & Me.txt補足説明.Value & " " &

      "WHERE 依頼ID = '" & Me.txt依頼ID.Value & "';"            'UPDATE文の作成

      Dim errMsg As String
      errMsg = tryExecute(strSQL)  'SQLを実行してメッセージを受け取る

      If errMsg <> "" Then                    'メッセージが空ではない(エラーがあった)場合
        MsgBox errMsg, vbCritical, "エラー"   '受け取ったエラーメッセージを出力
        Exit Sub   '終了
      End If

      Call loadForm                                  '再度読み込み処理を呼び出す
      MsgBox "更新しました", vbInformation, "完了"   '完了メッセージを出力
End Sub

wazawaza
作成: 2022/05/22 (日) 12:07:22
通報 ...
1
りんご 2022/05/22 (日) 14:25:48 c564b@0e907

取り敢えず、下記に変更すると何か変わりますか?
"[補足説明] = '" & Me.txt補足説明.Value & "' " &

2
wazawaza 2022/05/22 (日) 15:26:57

ありがとうございます!
解決しました!本当にありがとうございました!