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]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.
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6391
    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)
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6391
    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.
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6391
    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)
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6391
    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 8 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: Sex 22 Set 2017, 07:21