MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Aviso de estoque mínimo.

    avatar
    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2476
    Registrado : 09/04/2012

    [Resolvido]Aviso de estoque mínimo. Empty [Resolvido]Aviso de estoque mínimo.

    Mensagem  Kaynan em 9/7/2020, 19:48

    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
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2476
    Registrado : 09/04/2012

    [Resolvido]Aviso de estoque mínimo. Empty Re: [Resolvido]Aviso de estoque mínimo.

    Mensagem  Kaynan em 10/7/2020, 15:55

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 09/05/2020

    [Resolvido]Aviso de estoque mínimo. Empty Re: [Resolvido]Aviso de estoque mínimo.

    Mensagem  digitaltec em 11/7/2020, 18:43

    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
    Anexos
    [Resolvido]Aviso de estoque mínimo. AttachmentTeste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (419 Kb) Baixado 24 vez(es)

    Kaynan gosta desta mensagem

    avatar
    digitaltec
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 09/05/2020

    [Resolvido]Aviso de estoque mínimo. Empty Re: [Resolvido]Aviso de estoque mínimo.

    Mensagem  digitaltec em 11/7/2020, 18:50

    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
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2476
    Registrado : 09/04/2012

    [Resolvido]Aviso de estoque mínimo. Empty Re: [Resolvido]Aviso de estoque mínimo.

    Mensagem  Kaynan em 11/7/2020, 20:55

    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
    avatar
    digitaltec
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 09/05/2020

    [Resolvido]Aviso de estoque mínimo. Empty Re: [Resolvido]Aviso de estoque mínimo.

    Mensagem  digitaltec em 11/7/2020, 21:49

    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
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2476
    Registrado : 09/04/2012

    [Resolvido]Aviso de estoque mínimo. Empty Re: [Resolvido]Aviso de estoque mínimo.

    Mensagem  Kaynan em 11/7/2020, 22:20

    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.
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2476
    Registrado : 09/04/2012

    [Resolvido]Aviso de estoque mínimo. Empty Re: [Resolvido]Aviso de estoque mínimo.

    Mensagem  Kaynan em 12/7/2020, 01:09

    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.
    avatar
    digitaltec
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 09/05/2020

    [Resolvido]Aviso de estoque mínimo. Empty Re: [Resolvido]Aviso de estoque mínimo.

    Mensagem  digitaltec em 12/7/2020, 14:50

    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
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2476
    Registrado : 09/04/2012

    [Resolvido]Aviso de estoque mínimo. Empty Re: [Resolvido]Aviso de estoque mínimo.

    Mensagem  Kaynan em 12/7/2020, 15:05

    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.
    avatar
    digitaltec
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 09/05/2020

    [Resolvido]Aviso de estoque mínimo. Empty Re: [Resolvido]Aviso de estoque mínimo.

    Mensagem  digitaltec em 12/7/2020, 15:55

    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
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2476
    Registrado : 09/04/2012

    [Resolvido]Aviso de estoque mínimo. Empty Re: [Resolvido]Aviso de estoque mínimo.

    Mensagem  Kaynan em 12/7/2020, 22:06


    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
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2476
    Registrado : 09/04/2012

    [Resolvido]Aviso de estoque mínimo. Empty Re: [Resolvido]Aviso de estoque mínimo.

    Mensagem  Kaynan em 14/7/2020, 00:27

    Smile Smile
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2476
    Registrado : 09/04/2012

    [Resolvido]Aviso de estoque mínimo. Empty Re: [Resolvido]Aviso de estoque mínimo.

    Mensagem  Kaynan em 28/7/2020, 21:59

    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
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2476
    Registrado : 09/04/2012

    [Resolvido]Aviso de estoque mínimo. Empty Re: [Resolvido]Aviso de estoque mínimo.

    Mensagem  Kaynan em 30/7/2020, 01:44

    É não tem jeito.

      Data/hora atual: 28/9/2020, 08:42