[Resolvido]Formatação moeda

Bom dia

A linha abaixo devolve o valor certo mas não formatado
Me!ValorMovimento = DLookup("[valormovimento]", "[tblmovimento]", "[IDmovimento] = " & Me!Lista.Column(0) & "")


Aqui tento formatar mas não devolve o valor correto.
Format(Me.ValorMovimento, "#,##0.00 €") = DLookup("[valormovimento]", "[tblmovimento]", "[IDmovimento] = " & Me!Lista.Column(0) & "")

Obrigado

Assim;

Código:

Me!ValorMovimento.Value = Nz(DLookup("[valormovimento]", "[tblmovimento]", "[IDmovimento] = " & Me!Lista.Column(0)), 0)
Me!ValorMovimento.Value = Format(Me!ValorMovimento.Value, "Currency")
Me!ValorMovimento.Refresh

Ou

Código:

Me!ValorMovimento.Value = Nz(DLookup("[valormovimento]", "[tblmovimento]", "[IDmovimento] = " & Me!Lista.Column(0)), 0)
Me!ValorMovimento.Value = Format(Me!ValorMovimento.Value, "#,###.##")
Me!ValorMovimento.Refresh

JPaulo

Resolvido com esta

Me!ValorMovimento.Value = Nz(DLookup("[valormovimento]", "[tblmovimento]", "[IDmovimento] = " & Me!Lista.Column(0)), 0)
Me!ValorMovimento.Value = Format(Me!ValorMovimento.Value, "Currency")
Me!ValorMovimento.Refresh

Fico feliz.