Problema Con Una Consulta

[kike666]

With rsExis


.OpenRecordset ("SELECT * FROM EXISTENCIAS WHERE PRODUCTO = """) & ART1.Text & """"
'.Edit
AUX = .Fields("EXISTENCIA")
AUX = AUX + Val(CANT1.Text)
.Fields("EXISTENCIA") = AUX
.Update

End With

CON ESTA CONSULTA KIERO TOMAR DE LA TABLA EXISTENCIAS UN PRODUCTO, TOMAR EL VALOR Q TIENE E INCREMENTAR LAS ENTRADAS DE ESE PRODUCTO, NO ME ACUTALIZA DE ESA MANERA, ME ELIMINA EL VALOR ANTERIOR Y COLOCA LAS NUEVAS ENTRADAS COMO UN TOTAL.

PROBE USANDO UNA AUXILIAR Y NADA MAS NO QUEDA, EN QUE ESTOY MAL, ME PUEDEN AYUDAR GRACIAS

[Kruzado]

"UPDATE EXISTENCIAS set existencia=exxistencia + " cant.text " WHERE PRODUCTO = '" ART1.Text & "'"

ojo ke el separador para los campos de texto se envia por cremillas('), no comillas (")

[Kruzado]

la respuesta anterior esta mala (le faltan los &), esta si sirve...

"UPDATE EXISTENCIAS set existencia=existencia + " & cant.text & " WHERE PRODUCTO = '" & ART1.Text & "'"