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
取り敢えず、下記に変更すると何か変わりますか?
"[補足説明] = '" & Me.txt補足説明.Value & "' " &
ありがとうございます!
解決しました!本当にありがとうございました!