[Resolvido]Modulo para consulta de manufatura

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.

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

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.

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;

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.

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

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.

Boa tarde,
Aqui vai

Alexandre,


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

Vou encerrar este tópico.