[VBA] Problema on la insert

[Astharot]

Ho una form dalla quale tramite una select ho recuperato i dati del cliente.
dopo aver modificato il campo Città schiaccio un bottone per l'aggiornamento (il codice è questo riportato sotto) ma mi dice che c'è un'errore nella insert


Private Sub Aggiorna_Cliente_Click()
Dim sSqlU As String
Dim sWhereU As String
Dim strFormNameU As String

sSqlU = "Insert Into Clienti (Città, [Indirizzo 1] Values ('" & (Replace(Me.Città, "'", "''") & "','" & Replace(Me.Indirizzo_1, "'", "''"))
sWhereU = ""
sWhereU = sWhereU & " Clienti.Cod_Clienti = '" & Replace(Me.Cod_Cliente, "'", "''") & " and Clienti.Cod_Progressivo = '" & Replace(Me.Cod_Progressivo, "'", "''") & "'"

CurrentProject.Connection.Execute (sSqlU)


End Sub

[oregon]

Mi sa che manca la parola chiave WHERE ...

Controlla la stringa prima dell'esecuzione ...

P.S. Se c'e' un errore, devi dire qual e' ...

[Astharot]

Mi da errore qui

CurrentProject.Connection.Execute (sSqlU)

la stringa di codice della where che uso qui mi funziona bene

Private Sub Cancella_Cliente_Click()

Dim sSqlD As String
Dim sWhereD As String

sSqlD = "Delete From Clienti"
sWhereD = ""
sWhereD = sWhereD & " Clienti.Cod_Progressivo = '" & Replace(Cod_Progressivo, "'", "''") & " and Clienti.Cod_Cliente = '" & Replace(Cod_Cliente, "'", "''") & "'"

CurrentProject.Connection.Execute (sSqlD)

DoCmd.Close
Exit_Annulla_Nuovo_Cliente_Click:
Exit Sub

End Sub

[oregon]

Hai letto bene la mia risposta precedente?

[Astharot]

intendi fare così

Private Sub Aggiorna_Cliente_Click()
Dim sSqlU As String
Dim sWhereU As String

sSqlU = "Insert Into Clienti (Città, [Indirizzo 1] Values ('" & (Replace(Me.Città, "'", "''") & "','" & Replace(Me.Indirizzo_1, "'", "''"))
sWhereU = "Where"
sWhereU = sWhereU & " Clienti.Cod_Clienti = '" & Replace(Me.Cod_Cliente, "'", "''") & " and Clienti.Cod_Progressivo = '" & Replace(Me.Cod_Progressivo, "'", "''") & "'"

CurrentProject.Connection.Execute (sSqlU)


End Sub

cmq mi da sempre errore sulla CurrentProject.Connection.Execute (sSqlU)

[oregon]

Originariamente inviato da Astharot
cmq mi da sempre errore sulla CurrentProject.Connection.Execute (sSqlU)

E' difficile dire quale errore?

[Astharot]

errore di sintassi nell istruzione insert into

[oregon]

Beh ... prima assegni la variabile

sSqlU

poi la variabile

sWhereU

ma utilizzi solo la prima ...

Un consiglio ... controlla con una MsgBox prima dell'execute cosa contiene la stringa sSqlU ...

[Astharot]

ok se invece facessi un unica stringa al posto delle variabili swhereu ecc...
ma inglobo tutta la query in sSqlU....

[oregon]

Mi sembra ovvio ... scusa ... la query e' una sola ... che dubbi hai?