[Resolvido]Função Dcount com Numero Duplo

Olá Galera!!!

não estou conseguindo usar a função Dcount,

Código:

Private Sub ORDEM_BeforeUpdate(Cancel As Integer)
If DCount("Ordem", "Entrada", "Ordem='" & Me.ORDEM & "'") >= 1 Then
MsgBox "Ordem já cadastrado no Sistema", vbInformation, "Informação"
Cancel = True
Exit Sub
End If

End Sub


Eu estou desconfiado que o problema e com o formato do numero
que eu preciso usar Duplo

Alguém poderia me ajudar???

Obrigado!

Teste por favor;

Ainda ontem falámos aqui sobre como fazer Update em campo Double;

Private Sub ORDEM_BeforeUpdate(Cancel As Integer)
   If DCount("Ordem", "Entrada", "Ordem=" & Replace(Me.ORDEM, ",", ".") & "") >= 1 Then
   MsgBox "Ordem já cadastrado no Sistema", vbInformation, "Informação"
   Cancel = True
   Exit Sub
   End If
End Sub

Valeu Jpaulo!

Ficou lindinho esse código