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


4 participantes

    [Resolvido]Campo calculado

    avatar
    dori
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 153
    Registrado : 22/04/2016

    [Resolvido]Campo calculado Empty [Resolvido]Campo calculado

    Mensagem  dori 3/4/2019, 22:21

    Boa noite gente!

    Eu tenho um campo calculado no meu formulário vendas e eu gostaria que ele não arredondasse o valor no campo total.
    Por exemplo:

    Quant.                Preço/KG                 Total
     
    0,345 ..................15,00 ..................5,175

    Ele está arredondando para...... 5,180  
    Tem como acertar isso?

    Desde já agradeço!
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 827
    Registrado : 11/12/2017

    [Resolvido]Campo calculado Empty Re: [Resolvido]Campo calculado

    Mensagem  Ismael Silva 4/4/2019, 11:54

    Dori, teste este exemplo.

    https://www.dropbox.com/s/fg6tjqnrz91s9k7/Banco%20de%20dados1.accdb?dl=0
    avatar
    dori
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 153
    Registrado : 22/04/2016

    [Resolvido]Campo calculado Empty Re: [Resolvido]Campo calculado

    Mensagem  dori 5/4/2019, 00:52

    Não está arredondando, mas em compensação tá mostrando três casas após a vírgula!
    E na soma total dos itens, também está arredondando!
                 Tem alguma outra forma ?
    Esse é o jeito atual que está funcionando.

             
                 Quant.                Preço/KG             Total item
                 0,345 ..................15,00 ..................5,175
                 0,286...................18,00 ..................5,148
                  ____________________________________
                  Total............................................ 10,323
                 
    Como se trata de moeda, eu gostaria que ele ignorasse a terceira casa após a vírgula, ficando assim:

                  Quant.                Preço/KG                 Total item
                 0,345 ..................15,00 ........................5,17
                 0,286...................18,00 ........................5,14
                 ______________________________________
                  Total...................................................10,31
    Tem algum outro jeito?
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 479
    Registrado : 25/02/2016

    [Resolvido]Campo calculado Empty Re: [Resolvido]Campo calculado

    Mensagem  FranklinJSP 5/4/2019, 03:18

    Boa noite Dori!

    Coloca num modulo:

    Código:
    Public Function Dec(NUM As Double)
    Dim decimales As String
    Dim devolver As Double

      decimales = NUM - Int(NUM)
      decimales = Mid$(Format(decimales, "0.0000"), 2, 4)

      If decimales = "" Then
        devolver = Int(NUM)
      Else
          decimales = Mid$(decimales, 1, 3)
          devolver = Int(NUM) + CDbl(decimales)
      End If
      Dec = devolver
    End Function

    Funciona assim: Dec(1.456) ' resultado = 1.45

    Saludos


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    avatar
    dori
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 153
    Registrado : 22/04/2016

    [Resolvido]Campo calculado Empty Re: [Resolvido]Campo calculado

    Mensagem  dori 6/4/2019, 18:13

    Olá Franklin!

    Eu criei o módulo com esse código, como devo proceder agora?

    É que eu conheço pouco o access.

    valeu!

    FranklinJSP
    FranklinJSP
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 479
    Registrado : 25/02/2016

    [Resolvido]Campo calculado Empty Re: [Resolvido]Campo calculado

    Mensagem  FranklinJSP 9/4/2019, 13:37

    Olá Dori

    Agora você só tem que chamá-lo de qualquer form assim:

    Código:
    Dim numero
    textbox = Dec(numero) 'inserindo variavel
    textBox = Dec(1.456) 'inserindo um número

    Se você não consegue implementá-lo, eu vou te enviar um exemplo.

    Saludos


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    avatar
    dori
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 153
    Registrado : 22/04/2016

    [Resolvido]Campo calculado Empty Re: [Resolvido]Campo calculado

    Mensagem  dori 13/4/2019, 19:45

    OK
    resolvido.
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 479
    Registrado : 25/02/2016

    [Resolvido]Campo calculado Empty Re: [Resolvido]Campo calculado

    Mensagem  FranklinJSP 18/4/2019, 16:36

    lol! lol! lol!


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1633
    Registrado : 17/03/2011

    [Resolvido]Campo calculado Empty Re: [Resolvido]Campo calculado

    Mensagem  Cláudio Machado 18/4/2019, 20:49

    Faltou o Resolvido.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Campo calculado 90dssg para agradecer a dica que solucionou seu problema.
    avatar
    dori
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 153
    Registrado : 22/04/2016

    [Resolvido]Campo calculado Empty Re: [Resolvido]Campo calculado

    Mensagem  dori 22/4/2019, 02:59

    OK Resolvido,

    Obrigado.

    Conteúdo patrocinado


    [Resolvido]Campo calculado Empty Re: [Resolvido]Campo calculado

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 22:00