[Resolvido]Incluir dados em Tabela utilizando um loop

Pessoal Bom dia !
Mais uma vez venho pedir o Auxilio de vocês

Tenho um sistema de agendamento de férias, e estou precisando gerar gráficos, porem com os dados que tenho não estou
conseguindo.
eu tenho a Data Inicio das férias e a Data Fim, e eu preciso que o sistema mostre o gráfico total de todas as datas, não sei como fazer isso.
então estou seguindo a ideia de um amigo aqui do trabalho.

porem ainda não consegui a façanha.
que é criar um Loop que preencha as datas do inicio até o final em uma tabela ( data Inicio / Entre as datas /Data Fim)

Criei um Loop que me mostra as datas porem não sei como Incluir estas datas em uma tabela . vejam o código


Private Sub DtaFim_AfterUpdate()

Dim dtInicio As String
Dim dtFinal As String

dtInicio = DtaInicio
dtFinal = DtaFim

intDias = DateDiff("d", dtInicio, dtFinal)

For X = 1 To intDias - 1
MsgBox DateAdd("d", X, dtInicio)


Next

End Sub


Se alguém souber como Incluir as datas em uma tabela agradeço

Em primeiro lugar meu caro Jerecardoso, não foi VOCÊ quem criou esse código, eu te passei em outro tópico
http://maximoaccess.forumeiros.com/t20212-maiusculas-em-novos-registos

Aliás, já é o terceiro tópico que você abre com o mesmo questionamento.
Espero que os administradores do Fórum estejam vendo isso.

Você deve ser desses profissionais que Sugam os códigos dos outros e leva todo o Crédito. Lamentável isso.
Mesmo assim vou te passar um código que pode te auxiliar e tenta ser mais profissional da próxima vez.

Código:

Dim dtInicio As String
Dim dtFinal As String

dtInicio = DtaInicio
dtFinal = DtaFim

intDias = DateDiff("d", dtInicio, dtFinal)

For X = 1 To intDias - 1

DoCmd.SetWarnings False ' Aqui eu desligo o aviso de alteração na tabela
DoCmd.RunSQL "insert into AquiSuaTabela (Nomedocampodata) values ('"&  dtInicio &"')"
DoCmd.SetWarnings True ' Aqui eu ativo os avisos de alterações em tabelas


Next

Amigão
valeu mesmo

mais cedo no trampo com um Código que você mesmo me tinha dado, fiz umas loucuras e deu certo
mas vou tentar o seu também
abraço..

segue o Codigo que eu Criei com sua ajuda.

Dim BCO As Database
Dim TAB1 As Recordset
Dim dtInicio As Date
Dim dtFinal As Date
Dim strNome As String



strNome = IncluirNome
dtInicio = DtaInicio
dtFinal = DtaFim

If Me.IncluirNome > 0 Then


intDias = DateDiff("d", dtInicio, dtFinal)

For X = 0 To intDias

' MsgBox DateAdd("d", X, dtInicio)

Set BCO = CurrentDb()
Set TAB1 = BCO.OpenRecordset("Tabelates")

TAB1.AddNew
TAB1![datas] = DateAdd("d", X, dtInicio)
TAB1![Nome] = "" & Me.IncluirNome & ""

' MsgBox DateAdd("d", X, dtInicio)
TAB1.Update

End If
Next


End Sub

Parceiro Quando respondi sua postagem não notei oque voc~e postou mas Bele
Olha peguei o Codigo que você me postou e tentei varias vezes e não consegui ai depois de algumas tentativas fiz algumas mudanças e ai esta
obrigado pela sua ajuda de sempre
abraço

dia = Me.Numerodias
fim = DateAdd("d", dia - 1, Datainicio)
Me!DataVolta = Format(fim, "dd/mm/yyyy")
Me.DataVolta.Requery
'Me.DataFim = Me.Datainicio + 29
Me.btSalvar.SetFocus

Dim dtInicio As String
Dim dtFinal As String

dtInicio = DtaInicio
dtFinal = DtaFim

intDias = DateDiff("d", Datainicio, DataVolta)

For X = 0 To intDias

DoCmd.SetWarnings False ' Aqui eu desligo o aviso de alteração na tabela
DoCmd.RunSQL "insert into TabLinhaTempo (Codigo,Nome,Data) values ('" & CodCadastro & "' , '" & Nome & "' , '" & DateAdd("d", X, Datainicio) & "')"
DoCmd.SetWarnings True ' Aqui eu ativo os avisos de alterações em tabelas