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]Arredondar em consulta

    Compartilhe
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3550
    Registrado : 06/11/2009

    [Resolvido]Arredondar em consulta

    Mensagem  Assis em Qui 3 Maio - 20:14

    Boa noite

    Preciso de arredondar a formula da imagem e não estou a conseguir.

    ValorProduto = 2.8

    QTY = 1

    Iva a 17 = 0.476 ----> Queria arredondar para 0.48

    obrigado


    [Você precisa estar registrado e conectado para ver esta imagem.]


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Maicon
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 119
    Registrado : 07/09/2012

    Re: [Resolvido]Arredondar em consulta

    Mensagem  Maicon em Sex 4 Maio - 1:44

    Tente assim :
    Viva: Arred((Nz([Valor Produto])*(Nz([qty])*([IVA]/100)));4)

    No meu exemplo funcionou.
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3550
    Registrado : 06/11/2009

    Re: [Resolvido]Arredondar em consulta

    Mensagem  Assis em Sex 4 Maio - 6:16

    Bom dia Maicon

    Não resultou porque falta a função.

    Obrigado

    [Você precisa estar registrado e conectado para ver esta imagem.]


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5580
    Registrado : 15/03/2013

    Re: [Resolvido]Arredondar em consulta

    Mensagem  ahteixeira em Sex 4 Maio - 7:33

    Olá a todos,

    Assis, tente ROUND

    Abraço
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3550
    Registrado : 06/11/2009

    Re: [Resolvido]Arredondar em consulta

    Mensagem  Assis em Sex 4 Maio - 8:04

    Bom dia 
    Teixeira, só Round no início ja testei e não resultou.
    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5580
    Registrado : 15/03/2013

    Re: [Resolvido]Arredondar em consulta

    Mensagem  ahteixeira em Sex 4 Maio - 10:52

    Olá a todos,

    Assis e quantas casas colocou?
    Da forma que o colega sugeriu altere o 4 para 2 e teste.

    Abraço
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3550
    Registrado : 06/11/2009

    Re: [Resolvido]Arredondar em consulta

    Mensagem  Assis em Sex 4 Maio - 14:12

    Teixeira

    O arredondamento está resolvido.

    Uso a formulá abaixo para fazer a comparação dos valores registado a pagar com o valor do documento

    E mesmo os valores registados ser iguais recebo a infomação da MsgBox.

    O "Texto21" é a soma do numerário + cheque + transferência.
    O "Saldo" é o valor do documento

    Como resolver ?

    If CDbl(Texto21.Value) > CDbl(Saldo.Value) Then
    MsgBox "Os Valores Registados são superiores ao Valor do Documento a Liquidar ! ", vbQuestion, "Aviso"
    Me.Numerario.SetFocus
    Numerario = 0
    Me.Cheque = 0
    Me.Transferencia= 0
    Me.Doc = ""
    Exit Sub
    End If

    Obrigado


    [Você precisa estar registrado e conectado para ver esta imagem.]


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5580
    Registrado : 15/03/2013

    Re: [Resolvido]Arredondar em consulta

    Mensagem  ahteixeira em Sex 4 Maio - 19:06

    Olá Assis,

    Aplique o Round nos dois valores na comparação, da linha de código:

    If CDbl(Texto21.Value) > CDbl(Saldo.Value) Then

    Abraço
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3550
    Registrado : 06/11/2009

    Re: [Resolvido]Arredondar em consulta

    Mensagem  Assis em Sex 4 Maio - 19:29

    Boa Noite Teixeira


    Yes Yes cheers cheers cheers

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5580
    Registrado : 15/03/2013

    Re: [Resolvido]Arredondar em consulta

    Mensagem  ahteixeira em Sex 4 Maio - 20:51

    cheers

      Data/hora atual: Qua 14 Nov - 9:56