Ciao a tutti, come da titolo vorrei aggiornare una tabella con i dati inseriti in una maschera utilizzando una query di aggiornamento associata all'evento su click di un pulsante e scritta nell'editor VBA di Access 2007.
La lunghezza della query sfrutta tutti i caratteri disponibili su una sola riga dell'editor e dunque è necessario andare a capo.
Su click del pulsante salta fuori l'errore "Errore di sintassi nell'istruzione UPDATE. (Errore 3144) |
"
Prima riga:
codice:
DoCmd.RunSQL "UPDATE Pagamenti SET Pagamenti.ID_PagamentiIntestaz = " & [Forms]![PrinciPagamenti]![ID_Pagamenti] & ", Pagamenti.CodiceArticolo = " & [Forms]![PrinciPagamenti]![SelezionaPagamento]![RigheVendita.ID_Prodotto] & ", Pagamenti.PrezzoUnit = " & [Forms]![PrinciPagamenti]![SelezionaPagamento]![Prezzo_Iniziale] & ", Pagamenti.QtaPag = " & [Forms]![PrinciPagamenti]![SelezionaPagamento]![QuantitCarrello] & ", Pagamenti.UM = " & [Forms]![PrinciPagamenti]![SelezionaPagamento]![UnitMisura] & ", Pagamenti.ScontoPerc = " & [Forms]![PrinciPagamenti]![SelezionaPagamento]![Sconto] & ", Pagamenti.ScontoEur = " & [Forms]![PrinciPagamenti]![SelezionaPagamento]![ScontoEuro] & ", Pagamenti.ImportPagato = " & [Forms]![PrinciPagamenti]![SelezionaPagamento]![Prezzo_Finale_di_Vendita] & ", Pagamenti.PercProvv = " & [Forms]![PrinciPagamenti]![SelezionaPagamento]![Percentuale_Concordata_Iniziale] & _
Seconda riga:
codice:
" where Pagamenti.Id_ProdottoVendita = " & [Forms]![PrinciPagamenti]![SelezionaPagamento]![Id_ProdottoVendita] & " and Pagamenti.Nome_Prodotto = " & [Forms]![PrinciPagamenti]![SelezionaPagamento]![RigheVendita.ID_Prodotto] & ";"