[Resolvido]Estoque <0

Boa noite pessoal seguinte to com probleminha aq achu q vcs podem me ajudar

tenho um formulário para consulta e inclusão de produtos na venda nesse formulário tem consulta de produto normal seleciona o produto
ai tenho quantidade comprada e quantidade vendida e tenho um campo chamada Texto43 com a expressão =[Texto41]-[Texto39]
que soma a quantidade do estoque e tenho um botão de comando38 que faz a inserção do produto na venda com o seguinte vba
DoCmd.OpenForm "Venda", , , , acFormAdd
Forms!Venda!Detalhe_Venda!Cód_Produto = Me.Cód_Produto
DoCmd.Close acForm, "Lista_Produtos"

ai que vem a duvida como faço para nesse botão ele verificar se a quantidade no campo Texto43 esta igual a zero se se tiver aparecer a mensagem este produto acabo ou qualquer outra, e cancela o evento não adicionando o produto???

galera espero que alguem me ajuda desde ja agradeço...........

Olá

seria mais ou menos isto:

If ME.Texto43 = 0 Then
Cancel = True
MsgBox "Estoque Zerado!!!", vbExclamation + vbOKOnly + vbDefaultButton2, "Atenção"
Else

DoCmd.OpenForm "Venda", , , , acFormAdd
Forms!Venda!Detalhe_Venda!Cód_Produto = Me.Cód_Produto
DoCmd.Close acForm, "Lista_Produtos"

End If

Abraços

Bom dia Marcelo,


Esse arquivo tem muito haver com seu problema,  veja as rotinas nos forms de entrada e saida.

Bons estudos.

Abraços,

Cleverson

Bom dia!!

estou querendo fazer um filtro em uma consulta, mais esta pedindo pra me inserir valor do parâmetro.

minha tabela > TBL_DATA , campo DATA

minha consulta > CLT_DATA_DIA

na minha consulta eu trango a TBL_DATA
e realizo um filtro de seimed

1º coluna do filtro: DATA |
2º coluna do filtro: DIA: data()-[DATA] |
3º coluna do filtro: FILTRO: seImed([DIA]>15;"SIM";"NÂO")


na 3º coluna do filtro na linha > critérios > quando eu informo o criterio "SIM" pra trazer tudo que for "SIM" ele pede pra inserir o valor do Parâmetro

segue exemplo em BD.

Bom dia Flavio,


Antes vc deve criar um tópico novo pois sem tema é diferente deste.

E tente posta o arquivo com as tabelas em questão.


Abraços,

Cleverson

Cara não me arrependo de ter registrado nesse forum o melhor forum de access muito bom o pessoal reponde muito rapido agradeço pessoal

Olá..

Valeu pelo retorno, o Fórum agradece

Abraços

Bom dia pessoal vim aq pra atualiza uma linha do código pois modifiquei meu formulario e nao funcionou mais o código

If ME.Texto43 = 0 Then
Cancel = True essa linha que parou de funciona ai eu troquei pelo DoCmd.CancelEvent
MsgBox "Estoque Zerado!!!", vbExclamation + vbOKOnly + vbDefaultButton2, "Atenção"
Else

DoCmd.OpenForm "Venda", , , , acFormAdd
Forms!Venda!Detalhe_Venda!Cód_Produto = Me.Cód_Produto
DoCmd.Close acForm, "Lista_Produtos"

End If

Valeu....