Inserccion de registros de un subformulario
Publicado por Gonzalo (7 intervenciones) el 08/08/2017 08:40:12
haber si puedes iluminarme por favor, no consiguo 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 entendereis mejor xD
Gracias!!!!!
Un saludo
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 entendereis mejor xD
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
//Codigo
Set db = CurrentDbWith Me.SubVisitasAñadir.Form.RecordsetClone
.MoveFirstDo Until .EOFstrsQl = "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
.MoveNextLoop
End With
Set db = Nothing//Fin de codigoGracias!!!!!
Un saludo
Valora esta pregunta
0