Ich möchte via SQL einen Eintrag in einer Access-DB updaten und habe dazu folgenden Code geschrieben:
With frmKundenInfo
strSQL = "UPDATE tblMT " & _
"SET " & _
"Aktion='" & .cbAktion.Value & "', " & _
"Resultat='" & .cbResultat.Value & "', " & _
"Status='" & .cbStatus.Value & "', " & _
"Massnahmen='" & .txtMassnahme.Value & "', " & _
"Check='" & .txtKontakt.Value & "', " & _
"MA='" & Environ("Username") & "', " & _
"Datum='" & FormatDateTime(.lblDatum, vbShortDate) & "', " & _
"Uhrzeit='" & FormatDateTime(.lblUhrzeit, vbShortTime) & "' " & _
"WHERE KRN='" & strKRN & "' " & _
"AND DAY(Datum)='" & Day(datDatum) & "' " & _
"AND MONTH(Datum)='" & Month(datDatum) & "' " & _
"AND YEAR(Datum)='" & Year(datDatum) & "' " & _
"AND HOUR(Uhrzeit)='" & Hour(datUhrzeit) & "' " & _
"AND MINUTE(Uhrzeit)='" & Minute(datUhrzeit) & "'"
cn.Execute strSQL
End With
Bei der Ausführung des Codes kriege ich jedoch immer folgende Fehlermeldung zurück:
Fehlerquelle: Microsoft JET Database Engine
Fehlernummer: -2147217900
Beschreibung: Syntax error in UPDATE statement.
Ich finde den Fehler in der Syntax leider nicht. Bin froh um jede Hilfe...
Danke im voraus & Gruss!
Andreas