MaximoAccess

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

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Campo calculado

    avatar
    dori
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Campo calculado Empty [Resolvido]Campo calculado

    Mensagem  dori em 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
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

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

    avatar
    dori
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  dori em 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 100%

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

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

    Mensagem  FranklinJSP em 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 100%

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

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

    Mensagem  dori em 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 100%

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

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

    Mensagem  FranklinJSP em 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 100%

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

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

    Mensagem  dori em 13/4/2019, 19:45

    OK
    resolvido.
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  FranklinJSP em 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
    VIP
    VIP

    Respeito às Regras 100%

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

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

    Mensagem  Cláudio Machado em 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 100%

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

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

    Mensagem  dori em 22/4/2019, 02:59

    OK Resolvido,

    Obrigado.

      Data/hora atual: 24/4/2019, 07:52