[Resolvido]Formulário - Quantidade indisponivel

Boa tarde gente!

Vou deixar anexo um sistema para tirar a seguinte dúvida:

Na tela de vendas no campo quantidade, eu gostaria que ao inserir uma quantidade maior do que a que está no estoque,
o sistema me alertasse em uma caixa de mensagem a seguinte informação:

             "Quantidade indisponível no estoque! deseja continuar? sim, não

              Se alguém puder ajudar eu agradeço!

Bom dia,

Caso você não tenha um campo com o total disponível do estoque no proprio formulário:

Código:

If txtQuantidade > DLookup("campo_da_tabela_qnt_disponível", "sua_tabela_estoque", "campo_produto = " & txtProduto & "") then
    if msgbox("Quantidade indisponível no estoque! deseja continuar?", vbQuestion + vbYesNo, "Continuar?") = vbYes then
        'procedimento caso queira continuar
    end if
end if

Substitua os campos correspondentes ao seu projeto. Caso tenha o campo com o total disponível, substitua o DLookup() pelo nome do seu campo.

Abraço.

Olá Cássio

Eu fiz conforme você informou,mas tá gerando o seguinte erro:

(Erro em tempo de execução '3075'

Erro de sintaxe (Operador Faltando) na expressão de consulta 'Saldo no estoque.")


Meu saldo em estoque é baseado numa consulta dessa forma:

("Consulta Compras" soma de quantidade da tabela compras )-("Consulta Vendas" soma de quantidade da tabela vendas)


Será que é por isso?

Dorival

Vendo teu aplicativo, não ví uma tabela de estoque, a qual é o coração de um comércio.

Alí terá todos os dados dos produtos, assim como quantidade em estoque, quantidade mínima( para avisar que o estoque está acabando).

Toda venda concluída deduz da quantidade em estoque.

Dessa maneira terá sempre a quantidade real dele.

E com isso ficará mais fácil, evitar vender quantidades além do estoque,pois é só comparar as quantidade.

As outras tabelas , estão certas.


[ ]'s

Olá Noobezinho

Você acha que ainda é possível consertar, Ou terei que começar do zero novamente?

Grato!

Sim

Melhor do que fazer do zero.

Precisa criar a tabela tbl_Estoque (o nome é sugestão).

A tabela de cadastro de produto, serve pra somente isso mesmo, pois na tbl_Estoque só irá os já cadastrados.

Então analize e onde precisar utilize essa tabela.

Como disse, ali irá todos os dados do produto , descrição(ou nome), quantidade, unidade. valor unitário, etc...

Se precisar, procure por controle de estoque no fórum, tem "n" exemplos.


[ ]'s

Bom dia,

A dica do noobezinho é realmente muito mais correta. Mas se, em todo caso, você não tiver como ou não quiser refazer as tabelas, basta que no código abaixo, você preencha os campos correspondentes na consulta, na parte do DLookup():

If txtQuantidade > DLookup("campodaConsulta_totalDisponivel", "nomeConsulta", "campoConsulta_codigoProduto = " & txtFormulario_codigoProduto & "") then
if msgbox("Quantidade indisponível no estoque! deseja continuar?", vbQuestion + vbYesNo, "Continuar?") = vbYes then
'procedimento caso queira continuar
end if
end if

É o mesmo código que postei na minha última mensagem, só alterei os nomes para saber mais ou menos qual referencia fazer na sua consulta ai.

Abraço.

Olá Cassio,

Eu fiz conforme você mencionou mas continua dando erro de sintaxe.

(Erro em tempo de execução '3075')

Se você puder adaptar essa função no sistema anexo para se certificar eu agradeço, porque eu não consigo entender onde estou errando.
Você pode usar a "Consulta3-SaldoEstoque", é nela que consta o saldo de todos os produtos.

Só para conhecimento, eu montei esse sistema baseado totalmente nas vídeo-aulas "Criando um Sistema de Vendas em ACCESS" do nosso colega
Gilberlânio Rocha, membro desse fórum, com várias adaptações de códigos extraídas também aqui nesse fórum.O sistema é muito bom, mas ele não criou uma tabela de estoque como você sugeriu. Ele criou as tabelas Compras/Detalhes de compras e Vendas /Detalhes de vendas que subtraindo a quantidade vendida da quantidade vendida da quantidade comprada resulta no saldo de estoque, contido na "Consulta3-SaldoEstoque" que eu estou tentando puxar, só que ele não deixou esse recurso de estoque insuficiente por ser um sistema bem básico, mas o sistema é bem legal, e foi através dessas vídeo-aulas que eu fiquei sabendo para que servia o "ACCESS" enfim...

Mas vou tentando mais um tempo, se não der certo talvez eu tenha mesmo que desmontar o sistema,
e fazê-lo novamente.

Por enquanto muito obrigado a todos!

Bom dia,

O seu sistema está com alguns erros aqui pra mim, então não consegui testar de fato, mas no evento Após Atualizar do campo txtQuantidade do Sub Form-Vendas Detalhes escreva o seguinte:

Código:

   If txtQuantidade > DLookup("[Saldo no estoque]", "Consulta3-SaldoEstoque", "Cód = " & Cód & "") Then
        If MsgBox("Quantidade informada é maior que saldo disponível. Deseja continuar?", vbQuestion + vbYesNo, "Estoque") = vbYes Then
            'procedimento caso queira continuar
        End If
    End If

É bom ressaltar que o campo Cód TEM que estar preenchido. Estou considerando este campo como numérico, caso não seja, escreva da seguinte maneira:

Código:

   If txtQuantidade > DLookup("[Saldo no estoque]", "Consulta3-SaldoEstoque", "Cód = '" & Cód & "'") Then
        If MsgBox("Quantidade informada é maior que saldo disponível. Deseja continuar?", vbQuestion + vbYesNo, "Estoque") = vbYes Then
            'procedimento caso queira continuar
        End If
    End If

Qualquer coisa só dizer.

Abraço.

Bom dia Cássio!

A segunda forma que você mencionou funcionou perfeitamente!

Era isso mesmo que eu procurava!
Obrigado pelo esforço em querer ajudar.
Valeu mesmo pela força, Sem palavras para agradecer!

Dorival / Guarulhos - SP

Boa tarde,

Estamos aqui pra isso mesmo, dividir conhecimento. O fórum agradece o retorno.

Abraço.