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 : 79
    Registrado : 22/04/2016

    [Resolvido]Campo calculado Empty [Resolvido]Campo calculado

    Mensagem  dori em Qua Abr 03, 2019 6:21 pm

    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 : 455
    Registrado : 11/12/2017

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

    Mensagem  Ismael Silva em Qui Abr 04, 2019 7:54 am

    avatar
    dori
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  dori em Qui Abr 04, 2019 8:52 pm

    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 : 269
    Registrado : 25/02/2016

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

    Mensagem  FranklinJSP em Qui Abr 04, 2019 11:18 pm

    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 : 79
    Registrado : 22/04/2016

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

    Mensagem  dori em Sab Abr 06, 2019 2:13 pm

    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 : 269
    Registrado : 25/02/2016

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

    Mensagem  FranklinJSP em Ter Abr 09, 2019 9:37 am

    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 : 79
    Registrado : 22/04/2016

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

    Mensagem  dori em Sab Abr 13, 2019 3:45 pm

    OK
    resolvido.
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  FranklinJSP em Qui Abr 18, 2019 12:36 pm

    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 : 1490
    Registrado : 17/03/2011

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

    Mensagem  Cláudio Machado em Qui Abr 18, 2019 4:49 pm

    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 : 79
    Registrado : 22/04/2016

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

    Mensagem  dori em Dom Abr 21, 2019 10:59 pm

    OK Resolvido,

    Obrigado.

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Seg Jul 22, 2019 5:57 pm