[Resolvido]Atulizar consulta atraves do vba

Boa tarde Senhores!

Estou tentando adicionar dados a uma tabela através do formulário que não está acoplado.

O projeto trabalha da seguinte forma:

Ao clicar novo, habilita os botões e me permite escolher os produtos de uma listbox.
Ao duplo click adiciono esses produtos em outra list box mas ele não atualiza o saldo de minha consulta.

Como não sei muito, descrevo que é como se a linha estivesse aberta.
Ex.: um subformulário não passou para a linha debaixo e por isso não fez a atualização.


Em resumo o que preciso é fazer que a cada adição do produto ele atualize meu saldo antes que eu escolha um novo produto.


Obrigado

lpdias, precisa postar uma parte do código VBA, para analisarmos.
Se está usando desacoplamento.
Conexão com o BackEnd: ADODB
Se está usando Classes ou Módulos...


Att.

Boa noite Leandro,

Eu conheço este sistema, pois eu desenvolvi...rsss
O formulário é todo desacoplado e só vai efetivar a gravação dos dados ao clicar no botão Salvar.
Que eu me lembro, acho que é isso.

Att,
FIM

Boa noite Alexandre isso mesmo....
Eu procurei como doido algo que tivesse o cupom e queria tentar copiar para o que já tenho.
Entretanto a complexidade que encontrei foi tão grande pra mim, que resolvi tentar usar sua base por completo.
Estava td bem, até eu inventar de não permitir retirar um produto do estoque se o saldo no campo quantidade for maior que o saldo.

Fuçando pra lá e pra cá fui chegando a conclusão que não conseguiria fazer a atualização dos itens sem que o botão gravar fosse acionado.
Por isso mudei algumas coisas e aproveitei outras.



Dupliquei as tabelas e formulário, fazendo um de entradas.
Com uma consulta de soma de entradas e outra com soma de saidas, gerei a terceira que é o estoque.
assim sendo alterei o formulário pesquisa para buscar o que eu queria na tabela estoque, e no campo qtd inseri o seguinte código:

Dim varestoque As Integer
varestoque = DLookup("[estoque]", "CsestoqueLoja", "[txtean]= " & Me![txtean] & "")
If txtQtde.Value > varestoque Then
MsgBox ("Estoque insuficiente. Estoque atual desse produto: " & varestoque & ""), vbInformation, "Estoque de insuficiente"
DoCmd.CancelEvent
End If

Ainda sim encontro problemas, pois quando digito a quantidade eu acho que ele está buscando o que tem o mesmo saldo, sem contar que dependendo da ocasião fica negativo.




Alexandre, se você conseguir me ajudar, respeitando o seu modelo, eu agradeceria muito.

Abraço

Cara,

Por gentileza, envia uma cópia do bd para analise e solução do problema.

VAleu

Att,
FIM

Alexandre, segue aqui o link.

https://www.dropbox.com/s/jyk1hjxmfw0yi5h/Database1.accdb?dl=0

Leandro bom dia,

inventar de não permitir retirar um produto do estoque se o saldo no campo quantidade for maior que o saldo.

Este pensamento é o correto!
Além do sistema verificar se existe a quantidade para venda, ele deve ter também o que chamamos de "Qtde. Mínima de Estoque", onde te avisa que precisa adquirir mais produtos.
Vou ajustar essa rotina de estoque no sistema, porém, só vou conseguir hoje no período da tarde

É isso.
Att,
Fim

Olá Leandro,

O sistema controla o estoque através de uma única tabela, chamada "TabMovEstoque", onde nela são registradas as ENTRADAS (compras/aquisições/devoluções/ajustes de inventário e etc.) e SAIDAS (vendas/sucata/ajustes de estoque e etc.), conforme abaixo:



Na "TabProdutos", adicionei o campo "QtdeMinEst" (Quantidade Mínima de Estoque), e este campo tem como finalidade alertar o usuário que as quantidades do produto (Entradas-Saidas) atingiu a quantidade informada neste campo, e que é necessário uma nova aquisição (compra) para reposição do estoque.

No exemplo abaixo, o sistema permite a saída de produtos mesmo que atinja o estoque mínimo informado na tabela de Produtos:


Total de Entradas: 300
Total de Saidas: 260
Diferença: 40 (que é menor que 50)

SITUAÇÃO 1: Usuário informa quantidade maior que a disponível:


SITUAÇÃO 2: Usuário informa quantidade de produto que está disponível, mas que atinge o estoque mínimo e permite o usuário decidir inclusão do produto:



Ao clicar no botão "Gravar", o sistema grava os dados do pedido, detalhes do pedido e também os dados na tabela de movimentação de estoque.

OBS: Leia os comentários no código do formulário de vendas para melhor entendimento.

É isso!
Espero ter ajudado.
Segue nova versão.

Att,
FIM

Meu amigo....sem palavras pelo que você fez.
Você foi além do esperado.
Te agradeço imensamente e garanto que antes mesmo de eu testar, o sucesso já foi garantido.

Mais tarde volto com o resultado para deixar o fórum informado.

Abraço

Leandro boa tarde,

A estrutura e o processo de vendas, com impactos no estoque, está pronta, porém, não elaborei um fron-end para entradas de produtos quando você fizer compra para atualizar seu estoque. 
Ai fica por sua conta!!

Segue uma sugestão de formulário para Entradas (e também Saidas, para os casos de sucata, devolução para o fornecedor e etc.):


No exemplo acima, existem os seguintes combobox:

 - Origem: preencher o combobox para selecionar a origem do estoque, conforme na tabela "TabOrigEstoque":


 - Fornecedor: preencher o combobox conforme dados da "TabFornecedor"


É isso
Boa sorte.
Att,
FIM

Show Alexandre.... vou seguir as instruções.
Vou dar o tópico como resolvido, pois agora só depende de montar o front.

Agradeço muito pela ajuda.

Valeu Leandro, o fórum agradece !!!
Sucesso !!!