[Resolvido]Função para Controle de Estoque

Boa tarde galera ! (preciso de uma pequena ajuda)

Estou desenvolvendo um controle de Estoque e tenho as seguintes tabelas:
TabClientes x TabProdClientes (relacionadas), ou seja cada cliente tem vários produtos e a quantidade pré cadastrados. Tanto é que no formulário de clientes, eu cadastro o nome do cliente e os produtos que serão exclusivo dele.

Tenho uma tabela de (pedidos) e outra (ítens do pedido) estão bem relacionadas com a tabela de clientes e a tabela de produtos. Até aí tudo bem.

Tenho um fomulário principal (nº do pedido, nome do func., data do pedido), e um subformulário: com (produto, preço, Qtd e valor). Gostaria de uma função pra eu colocar no botão de comando que fizesse o seguinte:
Vou cadastrar um novo pedido para um cliente, após selecionar esse cliente, gostaria que ao clicar nesse botão, a função já preenchesse automaticamente o (subformulário ítens do produto) com os produtos e a qtd. que já estão cadastradas para aquele cliente.
Não sei se fui claro, mas é exatamente isso que estou precisando, se alguém puder me ajudar, eu agradeço antecipadamente.

Boa tarde Marcos, Seja bem vindo ao Fórum!

Se o cliente ja tem os produtos que ele sempre compra, esta tabela deve estar relacionada com o cliente.

Pois Bem.
Em minha humilde opiniao, fazer uma consulta inclusão tendo como base esses produtos previamente cadastrado por cliente, e tendo como alvo a tabela detalhes do pedido.

nesta consulta teria critério para filtrar os produtos de acordo com a ID do CLiente no form.

Depois e so executá-la Com o comando:


DoCmd.OpenQuery "SuaConsulta"

Cumprimentos.

Boa tarde Harysohn!

Fiquei grato pela resposta e fiz extamente como vc. sugeriu:
*tabela cliente relacionada com a tabela de produtos fixos.
*tabela cliente relacionada com a tabela de vendas
*tabela cliente relacionada com a tabela de Ítens
*tabela Produtos relacionada com a tabela de Ítens
fiz também uma consulta acréscimo (como vc. me orientou)
desenvolvi uma função que está no botão ("gerar lançamentos", no Frm_Vendas)
isso para inserir os produtos relacionados com a Id_Cliente)

Mas quando fiz os teste o sistema reclamou e uma relação entre tabelas
fiz várias mudanças aqui mas não obtive êxito. Tomei a liberdade de enviar o banco pro seu e-mail(hotmail)
se você puder me dá uma força aí, eu ficaria muito agradecido.

No cadastro de Clientes, existem 2 clientes que estão com os produtos fixos, são eles:
00001-COLÉGIO SANTA RITA
00002-AMANTINO DROGARIA
faça um teste no no formulário (Frm_Vendas)

Cumprimentos.

Estas a fazer muitas consulta sem necessidade creio eu.

Vamos La....

Modifiquei alguns relacionamentos
Ficou assim agora


TabelaCliente x TabelaProdutosFixos (para relacionar os produtos que sao fixos por cliente

TabelaProdutos x TabelaProdutosFixos (Assim pode fazer consultas utilizando o nome dos produtos.

Com este relacionamento criei uma consulta:
CnsCliente_Fix_Produtos (Nesta consulta utilizei as tres tabelas - CLiente/Produtos/ProdFixos)
Abra e verás que aparece o nome do cliente, seu produto fixo e o nome do mesmo


No Form de vendas, na cbo ID_Cliente, retirei a consulta Filtro_Clientes e na origem da linha a propria consulta, assim nao precisa fazer consultas graficas desnecessária:
SELECT Tabela_Clientes.Id_Cliente, Tabela_Clientes.Nome_Cliente FROM Tabela_Clientes;

- Exclui a tabela ConsultaItens, o sub form pode ser baseado diretamente na tabela. Evite criar consultas desnecesárias

Criei uma caixa texto no form que recebe a id do cliente apõs atualizar a combo, esta id é utilizada na consulta inclusao.

Apos atualizar da combo executo a consulta inclusão


Private Sub Id_Cliente_AfterUpdate()
Me.txtID = Me.Id_Cliente.Column(0)
DoCmd.RunCommand acCmdSaveRecord
'DoCmd.SetWarnings False
DoCmd.OpenQuery "CnsCliente_Fix_Produto"
'DoCmd.SetWarnings True
Me.Frm_Itens.Requery

End Sub


Mas o grosso esta ai.



http://dl.dropbox.com/u/26441349/MarcosCDMA_21_05.rar

Cumprimentos.

Prezado Harysohn:

Fiz uns ajustes aqui e os também alguns testes, tudo funcionou da forma como eu esperava.
É com grande satisfação que quero agradecer sua atenção,
com relação a ajuda que lhe pedi no Sistema,
e quado você precisar, espero retribuir da mesma forma.

Obrigado.
Um grande abraço

O Fórum agradece o Retorno.

********* So faltou clicar no resolvido acima do botão enviar. Desta vez eu coloco como resolvido.
Não se esqueça de clicar no joinha da msg que o auxiliou.
Cumprimentos.