Pasar datos de un subformulario presupuesto a otro subformulario factura. Access 2010

Prueba este código (adaptando los nombres que tu tienes, si no son los que te pongo)

Public Sub Pasar_a_Fra_Click()

Dim miSQL As String
Dim numFactura As Integer
DoCmd.SetWarnings False

'Insertas los datos del presupuesto
miSQL = "INSERT INTO TFacturas(IdCliente,Trabajo) SELECT IdCliente,Trabajo FROM TPresupuestos WHERE NumPpto=" & Me.NumPpto
DoCmd.RunSQL miSQL

'Buscas la factura que acabas de insertar y le insertas el detalle
numFactura = DLast("NumFra", "TFacturas")
miSQL = "INSERT INTO TFraDetalle(NumFra,Uds,PVPUd,Descripcion,PVP) SELECT " & numFactura & " AS Factura,Uds,PVPUd,Descripcion,PVP FROM TPptoDetalle WHERE NumPpto=" & Me.NumPpto
DoCmd.RunSQL miSQL
DoCmd.SetWarnings True

End Sub

A ver si te sirve, porque lo escribí "de cabeza", e igual hay que hacerle algún ajuste. El código te pasa los datos directamente a las tablas, que he supuesto se llaman TFacturas, TFraDetalle, TPresupuestos y TPptoDetalle

Buenas noches¡¡

Al ejecutarlo me aparece un MsgBox que dice: Introduzca el valor del parámetro. El problema creo que está en que mi autonumérico de facturas y presupuesto no es que viene por defecto, sino uno que me creé yo con el siguiente código: 

Dim Secuencia As Integer

Secuencia = (DCount("[NumFra]", "tblFras", "[NumFra] like '" & "R" & Format(Date, "yy") & "*'")) + 1

Me.NumFra = "R" & Format(Date, "yy") & "-" & Format(Secuencia, "0000")

Lo tengo puesto en el evento al activar el registro. El formFras además lo tengo como entrada de datos. Por lo tanto, entiendo que tu código tira de la tabla pero no me genera automáticamente un nuevo NumFra, que el parámetro que me pide el MsgBox.

Ya probé a abrir el formFras, para darle NumFra, pero como no se guarda en la tabla hasta que salga estoy en las mismas. Probé poniendo un  Me.Refresh y un Me.Recalc despues de pasar los datos de cabecera del formFras y tampoco me deja.

Haber si se te ocurre algo¡¡

Si te pide parámetro, lo más probable es que haya en el código SQL algún campo que no se corresponda con los que tienes en tus tablas, por eso te sale ese mensaje.

Que el NumFactura sea un autonumérico "manual", no sería problema, pues siempre podrías generarle el NumFactura dentro del propio código.

De todo modos, se me ocurre algo que puede ser más simple, partiendo de tu código original:

Public Sub Pasar_a_Fra_Click()

DoCmd.OpenForm "formFras", , , , acFormAdd

Forms![formFras]![IdCliente] = Me.IdCliente

Forms![formFras]![Trabajo] = Me.Trabajo

'Aquí pasas el detalle

Dim rst Ss DAO.Recordset

Set rst=me.formPptosDetalle.Form.RecordsetClone

rst.move First

Do Until rst.EOF

Forms![formFras]![formFrasDetalle].Form![Uds] = rst("Uds")

Forms![formFras]![formFrasDetalle].Form![PVPUd] = rst("PVPUd")

Forms![formFras]![formFrasDetalle].Form![Descripcion] = rst("Descripcion")

rst.MoveNext

Loop

rst.Close

Set rst=Nothing

End Sub

Pruébalo y me dices, porque sin tener la BD no lo puedo testar yo mismo.

Buenas tardes¡¡

Que va, me inserta en el formFrasDetalle sólo la última línea del formPptosDetaller. Si te parece bien, me pases tu email y te mando la bbdd

[email protected]

Mándala comprimida