# Lento al ejecutar Recordset

[Inicio](https://www.todoexpertos.com/) › [Microsoft Access](https://www.todoexpertos.com/temas/microsoft-access) › [Visual Basic](https://www.todoexpertos.com/temas/visual-basic)

- Fecha de publicación: 2020-02-10
- Enlace canónico (HTML): https://www.todoexpertos.com/preguntas/adsouvmplfvlexbf/lento-al-ejecutar-recordset

## Pregunta

*Por escoper45* · 2020-02-10

Tengo este codigo que compra 2 tablas diferentes Tbl_ComprasDet compara con apartadosCOtiCompraCompara si el codigo es igual y tiene una cantidad que lo agrege ala tabla Tbl_ComprasDetlo hace pero se tarda mucho en mas de 50 registro Dim numeroA As StringnumeroA = Me.Codigo.Value'Otra forma es usar un Recordset directo a la tablasDim rs As DAO.Recordset 'Creamos el recordset dao Set rs = CurrentDb.OpenRecordset("SELECT * FROM Tbl_ComprasDet WHERE NrPedidoDet = " & numeroA, dbOpenDynaset)Me.Refresh 'Refrescamos la vistars.MoveFirst 'Nos movemos al inicioDo While Not rs.EOF 'Verificamos que no hemos llegado al finalrs.Edit 'Editamos los registrosrs!Qtdeapar = Nz(DCount("Catapartado", "apartadosCOtiCompra", "[Nopieza]='" & rs!CodProducto & "'"), 0)rs.Update 'Actualizamosrs.MoveNext 'Nos movemos al siguiente registroLoop 'Hacemos el bucle de nuevors.Close 'Cerramos la variableSet rs = Nothing 'Dejamos la variable sin inicializarMe. Refresh 'Refrescamos la vista

## Respuestas (0)

_Esta pregunta aún no tiene respuestas._

---
*Fuente: [https://www.todoexpertos.com/preguntas/adsouvmplfvlexbf/lento-al-ejecutar-recordset](https://www.todoexpertos.com/preguntas/adsouvmplfvlexbf/lento-al-ejecutar-recordset) — consultado el 2026-10-22. Al citar, enlaza la URL canónica e indica la fecha de consulta.*