Primera cuestión, y fundamental: ¿Los campos de Presupuestos son idénticos a los de Facturas?
Si esto es así, te serviría una simple instrucción, tal que
Código:
SQL = "INSERT INTO Facturas SELECT Presupuestos.* FROM Presupuestos WHERE Numero = " & Número_del_Presupuesto_que_quieras_pasar_a_Facturas
Luego sólo tendrías que sustituir en campo Numero por el Número_de_Factura.
O puedes preparar un bucle, tal que así
Código:
Dim Valor as Variant
Facturas.AddNew
For n = 0 To Presupuestos.Fields.Count - 1
Valor = Presupuestos.Fields(n)
' OJO: Aquí tienes que actualizar los campos que sean diferentes, tal que el Número...
Facturas.Fields(n) = Valor
Next
Facturas.Update Y si los campos son diferentes, pues tendrás que poner la línea
Facturas.Fields(n) = Valor de forma que haga la actualización como Dios manda...