Access - ayuda con update lento

hola necesito de su ayuda tengo una funcion de actualizacion de una tabla a otra mediante DAO de unos 630 registros y la ejecucion demora de 20 a 30 segundos ademas de que mi aplicacion lo tengo como cliente servidor

Function actsalv()
Dim rs As DAO.Recordset
Dim xy, xz As String
xz = "update vacacionesp set dias=0"
CurrentDb.Execute xz
xy = "SELECT p.año,p.id,sum(e.dias) as tdias from vacacionesp as p inner join vacacionese as e on p.id=e.id and p.año=e.año group by p.año,p.id,p.dias"
Set rs = CurrentDb.OpenRecordset(xy)
rs.MoveFirst
While Not rs.EOF
xz = "update vacacionesp set dias=" & rs!TDIAS & " where año=" & rs!AÑO & " and ID =" & rs!ID
CurrentDb.Execute (xz)
rs.MoveNext
Wend
rs.Close
Set rs = Nothing
End Function

quisiera que vieran el codigo y me digan en que esta mal o que puedo mejorar

Atte,

manuel

Tu función de actualización parece estar funcionando correctamente, pero hay algunas áreas que podrían optimizarse y simplificarse. Aquí tienes una versión mejorada del código:


Cambios realizados:

1. En lugar de dos consultas independientes para actualizar y luego sumar los días, combinamos ambas operaciones en una sola consulta de actualización. Esto reduce la necesidad de iterar a través de los registros en la base de datos y disminuye el tiempo de ejecución.

2. Usamos una consulta `UPDATE` con un `INNER JOIN` para realizar la actualización de los días en la tabla `vacacionesp` basada en la suma de la tabla `vacacionese`.

3. Agregamos un bucle `While` para recorrer los años en la tabla `vacacionesp`. Esto podría ser útil si necesitas realizar cálculos adicionales o procesamientos específicos para cada año.

4. Utilizamos variables más descriptivas para las consultas SQL (`strSQL`) y aprovechamos la funcionalidad de concatenación de líneas para mejorar la legibilidad.

5. Añadimos comentarios para ayudar a entender la lógica del código.

Asegúrate de adaptar y ajustar el código según las necesidades específicas de tu aplicación. Recuerda que el rendimiento puede verse afectado por la cantidad de datos en las tablas y otros factores del entorno.