[Resolvido]CarregarListbox Formato Moeda

Bom dia pessoal estou carregando uma lista mas não consigo carrega o valorUnt no formato de moeda.

ListaConsulta.RowSource = "SELECT tb_cadprodutos.Descricao, tb_cadunidade.UNIDADE, tb_projetosub.Format(ValorUnit, 'currency') FROM........

Bom dia,
assim:

ListaConsulta.RowSource = "SELECT tb_cadprodutos.Descricao, tb_cadunidade.UNIDADE, format(tb_projetosub.ValorUnit, 'currency') FROM...

Estou considero que tb_projetosub é uma tabela que faz parte de alguma junção.

bom dia
não faz parte
acho que por isso não esta funcionando

Fernando bom dia,
O valor deve estar definido como Moeda na tabela, e desta forma ele já vem formatado.
Pode ocorrer de voce ter valores arredondados como R$ 200,00 e carregar somente R$ 200 no listbox.

SUGESTÃO:
Modifique o tipo de dados deste campo para "Número", e nas propriedades do campos, modifique para:
Tamanho do Campo >> Duplo
Formato >> Padrão
Casas Decimais >> 2

Sempre que usar valores monetários, utilize esta configuração.
Também não há necessidade de exibir o "R$", pois só serve pra ocupar espaço nos campos...rss
Utilize "R$" em nome de colunas da listbox (Ex: Valor Unit. (R$)) e em rótulos de campos também.

É isso

Espero ter ajudado

Att,

Alexandre Fim

Estou usando um banco de dados Msql.

fernando rodrigo zanchini escreveu:não faz parte

Se não faz parte e sem formatação, a informação é carregada, então assim deveria funcionar.

Teste sem o nome da tabela, assim:

ListaConsulta.RowSource = "SELECT tb_cadprodutos.Descricao, tb_cadunidade.UNIDADE, format(ValorUnit, 'currency') FROM...

Você também pode carregar a listbox assim:

Código:



Public Sub CarregaLista()
Dim sSQL As String
Dim rs As DAO.Recordset


    With ListaConsulta
        .RowSourceType = "Value List"
        .ColumnCount = 3
        .ColumnHeads = True
        .ColumnWidths = "6cm;4cm;4cm"
        .RowSource = "DESCRIÇÃO;UNIDADE;VALOR UNIT.(R$)"
       
        '-- é necessário ajustar a Instrução SQL
        sSQL = "SELECT tb_cadprodutos.Descricao, tb_cadunidade.UNIDADE, ValorUnit FROM..."
       
        Set rs = CurrentDb.OpenRecordset(sSQL)
        Do While Not rs.EOF
            .AddItem "" & rs(0) & ";" & rs(1) & ";" & Format(rs(2), "#,##0.#0#")
            rs.MoveNext
        Loop
       
        rs.Close
        Set rs = Nothing
   
    End With
   
    Exit Sub

trata_erro:
    MsgBox "Erro ocorrido: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
    Exit Sub

End Sub



Att,

Alexandre Fim

Deu certo Obrigado Pela ajuda Muito Grato!!

Marcelo David e Alexandre Fim

Gratos pelo retorno!
Para nível de informação, qual das soluções lhe atendeu? As duas ou alguma em específico?
Isso é importante para que quando outra pessoa estiver nesse tópico, ela possa usar a mesma solução.

as 2 duas funcionou

só fiz essa alteração no do Alexandre
.AddItem "" & rs(0) & ";" & rs(1) & ";" & Format(rs(2), "R$#,##0.#0#")

Perfeito! Gratos