Hola que tal, creo ya entender a lo que quieres llegar, debes tener en cuenta que a veces el programador se amarra a hacerlo de una manera y lo complica todo,yo te recomendaria hacerlo de la manera que te señale (creando una relacion integridad referencial, eliminar y actualizar en cascada) y simplemente arreglarias el codigo que te mostré anteriormente; pero si lo que deseas es hacerlo con SQL, pusiste la sentencia asi:
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 , ""
debo decirte que basta solo con
docmd.runsql="INSERT INTO mae_bol_cpv (conse,id_ter) VALUES (" & Me.conse.Value & "," & Me.id_ter.Value & ")"
y para que inserte registro por registro seria asi, siempre y cuando los campos en el formulario no sean independientes, es decir cada campo en el subformulario este atado a un campo en la tabla
Set rs = Recordset
With rs
For i = 1 To .RecordCount Step 1
DoCmd.RunSQL ("INSERT INTO")
.MoveNext
Next
End With
Espero te sirva, puede escribime a
[email protected]