Rebajar Stock al pasar de presupuesto a factura

Habría que saber como trabajas con el formulario Factura, ya que puedes hacerlo de mil formas. Para el ejemplo, voy a usar un formulario Ventas. Si tengo una tabla con productos y sus existencias

Y tengo un formulario Ventas, que en tu caso sería Facturas, con un subformulario DetalleVenta. Puedes ver que el cursor aún está en la cantidad que vendo

Cuando pulso Enter( te dejo un cuadro de texto Después para que veas la cantidad que queda después de vender)

En Después me aparecen las nuevas y la tabla Productos me ha quedado como

De Té ya sólo quedan 95

En este caso, el código del evento Después de actualizar del cuadro de texto Cantidad es

Private Sub Cantidad_AfterUpdate()
DoCmd.SetWarnings False
Subtotal = Precio * Cantidad
Despues = Antes - Cantidad
DoCmd.RunSQL "update productos set existencias=Despues where producto='" & Me.Producto & "'"
DoCmd.RunCommand acCmdSaveRecord
End Sub

por eso te decía que sería conveniente saber como trabajas con el formulario Facturas.

Personalmente creo que no se puede pasar de a uno, si tengo los artículos en una tabla de presupuesto a factura, SI las cantidades no cambian se debe llenar la tabla factura (para mi sería una tabla temporal) desde la tabla presupuesto y recorrer la tabla temporal y descontar las cantidades de la tabla artículos. Piense como su aplicación fuera multiusuario

Para esto puede clonar el formulario recorrerlo haciendo un UPDATE() por cada registro de la tabla de los artículos.

Si quiere envíeme su base de datos a [email protected] con datos ficticios, favor en el asunto hacer referencia a la consulta.

Sino sería bueno que subiera las tablas y así le doy una respuesta sin tantas imágenes que no tienen que ver con su aplicación.

Oka, gracias. 

Con el permiso de los estúpidos que responden incoherencias le doy respuesta a su pregunta, debe anexar este procedimiento en el botón "PAGAR FACTURA O BOLETA VENDIDA"

Sub descontar()
  On Error Resume Next
  Dim miRS As Recordset
  Dim lnNumero As Long
  Dim lnCantidad As Long
  Dim strSQL As String
  Dim strRef As String
  DoCmd.SetWarnings (False)
  Set miRS = Me.Lineas_Facturas_de_Venta.Form.RecordsetClone
  Do Until miRS.EOF
    strRef = Trim(miRS!Articulo)
    lnNumero = Nz(DLookup("[Numero]", "Articulos", "Referencia='" & Trim(miRS!Articulo) & "'"), 0)
    If lnNumero <> 0 Then
     strSQL = "UPDATE Articulos SET Stock=Stock-" & miRS!cantidad & " WHERE Numero=" & lnNumero
     CurrentDb.Execute strSQL
    End If
    miRS.MoveNext
  Loop
  Set miRS = Nothing
End Sub

No obstante, le envíe a su correo la base de datos edita. Hay muchas muchas incoherencias en su base de datos, por ejemplo, encontré Referencias en la factura si Numero en la tabla Articulos.

Gracias por su ayuda. Agregue un botón adicional con el nombre "Descontar" y coloque el código que menciona, pero da la sensación que no hace nada al presionarlo. Así que me fui a la tabla Artículos y me di cuenta que si rebaja el stock de los productos agregados a la Factura. Pero seria posible agregar algún código que permita ver el rebaje del stock en la factura. Me explico: si en el formulario presupuestos en las líneas donde cargo un articulo (Neumático)se ve reflejado el stock (5), y al momento de pasar el presupuesto a factura y presionar el botón Descontar (aparte de ya pueda  rebajar el producto en la tabla, se podría agregar un código para que se actualice el formulario de la factura mostrando el rebaje del producto cargado (Neumático) stock (4). De antemano gracias