[Resolvido]Formato de moeda em caixa de combinação.

Boa tarde,
Tenho um formulário no qual coloquei uma caixa de combinação. Ela possui 11 colunas, por isso coloquei 11 caixas de texto. Quando o usuário seleciona o cliente desejado ele preenche as caixas de texto automaticamente com as info do cliente escolhido.
O único problema é que algumas caixas de texto devem ser do tipo moeda, porem não consigo arrumar. Ja fui no formato, ali nas propriedades de cada caixa de texto e alterei para moeda, mas não adiantou. Tentei mudar la na tabela, mas não adianta pois a tabela é gerada a partir de uma consulta, e toda vez que abro o programa ele excluir a tabela e cria outra em cima.

Alguma ideia?

Obs: sou iniciante em access, favor explicar detalhadamente :p

werlewow, poste a parte envolvida para poder lhe ajudar melhor

Segue
https://www.dropbox.com/s/9s4dtlls7aw2wmg/Banco%20de%20dados%20ACCESS%202.0%20%283%29.accdb?dl=0

Bom dia werlewow

Segue conforme sua necessidade.

Qualquer duvida estarei aqui disposição

Bom, não ficou com o R$ na frente do numero, mas já adicionou os pontos no numero, então já resolve meu problema. Mas não entendi o que você fez, pode explicar?

obrigado

werlewow fiz uma alteração para implantar o "R$".

E sobre a explicação, no seu código ao trocar o cliente, eu inserir o "Format(SeuCampo, "FormatoDesejado").
Assim os valores já ficam formatados conforme desejando.

Obs.: Note que coloquei no campo "CPF" e "TELEFONE"

Código:

Private Sub Combinação89_Click()
Me.CPF.Value = Format(Combinação89.Column(1), "000\.000\.000-00")
Me.CONTATO.Value = Combinação89.Column(2)
Me.TELEFONE.Value = Format(Combinação89.Column(3), "!\(@@@ !@@@@@\-@@@@;@;_")
Me.Classificacao.Value = Combinação89.Column(4)
Me.Total_30dias.Value = Format(Combinação89.Column(5), "Currency")
Me.total_120dias.Value = Format(Combinação89.Column(6), "Currency")
Me.ano.Value = Format(Combinação89.Column(7), "Currency")
Me.total_geral.Value = Format(Combinação89.Column(8), "Currency")
Me.Contagem_Pedidos.Value = Combinação89.Column(9)
Me.data_ultima_compra.Value = Combinação89.Column(10)
Me.valor_ultima_compra.Value = Format(Combinação89.Column(11), "Currency")

End Sub

Caramba! me salvou brother! Ficou muito bom, muitoo obrigado.
Só mais um ultimo detalhe, como faz para pesquisar um cliente? Pois aqui no arquivo correto, tem quase mil clientes e antes eu conseguia digitar o começo do nome do cliente na caixa de combinação e ele pesquisava, mas agora parece que parou de funcionar :/

Obrigadoo

werlewow, Na parte da tarde eu fiquei muito garrado para tentar alterar o modelo que te mandei, mais da uma olhada neste video e veja se consegue implementar em seu projeto.

Cara, vai entender, agora voltou a funcionar a pesquisa haha.
Obrigado mais uma vez pelas ajudas!

Por nada, o fórum agradece.