MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    [Resolvido]Consulta de Acréscimo e Update via VBA

    avatar
    lspetrucci
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 23/12/2019

    [Resolvido]Consulta de Acréscimo e Update via VBA Empty [Resolvido]Consulta de Acréscimo e Update via VBA

    Mensagem  lspetrucci em 23/12/2019, 14:23

    Bom dia Pessoal!!!!

    Estou precisando de uma grande ajuda dos mestres do Access.

    Minha situação é a seguinte:

    1 - Eu tenho uma tabela chamado "Gerar" com os campos:

    ID -> AutoNumber
    Data_carga -> Date/Time
    Hora_carga -> Date/Time
    IP    -> String
    SN         -> String
    Loja       -> String
    Status     -> String

    2 - Tenho uma cópia exata da tabela "Gerar" com o nome "Gerar_Historico" com os mesmos campos.

    ID -> AutoNumber
    Data_carga -> Date/Time
    Hora_carga -> Date/Time
    IP    -> String
    SN         -> String
    Loja       -> String
    Status     -> String


    Explicação:

    Na tabela "Gerar" é feito um importação de dados várias vezes por dia de uma planilha do Excel que é atualizada. Toda vez que é feito está importação todos os registros são excluídos primeiros para depois fazer import. (Isto está funcionando 100% e não preciso mudar por enquanto)

    O que eu preciso fazer:

    Após a importação dos dados na tabela "Gerar" eu preciso fazer uma consulta de acréscimo e/ou update em VBA da seguinte forma:

    Acrescimo na tabela Gerar_historico
    ===========================
    Da tabela "Gerar" para tabela "Gerar_historico" quando:

    - Os registros dos campos "Data_carga" e "Hora_carga" da tabela "Gerar" forem diferente dos registros "Data_carga" e "Hora_carga" da tabela "Gerar_historico"
     
     
    Update na tale Gerar_historico
    ==========================
    - Os registros do campo ("SN") da tabela Gerar foi igual aos registro do campo ("SN") da tabela Gerar_historico

    - Os registros do campo ("Data_carga") da tabela "Gerar" for igual aos registros do campo ("Data_carga") da tabela "Gerar_historico" e os registros do campo ("Hora_carga") for maior do que o campo ("Hora_carga") da tabela "Gerar_historico"


    Muito obrigado.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6905
    Registrado : 15/03/2013

    [Resolvido]Consulta de Acréscimo e Update via VBA Empty Re: [Resolvido]Consulta de Acréscimo e Update via VBA

    Mensagem  ahteixeira em 25/12/2019, 11:21

    Olá Luciano, seja bem vindo ao fórum.

    Creio que é uma situação semelhante, veja como foi efetuado neste tópico:
    https://www.maximoaccess.com/t19615-resolvidoatualizacao-automatica-na-importacao-access-excel

    Abraço
    avatar
    lspetrucci
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 23/12/2019

    [Resolvido]Consulta de Acréscimo e Update via VBA Empty [Resolvido]Consulta de Acréscimo e Update via VBA

    Mensagem  lspetrucci em 27/12/2019, 14:49

    ahteixeira;

    Bom dia!

    Resolveu a minha vida!!! Muito obrigado. cheers cheers cheers
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6905
    Registrado : 15/03/2013

    [Resolvido]Consulta de Acréscimo e Update via VBA Empty Re: [Resolvido]Consulta de Acréscimo e Update via VBA

    Mensagem  ahteixeira em 27/12/2019, 15:30

    Olá Luciano Petrucci, obrigado pelo retorno.

    Fico feliz por a solução de 2014 a outro colega o ter ajudado.

    Por isso já sabe, tentar sempre uma "Busca" aqui do fórum, veja como fazer:
    https://www.maximoaccess.com/t1115-busca-no-forum-search

    Abraço

      Data/hora atual: 19/10/2020, 15:26