MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]os centavos nao parecem

    Ney Santos
    Ney Santos
    Avançado
    Avançado

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 262
    Registrado : 23/05/2011

    [Resolvido]os centavos nao parecem Empty [Resolvido]os centavos nao parecem

    Mensagem  Ney Santos em 27/3/2020, 00:13

    Amigos boa noite.
    buscando aqui no forum uma  função para somar os valores de listbox encontrei um exemplo do mestre J Paulo:
    fiz as alteraçoes de acordo com os nomes dos meus controles e funcionou.
    Porém o campo onde deveria aparecer a soma dos valores fica arredondado e não soma os centavos:
    abaixo o codigo com os devido comentarios respeitando o autor

    Function fncSomaListBox(lst As Access.ListBox, intColuna As Integer) As Double
    'By JPaulo ®? Maximo Access Outubro/2013
    'Função soma listbox numa caixa de texto no seu formulário
    Dim intLinha As Long
    Dim intTotal As Double
    'Inicia soma com valor zero
    intTotal = 0
    'Percorre linha a linha na sua lista
       With lst
           For intLinha = Abs(.ColumnHeads) To (.ListCount - 1)
           intTotal = intTotal + Val(.Column(intColuna, intLinha))
           Next intLinha
       End With
    'Insere a soma total na função
    fncSomaListBox = intTotal
    'fncSomaListBox = Format(fncSomaListBox, "#,##0.00")
    'Format(valor, "#,##0.00")
    Me.vrCompra = fncSomaListBox   <=========== Aqui está o problema o valor é carregado na caixa de texto, porem nao aparecem os centavos exemplo:
    fiz um lançamento de 2 itens de veria dar um valor de R$169,80 mas fica apenas R$ 169,00
    tentei varias alteraçoes tipo:
    fncSomaListBox = Format(fncSomaListBox, "currency")
    fncSomaListBox = Format(fncSomaListBox, "#,##0.00")
    fncSomaListBox = Format(fncSomaListBox, "#,##0,00")
    mas nao adiantou
    alguma ideia de como fazer?

    Obrigado
    Ney Santos
    Ney Santos
    Avançado
    Avançado

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 262
    Registrado : 23/05/2011

    [Resolvido]os centavos nao parecem Empty Re: [Resolvido]os centavos nao parecem

    Mensagem  Ney Santos em 27/3/2020, 03:18

    olhando meus arquivos antigos localizei  um outro codigo do mestre J Paulo e resolvi o problema,
    Obrigado
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7779
    Registrado : 05/11/2009

    [Resolvido]os centavos nao parecem Empty Re: [Resolvido]os centavos nao parecem

    Mensagem  Alexandre Neves em 27/3/2020, 19:25

    Boa noite
    Faltou o "Resolvido"


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Ney Santos
    Ney Santos
    Avançado
    Avançado

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 262
    Registrado : 23/05/2011

    [Resolvido]os centavos nao parecem Empty Re: [Resolvido]os centavos nao parecem

    Mensagem  Ney Santos em 28/3/2020, 01:35

    prezado Alexandre
    peço desculpas nao me atentei.
    ja corrigi

      Data/hora atual: 24/11/2020, 08:48