MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Incluir dados em Tabela utilizando um loop

    Compartilhe
    avatar
    Jerecardoso
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 79
    Registrado : 12/07/2013

    [Resolvido]Incluir dados em Tabela utilizando um loop

    Mensagem  Jerecardoso em Seg 25 Ago 2014, 03:03

    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
    avatar
    LiveBrain
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 15/05/2011

    Re: [Resolvido]Incluir dados em Tabela utilizando um loop

    Mensagem  LiveBrain em Seg 25 Ago 2014, 08:04

    Em primeiro lugar meu caro Jerecardoso, não foi VOCÊ quem criou esse código, eu te passei em outro tópico
    [Você precisa estar registrado e conectado para ver este link.]

    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


    .................................................................................
    Abraços

    Live Brain Tutoriais

    "Fraca é a pessoa que não conhece a força que possui nos amigos"
    avatar
    Jerecardoso
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 79
    Registrado : 12/07/2013

    Re: [Resolvido]Incluir dados em Tabela utilizando um loop

    Mensagem  Jerecardoso em Seg 25 Ago 2014, 15:48

    Amigão
    valeu mesmo Very Happy

    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
    avatar
    Jerecardoso
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 79
    Registrado : 12/07/2013

    Re: [Resolvido]Incluir dados em Tabela utilizando um loop

    Mensagem  Jerecardoso em Qui 23 Out 2014, 04:04

    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


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver esta imagem.] É isso ai [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Seg 25 Set 2017, 19:21