Como hacer consulta sobre stock impago
Hola estoy realizando una BD sobre control de stock, por ello tengo las sig. Tablas
PRODUCTOS (CÓDIGO, DESCRIPCIÓN, STOCK, PRECIOS)
Ingresos(idingreso, fechaingreso, código, cantidad, precioi)
Pagos(idpago, fechapago, código, cantidadp, preciop)
Relacionadas a través de productos.
Quiero realizar una consulta o actualizar la tabla producto cada vez que ingresa un producto o disminuye con el pago del mismo y así obtener los productos valorizados que están impagos y en stock.
En el formulario Ingresos hice el sig. Código en Después de insertar
Dim consulta As String
consulta = "UPDATE PRODUCTOS SET PRODUCTOS.[STOCK] = [STOCK] + " & Me.CANTIDAD
consulta = consulta & " WHERE(((PRODUCTOS.[STOCK]) = Me.[CODIGO]))"
CurrentDb.Execute consulta
Y me da este error luego de CorrentDb.Execute consulta
"3061" pocos parámetros. Se esperaba 1.
No se que estoy haciendo mal. O si hay otra forma de realizar esta consulta o actualizar tabla.
Desde ya muchas gracias
PRODUCTOS (CÓDIGO, DESCRIPCIÓN, STOCK, PRECIOS)
Ingresos(idingreso, fechaingreso, código, cantidad, precioi)
Pagos(idpago, fechapago, código, cantidadp, preciop)
Relacionadas a través de productos.
Quiero realizar una consulta o actualizar la tabla producto cada vez que ingresa un producto o disminuye con el pago del mismo y así obtener los productos valorizados que están impagos y en stock.
En el formulario Ingresos hice el sig. Código en Después de insertar
Dim consulta As String
consulta = "UPDATE PRODUCTOS SET PRODUCTOS.[STOCK] = [STOCK] + " & Me.CANTIDAD
consulta = consulta & " WHERE(((PRODUCTOS.[STOCK]) = Me.[CODIGO]))"
CurrentDb.Execute consulta
Y me da este error luego de CorrentDb.Execute consulta
"3061" pocos parámetros. Se esperaba 1.
No se que estoy haciendo mal. O si hay otra forma de realizar esta consulta o actualizar tabla.
Desde ya muchas gracias
Respuesta de smanero
1
Prueba así:
consulta = "update productos set productos.[stock] = [stock] + " & str(Me.cantidad)
consulta = consulta & " where(((productos.[codigo]='" & Me.[CODIGO] & "'))"
consulta = "update productos set productos.[stock] = [stock] + " & str(Me.cantidad)
consulta = consulta & " where(((productos.[codigo]='" & Me.[CODIGO] & "'))"
consulta = "update PRODUCTOS set [PRODUCTOS].[STOCK]=[PRODUCTOS].[STOCK] + [INGRESO].[CANTIDAD] WHERE [PRODUCTOS].[CODIGO]=[INGRESO].[CODIGO]"
Y ME DA UN ERROR= "Error 3601 pocos parametros.Se esperaba 2"
Y no puedo darme cuenta de que es este error. Ya lo modifique 25 veces al código.
Gracias de ante mano y por al pronta respuesta
Y ME DA UN ERROR= "Error 3601 pocos parametros.Se esperaba 2"
Y no puedo darme cuenta de que es este error. Ya lo modifique 25 veces al código.
Gracias de ante mano y por al pronta respuesta
Repetimos:
consulta = "update productos set productos.[stock] = [stock] + " & str(Me.cantidad)
consulta = consulta & " where(((productos.[codigo]='" & Me.[CODIGO] & "'))"
Copia y pega, la 2ª consulta que pones está aún peor que la 1ª.
consulta = "update productos set productos.[stock] = [stock] + " & str(Me.cantidad)
consulta = consulta & " where(((productos.[codigo]='" & Me.[CODIGO] & "'))"
Copia y pega, la 2ª consulta que pones está aún peor que la 1ª.
