[VBA ACCESS] comando UPDATE

[juricol]

Devo leggere dalla TABELLA1 il codice e descrizione andare sulla TABELLA2 e a parità di codice sostituire le descrizioni.

Quando lancio il codice il comando rs.update mi da il seguente errore:
Informazioni sulla colonna chiave insufficienti. Troppe righe interessate all'aggiornamento.

Viene effettuato il cambio della descrizione del primo codicedella TABELLA1 su tutti i codici uguali della TABELLA2 e poi va in errore. Facendo il debug noto che in un passaggio mi modifica tutti i codici (anche 100 in una volta). Non dovrebbe modificare solo il record corrente?

Ecco il codice:

...
  rs.CursorLocation = adUseClient
  qstr = "select rascl2 from OTLQRY2_CGSTQ00 where rascl2='" & rec(2) & "'"
        rs.Open qstr, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
          While Not rs.EOF
            rs(0) = rec(3) 'ragsoc
            rs.Update '<-- va in errore qui
            rs.MoveNext
          Wend
...

[anatroccolo]

While Not rs.EOF
    rs.fields(0).value = rec(3) 'ragsoc
    rs.Update
    rs.MoveNext
Wend

prova..............

[Jupy64]

Originariamente inviato da juricol

...
  rs.CursorLocation = adUseClient
  qstr = "select rascl2 from OTLQRY2_CGSTQ00 where rascl2='" & rec(2) & "'"
        rs.Open qstr, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
          While Not rs.EOF
            rs(0) = rec(3) 'ragsoc
            rs.Update '<-- va in errore qui
            rs.MoveNext
          Wend
...

Ciao, fai così:

qstr = "UPDATE OTLQRY2_CGSTQ00 SET nomeCampoZero='" & rec(3) & "' WHERE rascl2='" & rec(2) & "';"

CurrentProject.Connection.Execute(qstr)

[juricol]

Greazie ad entrambi.

Anatroccolo mi dispiace, ma l'errore me lo da comunque.

La soluzione con SQL mi va benissimo, ma qualcuno mi sa spiegare perchè mi da l'errore?