Copiar registros de un subformulario a una tabla

[Gosuna]

Hola a todos tengan un buen día.

Voy al grano. estoy trabajando una bd que necesita almacenar historiales.

mi problema esta al querer almacenar todos los registros de un subformulario en una tabla que cree desde una consulta de creación de tablas.

lo que realmente necesito es un boton que este en el formulario principal y que al darle click mande todos los registros que se encuentran en ese momento en el subformulario a la tabla que guarda el historial.

De la siguiente manera he logrado enviar los datos del formulario a su respectiva tabla de historial.

Dim almacen As Variant
DoCmd.SetWarnings False

almacen = "Insert into HistorialFacturas ([NoFactura],[Fecha],[CodCliente],[Nombre],[Apellidos],[Dirección])VALUES ([NoFactura],[Fecha],[CodCliente],[Nombre],[Apellidos],[Dirección]);"

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

hasta aqui todo bien. pero cuando quiero agregar un evento para agregar los registros del subformulario no me lo permite. o no logro encontrar la forma.

espero haber sido explicito. Gracias de antemano por leer mi mensaje hasta luego.

att: eegosystem