Uppdatera en tabell

[Eche]

Har ett formulär med ett antal textrutor som emellanåt behöver uppdateras, i exemplet här under så kan jag via en knapp uppdatera en och en men jag skulle vilja uppdatera samtliga 15 texter i formuläret på samma gång..?

Är det någon som kan hjälpa mej?

 

Private Sub EtR_Click()
If MsgBox("Vill du spara ändringen? ", vbYesNo) = vbNo Then

Else
SQLtext = "UPDATE tgranskning SET " _
& " R = '" & Me.tb19 & "'" & _
" WHERE tgranskning.Id = " & Me.tb0
DoCmd.SetWarnings False
DoCmd.RunSQL SQLtext
End If

DoCmd.Close acForm, "fgransk", acSaveYes
DoCmd.OpenForm "fgransk"
End Sub

[Mr Andersson]

Om alla 15 texterna finns i samma post så är det bara att lägga till dem efter SET.

Utan att veta vad fälten heter så fortsätter jag med S och tb20:

 

" ... SET R = '" & Me.tb19 & "' , S = '" & Me.tb20 & "' ... "

 

Om det är olika poster (olika id) så måste du göra en komplett UPDATE för varje id.

Hoppas det blev begripligt!

 

[Eche]

Får ett felmeddelande om att operator saknas när jag lägger ihop dom.. 

 

SQLtext = "UPDATE tgranskning SET " _
& " A = " & Me.tb1 & ", B = '" & Me.tb2 & ", C = '" & Me.tb3 & "'" & _
" WHERE tgranskning.Id = " & Me.tb0
DoCmd.SetWarnings False
DoCmd.RunSQL SQLtext
End If

[Mr Andersson]

Du har missat att innesluta Me.tb1 inom  ' '  samt ingen avslutande ' efter Me.tb2.