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
↧