Hola, creo haberlo entendido.
Suponemos que la conexión a la base de datos se llama
bd y la tienes declarada a nivel de módulo (o Public).
Tienes dos tablas, una llamada
Productos y otra
Ventas. Tienen un campo en común llamado
idProducto
Los registros de la tabla Ventas se muestran en un control Grid llamado dbgridVenta (en la primera columna está el idProducto y en la cuarta la cantidad vendida) y los productos en otro llamado dbgridProductos. En la tabla Productos existe un campo llamado
Existencias al que hay que restar la cantidad vendida.
Bueno, si es así, prueba con este código:
Código vb:
Ver originalDim CantidadVendida As Integer, i As Integer
For i = 0 To dbgridVenta.ApproxCount - 1
dbgridVenta.Row = i
CantidadVendida = dbgridVenta.Columns(3)
bd.Execute "UPDATE Productos SET Existencias=Existencias - " & CantidadVendida & _
" WHERE idProducto =" & dbgridVenta.Columns(0)
Next i
Saludos