haber si puedes iluminarme por favor, no consigo a través de esta consulta mandar cada uno de los registros en un insert de un subformulario.
He conseguido contar los registros del subformulario pero cada vez que pasa por el bucle solo inserta el primer registro duplicandolo una y otra vez, con el código lo entenderéis mejor xD
//Codigo
Set db = CurrentDb
With Me.SubVisitasAñadir.Form.RecordsetClone
.MoveFirst
Do Until .EOF
strsQl = "INSERT INTO MovimientosPersonalSubsanacion ( IdVisita, IdDni, Epi, Fi, AdiestramientoTutelado, ReconocimientoMedico, FormacionEspecificas, DesignacionRecursosPreventivo) " & _
"SELECT '" & IdVisita & "' AS IdVisita, '" & Forms!VisitasAñadir!SubVisitasAñadir.Form!IdDni & "' AS IdDni, '" & Forms!VisitasAñadir!SubVisitasAñadir.Form!Fi & "' AS Fi,'" & Forms!VisitasAñadir!SubVisitasAñadir.Form!Epi & "' AS Epi, '" & Forms!VisitasAñadir!SubVisitasAñadir.Form!AdiestramientoTutelado & "' AS AdiestramientoTutelado, '" & Forms!VisitasAñadir!SubVisitasAñadir.Form!ReconocimientoMedico & "' AS ReconocimientoMedico, " & _
"'" & Forms!VisitasAñadir!SubVisitasAñadir.Form!FormacionEspecificas & "' AS FormacionEspecificas, '" & Forms!VisitasAñadir!SubVisitasAñadir.Form!DesignacionRecursosPreventivo & "' AS DesignacionRecursosPreventivo "
db.Execute strsQl, dbFailOnError
.MoveNext
Loop
End With
Set db = Nothing
//Fin de codigo
Gracias de antemano!!!!!