har ett sql update som jag får fel i...

Dim strSQl As String
strSQl = "UPDATE skyttar Set"
strSQl = strSQl & " Klass = " & Me![Klass]
strSQl = strSQl & ", Set Lagskytt = " & Me![Lagskytt]
strSQl = strSQl & ", Set Förbundsskytt = " & Me![Förbundsskytt]
strSQl = strSQl & ",'Where Id_num = '" & [skytt].Column(0) & "'"
Debug.Print strSQl
db.Execute strSQl

Någon vänligt sinnad själ som kan hjälpa en snart tröstlös nybörjare ..?

Tackar som vanligt på förhand i så fall..

Svårt att säga utan att veta vilken datatyp de olika fälten har, men det ser ut att ha kommit ett ' för mycket innan "Where Id_num...".

/Johan

Du ska bara skriva Set en gång.
Samt att du bör omge text värden med enkel fnuttar(', ex: "sql...'" & Variable & "'sql...")
Om Id_num är ett tal bör du ta bord enkelfuntarna från det.

Dim strSQl As String
strSQl = "UPDATE skyttar SET Klass = " & Klass & ", " & vbCrLf & _
"Lagskytt = " & Lagskytt & ", " & vbCrLf & _
"Förbundsskytt = " & Förbundsskytt & vbCrLf & _
"WHERE Id_num = '" & [skytt].Column(0) & "'"

Debug.Print strSQl
db.Execute strSQl

Eventuelt:

Dim strSQl As String
strSQl = "UPDATE skyttar SET Klass = '" & Klass & "', " & vbCrLf & _
"Lagskytt = '" & Lagskytt & "', " & vbCrLf & _
"Förbundsskytt = '" & Förbundsskytt & "'" & vbCrLf & _
"WHERE Id_num = " & [skytt].Column(0)

Debug.Print strSQl
db.Execute strSQl


Far förenklat bort Me![] Efter som kontrollerna bör finnas tilgängliga...

Andreas...bockar och bugar för din sakliga hjälp...
fungerade utmärkt...Tack för hjälpen återigen

Hej
Nu blev jag nyfiken igen !

>strSQl = "UPDATE skyttar SET Klass = '" & Klass & "', " & vbCrLf & _

Varför tar man in vbCrLf i en SQL sträng ?

mvh
Sven

Jag tycker det är snygare med radbrytning där jag bryter raden med _.
Liksom en smak sak. Bara användbart om man t.ex skulle skriva ut texten i debug fönstret. Efter som då överns stämmer raderna med koden. Men egentligen så duger ett mellanslag. :O)