MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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

    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, 07: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

    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, 12: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"

    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, 19: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

    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, 07: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: Sab 10 Dez 2016, 04:55