Notifications
Clear all

Formatar Listview para Moeda

4 Posts
3 Usuários
0 Reactions
3,193 Visualizações
depoisteconto
(@depoisteconto)
Posts: 183
Estimable Member
Topic starter
 

Galera,

Pesquisei mas não consegui avançar com essa linha de comando:

A cá está um while para buscar em um bd access, dados de um produto. No bd, o campo correspondente aos valores, está formatado como unidade monetária. No entanto, quando aparece no listview se mostra sem R$ e vírgula. Ex: R$ 2,00 aparece 2.

Li alguns tópicos que dizem ser necessário o formato "currency" para o listview, mas não consegui explicação suficiente que me levasse a fazer sozinho.

Preciso formatar para o formato moeda o banco(2). Como?

Dim itens As ListItem

While Not banco.EOF
Set itens = Me.ListView1.ListItems.Add(, , banco(1))
    itens.SubItems(1) = banco(2)
    itens.SubItems(2) = 1
    banco.MoveNext
Wend

At

 
Postado : 17/09/2013 7:11 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não costumo utilizar BD Access, não sei ao certo como é o retorno qdo este valor é buscado no mesmo, e como está utilizando SQL acredito que a formatação tem de ser efetuada antes de carregar, de uma olhada no site abaixo sobre SQL FORMAT() Function, e veja se ajuda :
http://www.w3schools.com/Sql/sql_func_format.asp

No exemplo abaixo o ListView é carregado e formatado os Valores para Moeda e Decimal, mas os dados são provenientes da planilha, veja se consgue adaptar.

Formatar ListView como Moeda (Currency)

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/09/2013 9:18 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

depoisteconto,

Bom Dia!

Veja, no arquivo anexo, um pequeno exemplo que fiz de integração do Excel com o Access, onde faõ, inclusive consulta a duas tabelas distintas. Acrescentei um campo de valor ao meu Banco de Dados (Tabela Amigos) para testar a captura dos valores e está OK.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 18/09/2013 7:51 am
depoisteconto
(@depoisteconto)
Posts: 183
Estimable Member
Topic starter
 

Caros,

Obrigado pelas sugestões, estava sem internet fiquei sem ter como conferir as respostas antes e continuar pesquisando.

Enquanto estava sem internet fui pesquisar no Ajuda do Excel - Referência do Desenvolvedor do Excel 2007.

O negócio era mais simples do que imaginei.

Função FormatCurrency

Descrição

Retorna uma expressão formatada como um valor de moeda usando o símbolo de moeda configurado no Painel de controle do sistema.

Sintaxe

FormatCurrency(Expression[,NumDigitsAfterDecimal [,IncludeLeadingDigit [,UseParensForNegativeNumbers [,GroupDigits]]]])

Ao final, minha linha de comando ficou assim:

Dim itens As ListItem

While Not banco.EOF
Set itens = Me.ListView1.ListItems.Add(, , banco(1))
    itens.SubItems(1) = FormatCurrency(banco(2),-1)
    itens.SubItems(2) = 1
    banco.MoveNext
Wend
 
Postado : 19/09/2013 7:37 am