MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

    [Resolvido]Produto Saldo Zero

    avatar
    Jairo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 117
    Registrado : 09/05/2013

    [Resolvido]Produto Saldo Zero Empty [Resolvido]Produto Saldo Zero

    Mensagem  Jairo 14/1/2014, 17:06

    Boa Tarde Galera do Fórum.

    Mia uma vez gostaria de um apoio de todos que puderem de dar uma dica.

    No meu db, tenho campo "CodProduto", "Quantidade", "Descrição", quando eu digito o código do produto a descrição assume automaticamente até ai beleza, o que eu preciso é que quando eu digitasse o "CodProduto" se a "Quantidade" estiver zero; já apareça a mensagem informando (Saldo Zero escolha outro produto com saldo). e o foco permaneça dentro do campo "CodProduto" sem ir para a quantidade.

    ressalto que essa opção é para somente Saldo Zero.

    desde já agradeço a todos,
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    [Resolvido]Produto Saldo Zero Empty Re: [Resolvido]Produto Saldo Zero

    Mensagem  formiga10x 15/1/2014, 04:58

    Código:
    Dim x As Integer

        x = DLookup("qtdEstoque", "Produto", "CodProduto =" & "txtCodProduto")
                
                If x < Me.txtQtd.Value Then
                
                   MsgBox "Estoque Insuficiente. Estoque atual: " & x, vbInformation, "xxxxxxxxxxxx"
                  
                   DoCmd.CancelEvent

                  Exit Sub

                   else  
                  
                   msgbox "xxxxxxx"  
                  
                End If


    Última edição por formiga10x em 16/1/2014, 04:28, editado 8 vez(es)
    avatar
    Jairo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 117
    Registrado : 09/05/2013

    [Resolvido]Produto Saldo Zero Empty Re: [Resolvido]Produto Saldo Zero

    Mensagem  Jairo 15/1/2014, 16:42

    Amigo,

    O comando abaixo quando digitei o CodigoProduto ele mostrou a mensagem, porem o foco mudou para quantidade para que eu digitasse a quantidade de produtos necessário. e a Ideia é se a quantidade daquele produto for zero o foco permaneça no campo CodigoProduto.
    Informo que esse comando foi inserido no campo "Codigodoproduto" na Opção ao Clicar. está certo essa colocação ou onde devo colocar?

    If DCount("Quantidade", "Produto", "CodigoProduto = " & CodigoProduto & "") = 0 Then

    MsgBox ("SEM PRODUTO")

    Else

    MsgBox ("COM PRODUTO")
    End If


    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    [Resolvido]Produto Saldo Zero Empty Re: [Resolvido]Produto Saldo Zero

    Mensagem  formiga10x 15/1/2014, 18:23

    Desculpa a demora net aqui está tensa.

    Código acima está atualizado.

    Forte abraço.
    avatar
    Jairo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 117
    Registrado : 09/05/2013

    [Resolvido]Produto Saldo Zero Empty Re: [Resolvido]Produto Saldo Zero

    Mensagem  Jairo 15/1/2014, 18:57

    Formiga10x,
    Desculpa mais não está dando certo.

    Fiz a atualização do código no campo informado e Está aparecendo mensagem "Com Produto" sendo que o estoque está zerado, e em seguida o Curso passa para o campo seguinte onde devo digitar a quantidade.

    O que deveria ser o seguinte quando for digitado a referencia se o saldo for "Zero" apareça a mensagem "Sem Produto" e o cursor permaneça no campo do CodigoProduto até que seja inserido um produto com saldo.


    abraços,
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    [Resolvido]Produto Saldo Zero Empty Re: [Resolvido]Produto Saldo Zero

    Mensagem  formiga10x 15/1/2014, 19:38

    Se colocou no campo da tabela qtdproduto valor '0' então ele informa que exite produto pois 0 não é nulo
    se não conseguir

    enviar o bd fica mais fácil saber o que está acontecendo.
    avatar
    Jairo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 117
    Registrado : 09/05/2013

    [Resolvido]Produto Saldo Zero Empty Re: [Resolvido]Produto Saldo Zero

    Mensagem  Jairo 30/1/2014, 16:58

    Valeu,

    Obrigado,

    estava inserindo de forma invertida

    tudo certo
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    [Resolvido]Produto Saldo Zero Empty Re: [Resolvido]Produto Saldo Zero

    Mensagem  formiga10x 30/1/2014, 17:44

    O Fórum agradece o retorno.

    Conteúdo patrocinado


    [Resolvido]Produto Saldo Zero Empty Re: [Resolvido]Produto Saldo Zero

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/4/2024, 17:58