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]Zerar Campo Negativo

    avatar
    alanrodrigo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 22/01/2010

    [Resolvido]Zerar Campo Negativo Empty [Resolvido]Zerar Campo Negativo

    Mensagem  alanrodrigo 26/10/2010, 02:18

    Boa noite, tudo bem!
    Gostaria da gentileza dos Srs. para auxiliar na seguinte questão:
    Dentro de um formulário tenho os campos: [Diferença], [ValorPago] e [Saldo].
    Após a atualização do campo valor pago, coloquei o seguinte procedimento: Me.Saldo = [Diferença] - [ValorPago], deixando o campo saldo com um valor a pagar.
    Todavia, eu gostaria que o usuário tivesse a opção de selecionando um botão dentro do formuário chamado "ZerarNegativos", que ao clicar, zerasse o campo saldo, se este for negativo.
    Agradeço desde já pela atenção.

    Para não tomar muito tempo, deixo um modelo: http://questaotrabalhista.com/download/calculos.rar

    att.

    Alan
    chsestrem
    chsestrem
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 463
    Registrado : 01/03/2010

    [Resolvido]Zerar Campo Negativo Empty Re: [Resolvido]Zerar Campo Negativo

    Mensagem  chsestrem 26/10/2010, 12:11

    Bom dia Alan,

    É necessário mesmo um botão pra isso?

    Vc pode conseguir isto no evento ao perder foco da caixa de texto ValorPago ou ao clicar de um botão, fica ao seu gosto:


    If Me.Diferenca - Me.ValorPago < 0 Then
    Me.Saldo = 0
    Else
    Me.Saldo = Me.Diferenca - Me.ValorPago
    End If


    Ou poderia fazer o calculo diretamente na caixa de texto saldo no formulário:

    = Seimed([Diferenca]-[ValorPago]<0;0;[Diferenca]-[ValorPago])

    Sds,



    .................................................................................
    Charles Sestrem
    http://www.vbabit.com.br
    avatar
    alanrodrigo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 22/01/2010

    [Resolvido]Zerar Campo Negativo Empty Re: [Resolvido]Zerar Campo Negativo

    Mensagem  alanrodrigo 26/10/2010, 12:20

    Bom dia, chsestrem!
    Obrigado pela resposta, funcionou como eu esperava.
    att.
    chsestrem
    chsestrem
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 463
    Registrado : 01/03/2010

    [Resolvido]Zerar Campo Negativo Empty Re: [Resolvido]Zerar Campo Negativo

    Mensagem  chsestrem 26/10/2010, 12:50

    Valeu Amigo,

    Bom trabalho



    .................................................................................
    Charles Sestrem
    http://www.vbabit.com.br

    Conteúdo patrocinado


    [Resolvido]Zerar Campo Negativo Empty Re: [Resolvido]Zerar Campo Negativo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 07:45