[Resolvido]Dlookup com dados de consulta

Olá colegas!


é possivel utilizar o recurso Dlookup em informações das consultas?

Podem dar um exemplo de linha de código, por favor!


Grato!

Esta é a instrução:

DLookup("SeuCampo", "SuaConsulta")

Se for com criterio Numerico será;

DLookup("SeuCampo", "SuaConsulta", "SeuCampo=" & SuaVariavel)

Se for com criterio Texto será;

DLookup("SeuCampo", "SuaConsulta", "SeuCampo='" & SuaVariavel & "'")

oi Jpaulo,

Estava respondendo pra vc, mas caiu a rede, só voltou agora.


desculpe-me por postar em grupos diferentes o assunto similar, não sabia que estva infringindo.


Em relação ao assunto, fiquei com dúvidas na questão de que seria minha variável.

Vê se pode me ajudar.

o que preciso é como frente de caixa de supermercado onde passo o código de barras e trás na linha;

Produto, Estoque, valor_custo em relação a uma vasta lista de produtos.

Onde Valor_custo e estoque é calculado e não está acoplado na tabela.

Por favor me dê uma força, pois preciso apresentar este projeto agora no próximo sábado, e só falta isso pra encerra-lo.

Grato.

Amigão a suavariavel seria o seu campo no formulario.

Por exemplo, quer que o dlookup busque o preço do produto x em que x está num campo do seu form.

Me.SeuCampoPreco= DLookup("Preco", "SuaConsulta", "Produto=" & Me.SeuCampoProduto)

Entendi Jpaulo!

Vou estar fazendo um teste ok!

Depois te dou um retorno,

Por enquanto muito obrigado!

Jpaulo,
Criei a consulta de produtos, marquei a opção soma do resumo e mesmo assim não trouxe a soma de estoque na consulta.

No modo desing na consulta digitei a fórmula nos campos valor de venda e de estoque mas deu erro.


"Você tentou executar uma consulta que não inclui a expressão especificada como parte de uma função de agregação. (Erro 3122) ".

vou ter que consultar alguns artigos e depois te dou a resposta, a não ser que haja uma outra forma de elaborar, ok

grato.

Não conheço a estrutura do seu banco nem entendi direito o que pretende fazer.

Boa tarde Jpaulo,

Não respondi por esses dias pois estava consultando alguns conteudos,

Se te passar o arquivo vc acerta pra mim, pois já tentei de várias formas, mas por meu conhecimento não consegui, concluir.

Prometo que após terminar tenho a obrigação de colaborar com este forum, pois tem me ajudado muito.

Estou buscando conhecimentos e pretendo aprimorar-me,

este projeto já foi um grande passo.

Posso te enviar o arquivo, pra dar uma olhada?

Este arquivo é uma parte ok,

Em qual form tem o seu problema ?

No form Saídas, esse que abre primeiro

No seu subformulario "DADOS_SAÍDA", no evento VBA depois de atualizar no campo "CODBARRAS", cole e teste;


Private Sub CODBARRAS_AfterUpdate()
Me.PRODUTO.Value = DLookup("Produto", "LISTA DE PRODUTOS", "CODBARRAS='" & Me.CODBARRAS.Value & "'")
Me.UN.Value = DLookup("Unidade", "LISTA DE PRODUTOS", "CODBARRAS='" & Me.CODBARRAS.Value & "'")
Me.ESTOQUE.Value = DLookup("ESTOQUE", "LISTA DE PRODUTOS", "CODBARRAS='" & Me.CODBARRAS.Value & "'")
End Sub

ok! vou testar,

Grato, por enquanto.

Jpaulo,

Ao testar, trouxe somente o nome do produto,

Pois os outros ítens não estão acoplados( valor de Venda e Estoque),

Tem outra forma pra quando os valores do form não estão acoplados na tabela?

Ou vou ter que acertar a tabela e form ou consulta e form?

Eu só lhe dei o caminho das pedras;

No seu formulario SAIDAS, introduza o codigobarras 7896061713002, bata enter, coloque a quantidade e veja o resultado.

Entendi, JPaulo.

Vou adaptar,fazer os acertos, ok, depois te dou a resposta.

Obrigado.

Valew, aguardo.

Bom dia JPaulo,

Então fiz as adaptações, por motivos de ter que somar as quantidades, médias de valores de compras(Valor de custo), preferi estruturar pelas consultas.

No momento que digita o código de barras,  a saída de produtos buscou legal os ítens,

mas o problema persistiu na baixa de quantidades, uma vez que a fórmula não conseguiu baixar a soma da quantidade destacada na consulta.

Até tentei adaptar pela que você me passou, mas não consegui resolver.

Veja como está:

obrigado!

Na sua tabela "lista de produtos", que é onde a instrução do Update vai dar baixa, onde está o campo ESTOQUE ?

Nessa tabela o amigo tem de ter o campo ESTOQUE, senão como é que quer dar baixa ?

Então,

como faço, porque as quantidades da da tabela lista de produtos estão todas fracionadas, um dia entra 10, outro entra 15, etc... e nesta tabela não consegui reunir o valor total como na consulta, e essas quantidades estão dentro da tabela detalhes_produtos que será a subform do form produtos.


resumindo: as Quantidades que preciso não estão dentro da lista de produtos,mas em sua sub detalhes_produtos( em quantidades diversas, 10, 05, 15, 25, e assim por diante)

por isso que fiz pela consulta, que já agrupa as quantidades e achei que poderia baixar por lá.

JPaulo,

Tem como pegar as quantidades da sub Detalhes_produtos e espelhar na tabela lista de produtos já com a soma do total dessas quantidades e depois utilizar neste novo campo ESTOQUE.

Ou trabalho com as informações como estão neste arquivo exemplo que te passei.

GRATO.

Ah, entendi,Jpaulo.


da mesma forma que você criou um código para dar a baixa,

temos que ter um código ligado na entrada dessa mercadoria.

E o campo Estoque seria somente um campo transitório e não acumulativo precisando de somas né, é isto??

A conclusão é que o banco está mal estruturado.

1º A tabela dos produtos têm de ter um campo Estoque.
2º A entrada de produtos, acresce na quantidade desse Estoque.
3º A saída de produtos tem de remover quantidade desse Estoque.

E só assim poderá ter uma banco funcional.

Pense nisso.

Entendi, vou estruturá-lo melhor,

Sei que o caminho que estava pegando estava errado, só entendi depois pelos seus exemplos e códigos utilizados.

Vou trabalhar melhor em cima deste banco depois só vou precisar da maneira que a entrada vai alimentar as quantidades no campo estoque da tabela Lista de Produtos, da maneira que você me orientou, ok.


JPaulo,mais uma vez sou muito grato pela força.

Vou fazer essas modificações depois volto o contato.

Muito obrigado.

Faça isso sim.

O sucesso de uma aplicação, é primeiramente desenhá-la em papel e somente depois construír.

Obrigado pelo retorno, precisando de novo dê um grito.

JPaulo, boa noite

Só uma dúvida,

Quando posto novo tópico e uma pessoa toma frente do assunto outra também pode entrar no assunto ou não?

Grato

Como não ?

Os 20.000 usuários poderão ajudar no mesmo tópico, não existe aqui tópicos privados.

Grato!

Campos.

eu desejo montar um formulário / relatório usando o dlookup, segui o exemplo acima porem da o erro 2471

a ideia e atraves de combox gerar o criterios pra preenchimento de uma text box

CTMETA1 = DLookup("[RECEITAMETA]", "VENDAS", "[MESES] = '" & MES & "' And [VENDEDOR] = '" & VENDEDOR & "'")