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]Modulo para consulta de manufatura

    Compartilhe

    Tiago.Martins
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 20/08/2014

    [Resolvido]Modulo para consulta de manufatura

    Mensagem  Tiago.Martins em Qui 21 Ago 2014, 11:00

    Boa Dia! Alguém pode me ajudar?
    Tenho duas tabelas. A primeira tem as seguintes informações: Data do Movimento, Código do Item e Quantidades Produzidas. Nesta tabela os dados são incluídos diariamente, pois é a informação do que foi produzido no dia.
    A segunda tem o Data da Inclusão ou Alteração, Código do Item e Padrão Horário. A segunda pode-se dizer que é uma tabela de cadastros e as informações são atualizadas ocasionalmente e isto pode demorar dias ou meses. Será alterada quando houver alteração no Padrão Horário ou inclusão de um novo item. Lembrado que há alteração o Padrão horário não é alterado e sim incluído um novo valor para o mesmo item com data diferente. Então nesta tabela posso ter um mesmo item com 10 cadastros com Padrão Horário e Datas diferentes.
    Montei uma consulta com todos os dados da primeira tabela. Agora preciso trazer o Padrão Horário da segunda tabela para esta consulta. Como faço para não perder o histórico de alteração ?
    Desde já agradeço.

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

    Re: [Resolvido]Modulo para consulta de manufatura

    Mensagem  Alexandre Neves em Qui 21 Ago 2014, 14:18

    Boa tarde, bem-vindo ao fórum
    Disponibilize dados de trabalho. Se forem sensíveis, altere-os mas mantenha-os representativos.


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Tiago.Martins
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 20/08/2014

    Material Disponibilizada

    Mensagem  Tiago.Martins em Qui 21 Ago 2014, 15:03

    Boa tarde!

    Estou enviando o Banco de Dados com as duas tabelas e a consulta e um anexo em Excell de um exemplo de como a consulta deveria ficar.

    Obrigado pela resposta.
    Anexos
    BD.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (22 Kb) Baixado 4 vez(es)

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

    Re: [Resolvido]Modulo para consulta de manufatura

    Mensagem  Alexandre Neves em Qui 21 Ago 2014, 16:05

    Coloque, em modo SQL:
    SELECT Tab_ProducaoDiaria.*, PadraoHorario
    FROM Tab_ProducaoDiaria LEFT JOIN Tab_Tempos ON Tab_ProducaoDiaria.DataProducao=Tab_Tempos.DataTempos and Tab_ProducaoDiaria.Item=Tab_Tempos.Item;


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Tiago.Martins
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 20/08/2014

    SQL testado

    Mensagem  Tiago.Martins em Qui 21 Ago 2014, 16:52

    Alexandre,

    Agradeço, mas ainda não é isto. Neste procedimento ele retornou valores quando as datas das duas tabelas são iguais. Quando não coincidir deverá retornar os valores da última alteração. Exemplo: Nos três primeiros registro deverá retornar o número 58,00. Do quinto registro ao sétimo repetir o 55,0. a partir do oitavo até décimo terceiro 60,0 e assim por diante.

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

    Re: [Resolvido]Modulo para consulta de manufatura

    Mensagem  Alexandre Neves em Qui 21 Ago 2014, 21:14

    Num módulo, cole
    Option Compare Database
    Option Explicit

    Function intPadrao(dtData As Date, strItem As String) As Integer
       '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
       '   código criado por Alexandre Neves, do Fórum MaximoAccess                                                '
       '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
       On Error Resume Next
       Dim Rst As DAO.Recordset
       Set Rst = CurrentDb.OpenRecordset("SELECT PadraoHorario FROM Tab_Tempos WHERE Item='" & strItem & "' and DataTempos<=#" & Format(dtData, "mm-dd-yyyy") & "# ORDER BY DataTempos DESC;")
       intPadrao = Rst(0)
       Set Rst = Nothing
    End Function

    SQL da consulta
    SELECT Tab_ProducaoDiaria.*, intPadrao(DataProducao,Item) AS PadraoHorario FROM Tab_ProducaoDiaria


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Tiago.Martins
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 20/08/2014

    Testado o Módulo

    Mensagem  Tiago.Martins em Sex 22 Ago 2014, 02:12

    Alexandre, boa noite!

    Devo ter feito alguma coisa errada porque não deu certo. Segue anexo o BD para análise. Você consegue visualizar onde está o erro?

    Obrigado pela atenção.
    Anexos
    BD.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (18 Kb) Baixado 3 vez(es)

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

    Re: [Resolvido]Modulo para consulta de manufatura

    Mensagem  Alexandre Neves em Sex 22 Ago 2014, 16:19

    Boa tarde,
    Aqui vai
    Anexos
    BD.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (79 Kb) Baixado 4 vez(es)


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Tiago.Martins
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 20/08/2014

    Módulo Testado

    Mensagem  Tiago.Martins em Sex 22 Ago 2014, 16:29

    Alexandre,


    Muito obrigado pela ajuda. É isto mesmo que eu precisava. Sua ajuda foi de grande valia.

    Vou encerrar este tópico.

      Data/hora atual: Qui 08 Dez 2016, 14:08