Fallo en código para actualizar stock de productos
Este es el código que tengo
Private Sub ActualizarStock()
If MsgBox("Confirmar Pedido y Actualizar STOCK?", vbYesNo, "CONFIRMAR VENTA") = vbYes Then
With Me.DetPedidos_Subformulario.Form.RecordsetClone
.MoveFirst
Do While Not .EOF
CurrentDb.Execute ("UPDATE Productos set StockActual=StockIncial-" & !Cantidad.Value & " WHERE IdProducto=" & !IdProducto.Value)
.MoveNext
Loop
End With
Me.BaseImponible = Me.TPVD / (1.21)
Me.PreCosto = Me.TPreCompra
Me.Recalc
Else
Exit Sub
End If
End Sub
Al ejecutar me da es siguiente mensaje
Error 3061 pocos parámetros se esperaba 1
Si alguien me puede ayudar se lo agradecería.
1 Respuesta
Respuesta de Sveinbjorn El Rojo
1