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


3 participantes

    [Resolvido]Porcentagem

    avatar
    EdsonFernandes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 05/10/2011

    [Resolvido]Porcentagem Empty [Resolvido]Porcentagem

    Mensagem  EdsonFernandes 22/1/2016, 19:37

    Preciso da ajuda dos nobres colegas - Access 2003

    Seguinte:
    Tenho 3 campos:

    perc_desc
    vlr_desc
    vlr_sdesc

    onde:
    perc_desc é um valor percentual exemplo: 10%   20% ...

    vlr_desc é um valor currency(moeda) exemplo: R$ 50,00     R$ 100,00
    vlr_sdesc é o valor total sem desconto  R$ 400,00    R$ 1.000,00

    Preciso do seguinte:
    Ao digitar o valor do desconto, ele me faça o calculo do valor percentual exemplo: me retorne 5%  10%...

    Já fiz da seguinte forma:

        sVal1 = CLng(vlr_sdesc.Value)
       
        sVal2 = CLng(vlr_desc.Value)
       
       Percentual = [sVal2] / [sVal1] * 100 & "%"
       
       Me!perc_desc = Round([Percentual])

    mais assim não resolveu, ele me retorna sempre 10% não importa o valor do desconto que eu informe.

    Alguém me ajuda??
    rubenscouto
    rubenscouto
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 679
    Registrado : 02/10/2011

    [Resolvido]Porcentagem Empty Re: [Resolvido]Porcentagem

    Mensagem  rubenscouto 22/1/2016, 21:43

    manda parte da base de dados por favor!
    RMARCO
    RMARCO
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 10/02/2012

    [Resolvido]Porcentagem Empty Re: [Resolvido]Porcentagem

    Mensagem  RMARCO 23/1/2016, 12:05

    Aparentemente pela estrutura de "conta" deveria retornar o valor correto, como está retornando sempre o mesmo valor; talvez deva conferir se os valores estão sendo atualizados corretamente.

    Somente que na parte do Round, creio eu deveria retornar um erro pois no calculo da variável Percentual ao concatenar o valor encontrado com o simbolo de percentual, configura o resultado como String (Texto); assim a função Round não deveria funcionar.

    Creio eu que o melhor seria:

    sVal1 = CLng(vlr_sdesc.Value)
    sVal2 = CLng(vlr_desc.Value)
    Percentual = [sVal2] / [sVal1] * 100
    Me!perc_desc = Round([Percentual]) & "%"



    .................................................................................
    Reinaldo
    Planilhando/Tomas Vasques/Gurodoexcel
    avatar
    EdsonFernandes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 05/10/2011

    [Resolvido]Porcentagem Empty Re: [Resolvido]Porcentagem

    Mensagem  EdsonFernandes 11/2/2016, 16:38

    Obrigado a todos que colaboraram, o problema foi resolvido, era só o Round mesmo.

    Conteúdo patrocinado


    [Resolvido]Porcentagem Empty Re: [Resolvido]Porcentagem

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/4/2024, 14:03