[Resolvido]Acrescentar dias entre duas datas

Banco de dados: Access

Tabela: tblAusencias

Campos: ID(Tipo: Numeração automática), DT(Tipo: Data), DiaSemana(Tipo: Texto curto) e Descrição (Tipo: Texto Curto)

Preciso acrescentar na tabela as ausências de Férias, Licença saúde, Folgas, etc...

Desejo automatizar esses acréscimos informando Data Inicial, Data Final e Descrição.

Pode ser por macro ou uma consulta acréscimo...

Gostaria de contar com a ajuda de vocês!

Resolvi assim:

Dim dtIni As Date, dtFin As Date, j As Long, N As String, De As String

dtIni = VBA.Format(Me.dtIni, "Short Date")
dtFin = VBA.Format(Me.dtFin, "Short Date")
N = Me.nDias
De = Me.Descricao

DoCmd.SetWarnings False

For j = 1 To N
CurrentDb.Execute "INSERT INTO tblAusencias(DataFeriado, Semana, Descrição)" _
& " Values(""" & Format(dtIni, "dd/mm/yyyy") & """,""" & WeekdayName(Weekday(dtIni)) & """," _
& """" & De & """);"

dtIni = dtIni + 1
Next j

DoCmd.SetWarnings True

MsgBox j + 1 & " resgistros Salvos", 64, "Sucesso"

Olá Muca,

Obrigado pelo retorno, o fórum agradece.

Abraço