MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Soma sem Decimais atraves de VBA

    Compartilhe

    zerocool
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7
    Registrado : 15/06/2011

    Soma sem Decimais atraves de VBA

    Mensagem  zerocool em Sex 30 Set 2016, 11:28

    bom dia

    mais uma vez necessito da vossa ajuda:

    criei um form que me calcula automaticamente a potencia de uma viatura.
    mas necessito que o valor seja sem casas decimais.
    Exemplo
    [KW]=85
    [Potencia]= 115 CV

    mas com esta formula fica "115,6 CV"

    Private Sub KW_Exit(Cancel As Integer)
    Me.POTENCIA.Value = (([kw] * 1.36)) & " CV"
    End Sub
    ja tentei "format" e "round"
    mas o valor não altera.

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2320
    Registrado : 14/08/2013

    Re: Soma sem Decimais atraves de VBA

    Mensagem  FabioPaes em Sex 30 Set 2016, 14:42

    Utilize a Função Int(campo1*Campo2)

    Me.POTENCIA.Value = (Int([kw] * 1.36)) & " CV"


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2320
    Registrado : 14/08/2013

    Re: Soma sem Decimais atraves de VBA

    Mensagem  FabioPaes em Sex 30 Set 2016, 14:47

    Veja mais sobre Int e Fix aqui: https://support.office.com/pt-br/article/Fun%C3%A7%C3%B5es-Int-Fix-5446da0c-fbdc-425f-a818-7e3153984ff8


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    zerocool
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7
    Registrado : 15/06/2011

    resolvido

    Mensagem  zerocool em Sex 30 Set 2016, 14:52

    obrigado.

    funcionou direitinho.

    mais uma vez obrigado.

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2320
    Registrado : 14/08/2013

    Re: Soma sem Decimais atraves de VBA

    Mensagem  FabioPaes em Sex 30 Set 2016, 15:07

    Grato pelo Retorno e até a Próxima se Deus quiser!

    Nao esquece de marcar o Topico como Resolvido!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

      Data/hora atual: Qua 07 Dez 2016, 20:11