Copiar registros de un subformulario a una tabla

[Gosuna]

Hola amigos logre solucionar mi problema

les dejo el codigo por si alguien lo necesita.

Dim almacen As Variant
DoCmd.SetWarnings False
almacen = "INSERT INTO TblHistorialDetalleFactura SELECT * FROM SqlDetalleFacturas where NoFactura = [Forms]![FrmFacturas]![FrmDetalleFacturas].Form![NoFactura]"
If MsgBox("Al guardar estos datos no podra deshacer la opción. Esta seguro de guardar estos datos", vbQuestion + vbYesNo, "Aviso") = vbYes Then
DoCmd.RunSQL almacen
DoCmd.SetWarnings True
End If


Este se ejecuta desde un boton en el formulario principal.

hasta luego amigos.


Att: eegosystem