Access - Asignar valor por dia en intervalo entre fechas

Option Compare Database

Option Explicit

Public Sub GenerarTablaTemporarl()

    Dim Rst1 As DAO.Recordset, Rst2 As DAO.Recordset

    Dim Fecha As Date, miSQL As String

    miSQL = "DELETE * FROM Tabla_Temp;" 'SQL para borrar los datos de la tabla temporal

    DoCmd.SetWarnings False 'Desactivamos los avisos

    DoCmd.RunSQL miSQL 'Ejecutamos la consulta de eliminación

    DoCmd.SetWarnings True 'Activamos los avisos

    'Abrimos las dos tablas

    Set Rst1 = CurrentDb.OpenRecordset("Tabla_1")

    Set Rst2 = CurrentDb.OpenRecordset("Tabla_Temp")

    Do While Not Rst1.EOF   'Hasta que llegemos la final de la Tabla1

        For Fecha = Rst1!Inicio To Rst1!Fin 'recorremos las fechas del inicio al fin

            Rst2.AddNew 'para cada una de ellas creamos un registro en la tabla temporal

            Rst2!Clave = Rst1!Clave 'llenamos los campos

            Rst2!Fecha = Fecha

            Rst2!Horas = Rst1!Hrs_Día

            Rst2.Update  'Guardamos en nuevo registro

        Next

        Rst1.MoveNext

    Loop

    'Cerramos las dos tablas

    Rst1.Close

    Rst2.Close

    'Vaciamos las variables de objeto

    Set Rst1 = Nothing

    Set Rst2 = Nothing

End Sub