[Resolvido]Aviso de estoque mínimo.

Ola pessoal,queria num cadastro de produtos quando atingir uma certa quantia,tipo2 produtos,aparecesse em uma caixa texto a mensagem "Estoque crítico" e quando ficasse a zero esse produto,a mensagem "Estoque zerado" é possível anexei um exemplo.
Obrigado.

dropbox.com/s/in4urr5su4mw2hv/Teste.rar?dl=0

Ola pessoal,quando o estoque estiver dois ou tres pra menos,em uma cx texto a mensagem estoque crítico aparecer,como faria isso.

olá,
Segue a minha solução não sei se vai ser útil,
Primeiro na tabela produto criei o campo estoquecritico
No form em estoqueminino no evento apos atualizar coloquei o seguinte codigo
If estoqueMinimo.Value = 0 Then
Me.Texto54 = "Estoque Critico"
Else
Me.Texto54.Value = ""
End If

If estoqueMinimo.Value = 1 Then
Me.Texto54.Value = "Estoque Critico"
End If


If estoqueMinimo.Value = 2 Then
 Me.Texto54 = "Estoque Critico"
End If

No campo estoquecritico coloquei a cor vermelha
segue em anexo com ficou
boa sorte

Só precisa colocar assim em apos atualizar que ja da certo ok

If estoqueMinimo.Value <3 Then
Me.Texto54 = "Estoque Critico"
Else
Me.Texto54.Value = ""
End If

Ola amigo,é bem isso que quero,só que no bd original onde aparece a quantidade atual de produtos aparece assim na cx texto 1,00 ou 20,00 0,00 então não da certo,ja tentei formatar essa txt para ficar sem a ,00 mas não deu.
Nesse teu código como faço para ao invés de colocar no Value 0 colocar 0,00

Usando esse codigo mesmo que o campo estoqueminino esteja 1,1 ou 0,1 ele vai reconhecer
If estoqueMinimo.Value <3 Then
Me.Texto54 = "Estoque Critico"
Else
Me.Texto54.Value = ""
End If

Observando melhor,o código da certo mas se eu colocar a quantidade manualmente,se eu coloco um produto que ja esteja com a quantidade, ja não funciona.

Observando melhor,o código da certo mas se eu colocar a quantidade manualmente,se eu coloco um produto que ja esteja com a quantidade, ja não funciona.

Em estoque minimo no evento em sujo coloque:
Me.Recalc
If estoqueMinimo.Value < 3 Then
Me.Texto54 = "Estoque Critico"
Else
Me.Texto54.Value = ""
End If

Bom dia,bem nesse exemplo eu ja tinha posto e funcionou,mas no original não,eu vou estrair do bd o cadastro de produtos e logo mais coloco ai pra ver.
Abraços.

ah beleza, vc colocou antes me.recalc ? Quando fiz aqui no meu com me.recalc ao navegar com a seta do teclado ou clicando na caixa de listagem ele tava atualizando a função do estoque critico achei que fosse resolver assim, eu coloquei no evento em sujo no campo estoque minimo

Ola, é neste form que não funciona o código,coloquei o código no estoque atual para na txt ao lado exibir a mensagem.

dropbox.com/s/xz7pt0vp9u45vv5/CadProduto.rar?dl=0

Ola pessoal,tenho este código no formulario anexo para quando o estoque for 1 ou 2 aparecer numa txt escrito estoque crítico e quando for"0" fica escrito estoque zerado.
Só que não ta atualizando automatico,só da certo se coloco a quantidade manual.
Que mais posso por pra atualizar quando for navegando pelos produtos.

Private Sub qtdEstoque_AfterUpdate()
If qtdEstoque.Value = 0 Then
Me.txtEst = "Estoque Zerado"
Else
Me.txtEst.Value = ""
End If

If qtdEstoque.Value = 1 Then
Me.txtEst.Value = "Estoque Critico"
End If


If qtdEstoque.Value = 2 Then
Me.txtEst = "Estoque Critico"
End If

End Sub


dropbox.com/s/h5d0240y4wt0b1k/CProdutos.rar?dl=0

É não tem jeito.