[Resolvido]Detetar preço de venda é inferior ao preço de custo em formulario desacolado

Bom dia amigos

Estou a utilizar o camando abaixo para quando en registar o preço, seja informado se estou a vender abaixo do preço de Custo
Mas estou a debater-me com o problema, seja qual for o preço que eu registe quer seja maior que o preço de custo quer seja menor, a mensagem aparece sempre.

Os campos "Preço" aonde digito o preço a vender é desacopolado.
O preço de custo também é desacolado e é registado no campo "PreçoCusto" ao ser selecionado o produto numa comboBox.


Private Sub Preço_BeforeUpdate(Cancel As Integer)
If Me!Preço.Value < Me!Preçocusto Then
MsgBox "Atenção está a vender Abaixo do Preço de Custo " & (Ref) & " ", vbExclamation, "Conforlar"
Else
End If
End Sub

Obrigado

Boa tarde, Assis
Coloca o código após a actualização (AfterUpdate)

Boa tarde Alexandre

É igual...

Poste aí vermos..

Boa noite amigos

Assim resolveu:

Private Sub Preço_BeforeUpdate(Cancel As Integer)
On Error Resume Next
Dim X As Double
X = Me.Ref.Column(5)
Me.Preçocusto = X
Me.Preçocusto.Requery
If Me.Preço < Me.Preçocusto.Value Then
MsgBox "Atenção está a vender Abaixo do Preço de Custo " & (Ref) & " ", vbExclamation, "Conforlar"
Exit Sub
Else
End If
End Sub

Obrigado