[Resolvido]Ponto de Venda e Produtos

Bom dia a Todos,

Estou com algumas duvidas e gostaria de ajuda;

Tenho 1 Formulario de Produtos (CodProduto, Descriçaõ, Itens, Estoque ...)
Tenho 1 Formulario de Vendas (CodVenda, Codproduto, Total .....)

Queria uma ajuda de como fazer com que ao digitar o codigo do Produto ou venda mostrasse os itens cadastrados. Analisei o BD do Diego Construções, mas nao consegui entender muito. Poderiam de ajudar?

Segue o meu Banco de DADOS ->>

http://www.megaupload.com/?d=EOGW1VTA

DLookup may be the way to go. Dê uma olhada aqui:

http://maximoaccess.forumeiros.com/t1533-funcao-dlookup-explicacao?highlight=dlookup+vieira

Olá Criquio Obrigado por responder, estou tentando fazer mas nao estou conseguindo

Por Ex. No meu FormularioVendas ao digitar o CodigoProduto quero que apareça os itens correspondentes a ele entao fiz assim:


Ao Atualizar

Private Sub CodigoProduto_AfterUpdate()
Me.CodigoProduto = DLookup("Itens", "tblProduto", "CodigoProduto=" & Me.CodigoProduto)

End Sub

Estou disponibilizando meu BAnco Para analisarem -->>> http://www.megaupload.com/?d=MGAB7ECP

Estou meio atarefado para ver agora, mas a sintaxe do DLookup é simples. Vamos supor que sua tabela se chama tblClientes e nela tem os campos Código, Nome, CPF e Telefone. Como o seu formulário provavelmente é vinculado à tabela, os nomes dos campos devem ser os mesmos da consulta, mas para melhor entendimento, irei colocar um txt antes do nomes para melhor visualização: txtCódigo, txtNome, txtCPF e txtTelefone. Isso vai facilitar para você saber se o campo está na tabela ou no formulário. Então, no clique do seu botão, após digitar o código do cliente que quer pesquisar, coloque:

Me.txtNome = DLookup("Nome", "tblClientes", "Código=" & Me.txtCódigo)
Me.txtCPF = DLookup("CPF", "tblClientes", "Código=" & Me.txtCódigo)
Me.txtTelefone = DLookup("Telefone", "tblClientes", "Código=" & Me.txtCódigo)

Basta observar os campos e os nomes deles e da tabela e substituir pelos seus.

Olá Criquio obrigado por responder, se tiver um tempo tire uma duvida

Minha duvida é o seguinte
se eu tenho um formulario VENDA e quero que ao digitar o codigo do produto no formulario Venda mostra-se os itens cadastrados a sintaxe é a mesma?

Desculpa por não estar compreendendo, mais estou a uma semana tentado fazer isto e não saio do lugar.

Vou ler a instrução da linha abaixo para ver se clareia um pouco:

---

Me.txtNome = DLookup("Nome", "tblClientes", "Código=" & Me.txtCódigo)

Escreva no campo txtNome, o valor que está no campo Nome da tabela tblClientes no registro aonde o Código é igual ao que eu digitei no campo txtCódigo.

---

ou ainda assim:

---

              Me.txtNome = DLookup(                "Nome",        "tblClientes",                  "Código=" &                             Me.txtCódigo

Escreva no campo txtNome, o valor que está no campo Nome da tabela tblClientes no registro aonde o Código é igual ao que eu digitei no campo txtCódigo.

obrigado Criquio por Responder, mas infelizmente não estou conseguindo entender esta parte de Txt. Me desculpe mas nao estou conseguindo mesmo.

Olá a Todos, então estou tentando fazer assim no meu Formulario de Vendas no codigoProduto para mostrar os produtos em questao:

Evento Apos Atualizar



Private Sub CodigoProduto_AfterUpdate()
Me.itens = Dloockup("tblProduto", "itens", "CodigoProduto=" & Me.codigoProduto)

End Sub

e esta dando este erro-->>> Erro de Compilação 'Sub' ou 'Function' Não Definida

Tente assim:

Me.itens = Dloockup("itens", "tblProduto", "CodigoProduto=" & Me.codigoProduto)

Observe que antes do sinal de igual, você coloca o campo que irá receber o valor. Depois do sinal de igual, a ordem é: Campo da tabela que tem o valor que você quer, Nome da tabela, Campo da tabela que contem o código que você quer e Campo do formulário aonde você digitou ou aonde está esse código.

Olá Criquio Obrigado mais uma vez por responder

Fiz o procedimento que recomendou

Private Sub CodigoProduto_AfterUpdate()
Me.itens = Dloockup("itens", "tblProduto", "CodigoProduto=" & Me.codigoProduto)

End Sub

Mas ainda continua com a mensagem

Erro de Compilação 'Sub' ou 'Function' Não Definida

Agora que vi que tem um "c" a mais na instrução aí: Dloockup. Retire ele e tente novamente.

Deu Certo Criquio Obrigado,

Só mais uma duvida exemplo:

Se eu digitar o codigoProduto ira aparecer o item referente aquele codigo...,
mas se eu quiser que, alem de aparecer o item, quando for digitado o proximo codigoProduto também mostrasse o item, como se fosse em uma venda de Supermercado ou uma planilha?

Você quer incluir vários produtos ou coisa assim em uma lista, é isso mesmo? Se for isso, você precisará de um formulário contínuo. Nas propriedades do formulário, na aba Formato, tem a linha "Modo padrão", tem os modos que você pode usar. Basta colocar "Formulário contínuo".

Olha Criquio Bom dia,

Para fazer o formulario continuo apenas dos campos Itens PreçoVenda e Quantidade, Tenho que fazer em outro formulario ou subFormulario?

Ja que quando altero para formulario continuo todos os campos são alterados?

Tem como alterar apenas os que caro que sejam continuo?

Olha só, para desenvolver um banco de dados eficiente no Access, precisamos saber alguns conceitos fundamentais. Como não sei até aonde você foi nos seus estudos, vou passar aqui dois links que talvez possam te ajudar a compreender melhor esse pontos:

http://maximoaccess.forumeiros.com/t3847-discutindo-relacoes-entre-tabelas

http://maximoaccess.forumeiros.com/t1101-relacionamento-de-tabelas

A leitura é rápida, pois não é muita coisa mas bem explicativa.

Olá Criquio muito obrigado. Já estou estudando sobre o assunto

Resolvido