[VBA/ACCESS] ERRORE: nessun valore specificato per alcuni parametri necessari

[Astharot]

Mi da questo errore quando clicco sul pulsante per aggiornare il record

Option Explicit
Private rsU  As ADODB.Recordset

Private Sub Aggiorna_Click()
  Dim sSqlU   As String
  Dim sUpdate As String
  Dim sWhereU As String

sUpdate = "Update Acquisti Set Acquisti.Cod_Acquisti = '" & Replace(Me.Cod_Acquisti, "'", "''") & "'," & " Acquisti.Cod_Cliente = '" & Replace(Me.Cod_Cliente, "'", "''") & "'," & " Acquisti.Cod_Progressivo = '" & Replace(Me.Cod_Progressivo, "'", "''") & "'," & " Acquisti.[Tipo Acquisto] = '" & Replace(Me.Tipo_Acquisto, "'", "''") & "'," & " Acquisti.Numero = '" & Replace(Me.Numero, "'", "''") & "'," & " Acquisti.[Importo Totale] = '" & Replace(Me.Importo_Totale, "'", "''") & "'," & " Acquisti.Data = '" & Replace(Me.Data, "'", "''") & "'," & " Acquisti.Note = '" & Replace(Me.Note, "'", "''") & "'" & ""

sWhereU = " Where Clienti.Cod_Clienti Like '" & Replace(Me.Cod_Cliente, "'", "''") & "'" & " and Clienti.Cod_Progressivo Like '" & Replace(Me.Cod_Progressivo, "'", "''") & "'" & " and Clienti.Cod_Acquisti Like  '" & Replace(Me.Cod_Acquisti, "'", "''") & "'" & ""

sSqlU = sUpdate & sWhereU

Set rsU = CurrentProject.Connection.Execute(sSqlU)

End Sub

i campi NOTE e TIPO ACQUISTO sono stringhe da 225 caratteri

[oregon]

Prima dell'execute, visualizza il contenuto della variabile

sSqlU

e mostracelo ...

[Astharot]

che comando uso per visualizzare il risultato ?

[oregon]

Una MsgBox ?

[Astharot]

ecco

[oregon]

Metti il campo note tra quadre

Acquisti.[Note]

e prova

[Astharot]

stesso errore di prima

[oregon]

Ma i campi (tutti ...) di che tipo sono nel db?

[Astharot]

Cod_Acquisti, Cod_Progressivo, Numero e Importo Totale (formato Euro) sono numerici
Data è una data
gli altri sono delle stringhe

[gibra]

Sarebbe più semplice usando i Parametri di ADO

ADO, Parametri ed affini
http://nuke.vbcorner.net/Articoli/VB...5/Default.aspx