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
Código
//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!!!!!