Antonio Perez B

Dim mySql As String Dim dbs As DAO.Database Dim rst As DAO.Recordset mySql = "SELECT Top 1 DNI, Consulta.FechaConsulta FROM Consulta WHERE DNI = 1018413461 ORDER BY FechaConsulta DESC" Debug.Print DNI, FechaConsulta Set dbs = CurrentDb Set rst =...

Me trabaja bien en año actual pero al cambiar el año de windows solo me hace el primer cambio a 2015 pero no ve detecta el ultimo registro y se queda en 000012015 no pasa a 000022015. Para mayor claridad les adjunto el link donde aloje el ejemplo....