[Resolvido]Formatar Campo

Bom dia Amigos

Tenho este código ao fechar um formulario:
O valor passa de um campo de uma calculadora para o forms "Encomenda", para o campo "Preço"
 
Exemplo:
Se no campo da calculadora estiver 98, passa 98, e eu queria que passa-se 98.00

Private Sub Form_Close()
On Error GoTo 1
Forms![Encomenda]![Preço].SetFocus
Forms![Encomenda]![Preço] = Me.lblReadOut.Caption

'Format(Preço, "0.00")
1:
End Sub

Como o formatar para "Moeda"

Obrigado

Olá Assis, tente com:

CCur(NomeCampo)

Abraço

Bom dia Teixeira

Assim funfa

Forms![Encomenda]![Preço] = CCur(Me.lblReadOut.Caption)
Obrigado

Teixeira

Se for numero redondo tudo bem, mas se tiver cêntimos ... erra

exemplo : 55 devolve 55,00 €
caso seja 55,10 devolve os mesmos 55,00 €

Olá, verifique com vem o valor antes de utilizar o CCur

Exemplo:

Msgbox NomeSeuCampo

Se tiver os decimais pode sempre utilizar o Format antes do CCur

Abraço

Ficou assim

Forms![Encomenda]![Preço] = Format(lblReadOut.Caption, "0.00 €")

mas o símbolo do Euro € não aparece de tiver cêntimos.

Não esquecer que está a enviar texto para o Caption da Label;

Forms![Encomenda]![Preço] = Format(lblReadOut.Caption, "0.00") & "€"

Boas JPaulo

É isso aí ....

Obrigado

Valew.