[Resolvido]Duplicidade em campo numérico

Boas,
Tenho o campo ficha no form e ficha é numérico, coloquei o seguinte
código para encontrar duplicados mas dá erro:
Private Sub ficha_BeforeUpdate(Cancel As Integer)
Dim Busca As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
Busca = Me.ficha.Value
stLinkCriteria = "ficha= '" & Busca & "'"
If DCount("ficha", "Tabela2", stLinkCriteria) > 0 Then
Me.Undo
MsgBox "Atenção " _
& Busca & " registo já existe." _
& vbCr & vbCr & "Irá ser mostrado o Registo.", vbInformation _
, "Duplicado"
rsc.FindFirst stLinkCriteria
Me.Bookmark = rsc.Bookmark
End If
Set rsc = Nothing
End Sub

Abraço

If DCount("ficha", "Tabela2", stLinkCriteria) > 0 Then

Não deveria ser > 1?

Não, continuo com erro...
Abraço e obrigado

Não serve assim:

If (Not IsNull(DLookup("[MEUCAMPO]", "NOMETABELA", _
"[MEUCAMPO] ='" & Me!MEUCAMPO & "'"))) Then
MsgBox "O exemplo já está cadastrado no sistema..." & MEUCAMPO.Text, _
vbInformation, "Exemplo"
Cancel = True 'cancela o evento.
Me!MEUCAMPO.Undo 'desfaz a digitação.
End If

Esqueci:

Coloque o código no evento beforeupdate()

Pode ser feito assim tambem:

If DCount("Código", "NomeTabela", "Código=" & Me!Código) > 0 Then
...

Muito obrigado,
Abraço

Amigo Criquio.. como aplicar esse código em um form desvinculado...

Os que fiz essa semana?

Muito obrigado

Hary, acredito que o rs.RecordCount funcione no lugar do DCount.