Bom gente, fui obrigado a mudar meu banco geral. Agora tenho somente uma tabela para movimentação de estoque, sendo:

 

Tabela DADOS

Campos:

Codigo - Quant - Status

O campo Status posicionei como (E)Entrada (S)Saida

Para listar somar e agrupar os codigos que houve saida, usei a instrução abaixo, funcionou.

Set Tbbaixas = BdBaixas.OpenRecordset("SELECT Codigo, Sum(Quant) AS TOTAL FROM Dados Where Status='S' GROUP BY CODIGO ", dbOpenSnapshot)

 

Agora preciso listar as entradas comparando os codigos, ou seja, listar somente se igual ao codigo de saida.Como faço?

 

Outro problema, preciso tambem listar a descrição do material, porém essa descrição esta em outra tabela, usei dessa forma:

Set TbPva = BdBaixas.OpenRecordset("SELECT DISTINCT Dados.Codigo,Localizacao.[Descrição]FROM Dados,Localizacao WHERE Localizacao.[Código]=Dados.Codigo", dbOpenSnapshot)

A instrução lista tudo, quero listar somente as com Status (S). Alguma sugestão?

 

Set Tbbaixas = BdBaixas.OpenRecordset("SELECT * FROM Dados

Where Status='E'  and dados.codigo = " & txt_codigo_digitado , dbOpenSnapshot)

Set Tbbaixas = BdBaixas.OpenRecordset("SELECT * FROM Dados, produto

Where Status='E'  and dados.codigo = " & txt_codigo_digitado & " and dados.codigo = produto.codigo", dbOpenSnapshot)

 

Observe que voce tem que colocar o arquivo no inicio do campo para ele saber qual esta se referenciando.

Este metodo não é muito bom pois se não existir um produto no cadastro de produto e esteja lancado no DADOS ele não sera exibido.

 

Set Tbbaixas = BdBaixas.OpenRecordset("SELECT * FROM Dados, produto,

dados left join produto on  produto.codigo = dados.codigo Where Status='E'  and dados.codigo = " & txt_codigo_digitado , dbOpenSnapshot)

Vou tentar dar um exemplo mais claro do que eu quero fazer:

 

Set TbIn = BdBaixas.OpenRecordset("SELECT DISTINCT Dados.Codigo, Inicial.QT FROM Dados,Inicial WHERE Inicial.Codigo=Dados.Codigo AND Dados.Status='S'", dbOpenSnapshot)

 

A instrução acima eu carreguei o estoque inicial comparando o codigo da tabela Inicial com o da tabela Dados juntamente com o Status que 'S' (saida), carregou normalmente porque são tabelas diferentes. Agora para a instrução abaixo, preciso carregar as entradas comparando o codigo de material e o Status de uma so tabela que é Dados. Do jeito que ela esta, carrega todas as entradas so que quero que carregue somente as entradas dos codigos que tiveram saidas comparando 'S' (saida) com 'E' (entrada). É possível?

 

Set TbEntrada = BdBaixas.OpenRecordset("SELECT Codigo,Sum(Quant) AS sEntrada FROM Dados Where Status='E' GROUP BY CODIGO", dbOpenSnapshot)