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]Subtração de valores

    avatar
    Ben Hur Heckmann
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 19/03/2024

    [Resolvido]Subtração de valores Empty [Resolvido]Subtração de valores

    Mensagem  Ben Hur Heckmann 19/3/2024, 15:34

    Olá pessoal.
    Estou preso nesse problema, parece muito simples, mas não consigo resolver.
    Tenho uma quantidade de um produto, em kilos. Todo mês utilizado uma quantidade. Fazendo campo calculado, ou comando de subtração, o valor é diminuído, mas preciso que o novo valor seja substituído na quantidade do produto.
    No formulário tem o campo (Quantidade) e (Usado). Quero que ao digitar o usado e atualizar, esse valor seja diminuído da (quantidade). Mas ao realizar um novo cálculo, quando substituído o valor de (usado) por outro, o valor (quantidade) volta ao valor inicial.

    Não sei se expliquei corretamente.
    Exemplo:
    [Quantidade] - [usado] = [nova quantidade]

    Mas essa [nova quantidade] deve ser agora o valor de [quantidade]


    Última edição por Ben Hur Heckmann em 19/3/2024, 22:57, editado 1 vez(es)
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 04/04/2010

    [Resolvido]Subtração de valores Empty Re: [Resolvido]Subtração de valores

    Mensagem  Avelino Sampaio 19/3/2024, 17:07

    Olá!

    Faça um backup da sua tabela antes dos testes.

    Você pode montar seu calculo assim, no evento "após atualizar" do campo usado:


    me!quantidade = nz(me!quantidade) - nz(me!usado)


    Seria bom o usuário visualizar o resultado em uma caixa de mensagem e decidir se deve ou não atualizar. Algo Assim:


    Private Sub Usado_AfterUpdate()
    Dim result
    result = Nz(Me!Quantidade) - Nz(Me!Usado)
    If MsgBox("Deseja atualizar quantidade para " & result & " ?", vbYesNo, "Confirmação") = vbYes Then
    Me!Quantidade = result
    End If
    End Sub


    Sucesso!




    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    Ben Hur Heckmann
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 19/03/2024

    [Resolvido]Subtração de valores Empty Re: [Resolvido]Subtração de valores

    Mensagem  Ben Hur Heckmann 19/3/2024, 22:52

    Muito obrigado!!

    Conteúdo patrocinado


    [Resolvido]Subtração de valores Empty Re: [Resolvido]Subtração de valores

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/4/2024, 22:13