ebolo | |
| 2007-05-31 08:53 - Respuestas: 21 - Tema nº: 2450818
...
UPDATE Productos Set Productos.[STOCK]-30WHERE(((Productos.[STOCK])=2))
...
te tiene que salir: UPDATE Productos Set Productos.[STOCK]= -30 WHERE (((Productos.[STOCK])=2))
te falta:
- el signo = después de STock,
- un espacio de separación entre 30 y Where
- un espacio de separación entre Where y (
Copia y pega:
Private Sub Form_AfterInsert()
Dim consulta As String
consulta = "UPDATE PRODUCTOS SET PRODUCTOS.[STOCK] = [STOCK] + " & me.unidcompra
consulta = consulta & " WHERE (((PRODUCTOS.[STOCK])=" & Me.idproducto & "))"
CurrentDb.Execute consulta
End Sub
Saludos.
| |
|
|
HENRY_DAVID | |
|
Re: ACCESS - 2007-05-31 18:04 - Respuesta 7
hola de nuevo amigo ebolo, tengo un pequeño problema digite el código pero al parecer no pasa nada, el stock sigue igual y no cambia. xfa a ver si me puedes ayudar. | |
|
|
ebolo | |
|
Re: ACCESS - 2007-05-31 18:12 - Respuesta 8
Pero ahora te dá error ó no.
Ponle la línea del msgbox consulta antes del Currentdb y me la enseñas a ver si al final damos con ello.
| |
|
|
HENRY_DAVID | |
|
Re: ACCESS - 2007-05-31 23:30 - Respuesta 9
aparece el sgte. mensaje:
UPDATE Productos Set Productos.[STOCK]=[STOCK] - 30 WHERE (((Productos.[STOCK])=163))
a ver si me puedes ayudar. Gracias | |
|
|
ebolo | |
|
Re: ACCESS - 2007-06-01 09:44 - Respuesta 10
perdona Henry, la edad no perdona, me he equivocado al igualar el Where, tenemos que filtrar por el campo idproducto:
consulta = consulta & " WHERE (((PRODUCTOS.[idproducto])=" & Me.idproducto & "))"
es decir te tiene que salir algo así:
UPDATE Productos Set Productos.[STOCK]=[STOCK] - 30 WHERE (((Productos.[idproducto])=163))
el 163 se supone que es el código del idproducto.
por eso no te hacía nada ó sí te hacía, porque le estabamos diciento que actualizara aquellos registros donde el stock fuera de 163.
saludos.
| |
|
|
|