Just nu i M3-nätverket
Gå till innehåll
Eche

Uppdatera en tabell

Rekommendera Poster

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

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

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!

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

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

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Skapa ett konto eller logga in för att kommentera

Du måste vara medlem för att kunna kommentera

Skapa ett konto

Skapa ett nytt konto på vårt forum. Det är lätt!

Registrera ett nytt konto

Logga in

Redan medlem? Logga in här.

Logga in nu



×