Leer Formulario y Subformularioy guardar

[osga2002]

Buenas Tardes Ingeniero Serrano:

Reciba un cordial saludo, gracias por su repuesta le comento que los foumalrios son libres y no estan amarrados a una tabla, entonces lo que deseo es poder leer el formulario principal y el subformulario y guardar los registros mediante una sentencia sql, mas o menos el siguiente codigo:

Private Sub gur_for_Click()
If Nz(Me.id_ter, "") = "" Or Nz(Me.tot, "") = "" Or Nz(Me.plaz, "") = "" Or Nz(Me.fec_ini, "") = "" Then
MsgBox "No a creado datos"
Else
Dim midb As Database
Set mibd = CurrentDb()
**aqui
CurrentDb.Execute "INSERT INTO mae_bol_cpv (conse,id_ter) VALUES (" & Me.conse.Value & "," & Me.id_ter.Value & ")"
' DoCmd.RunCommand acCmdSaveRecord
DoCmd.Close , ""
' End If
End Sub

La idea es que donde escribi **aqui hay evalue el subfomulario si tiene datos y despues se hagan los insert con sentencia sql y de acuerdo con la cantidad de registros que tenga el subformulario.

Espero haber sido claro sino me disculpa mi forma de redactar.

Gracias por su ayuda Dios lo bendiga!!.

Atentamente;

OSWALDO GAITAN ARAQUE
Bendiciones!!