** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Como utilizar el bucle Do...Loop
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Como utilizar el bucle Do...Loop

 Responder Responder Página  <12
Autor
Mensaje
andressf Ver desplegable
Habitual
Habitual
Avatar

Unido: 12/Abril/2011
Localización: Argentina
Estado: Sin conexión
Puntos: 137
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita andressf Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 29/Septiembre/2021 a las 15:52
Se lo quité y anduvo una vez, ahora no me copia ninguno.

Dim rs As DAO.Recordset
Set rs = Forms!f_rev!F_Pedido_Revalida_Doc.Form.RecordsetClone
MsgBox rs.RecordCount

Do Until rs.EOF

sqlInsert = "INSERT INTO T_Reval_Pedido_Docen (id_Rev_Ped_PRD,localidad_doc_PRD) VALUES(" & rs!temp_ID_Nro_Rev_Doce & ",'" & rs!localidad_doc & "')"
DoCmd.RunSQL sqlInsert
rs.MoveNext
Loop

rs.Close
Set rs = Nothing

Arriba
xavi Ver desplegable
Administrador
Administrador
Avatar
Terrassa-BCN

Unido: 10/Mayo/2005
Localización: Catalunya ||||
Estado: Sin conexión
Puntos: 14041
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita xavi Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 30/Septiembre/2021 a las 11:36
Imagino que te encuentras en esta secuencia de hechos:

- abres el formulario 
- ejecutas el código para un registro: funciona
- te mueves a otro registro
- ejecutas el código: no funciona
- sales del formulario
- vuelves a entrar
- ejecutas el código: funciona
- te mueves a otro registro
- ejecutas el código: no funciona

Si ese es el escenario es porque el Recordset se queda al final de los registros y, al volver  lanzar el código, la evaluación del rs.EOF es verdadero y no se ejecuta.

Prueba poniendo un rs.MoveFirst antes de cerrar el recordset (línea rs.Close)


Xavi, un minyó de Terrassa

Mi web
Arriba
 Responder Responder Página  <12
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable