[Resolvido]Código para não duplicar Registros

Boa tarde Sr.

Estou trabalhando no formulário de entrada de produtos no estoque e não quero que a Nf seja lançada em duplicidade, tentei o seguinte código abaixo:

Código:

Private Sub Txt_NF_Entrada_BeforeUpdate(Cancel As Integer)

Dim Busca As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
Busca = Me.Txt_NF_Entrada.Value
stLinkCriteria = "NF_Entrada= '" & Busca & "'"
If DCount("NF_Entrada", "tbl_entrada", stLinkCriteria) > 0 Then
Me.Undo
MsgBox "Atenção a NF " _
& Busca & "  já existe." _
& vbCr & vbCr & "Escolha outro cliente.", vbInformation _
, "Duplicado"
rsc.FindFirst stLinkCriteria
Me.Bookmark = rsc.Bookmark
End If
Set rsc = Nothing

E na linha do Dcount (está dando erro 3464 - Tipos de dados incompatíveis no critério), sr.s já revisei esse código várias vezes e não consigo encontrar o erro.
Alguém pode me ajudar

DetetaDuplicadosComDoisCriterios

Boa tarde Professor!

JPaulo

Amigo estou confuso pois no seu exemplo você coloca como duas condições para dois campos, no meu caso estou precisando somente do campo NF_Entrada, e desculpe minha ignorância, mas tentei adaptar e não consegui...
Na minha adaptação o código ficou assim:

Código:

Public Sub DetetaDuplicidade()
'By JPaulo Maximo Access
Dim rst As DAO.Recordset
Dim strCriteria As String

   strCriteria = "([nf_Entrada] = '" & Me.Txt_NF_Entrada & "')    "
   Set rst = Me.RecordsetClone
   rst.FindFirst strCriteria
   
   If rst.NoMatch Then
       Exit Sub
   Else
      If MsgBox("Existe NF cadastrada com este Número!" & Chr(10) + Chr(13) & "Deseja encontra-lo?", vbYesNo + vbInformation, "Atenção") = vbYes Then
       Cancel = True
       Me.Undo
       Me.Bookmark = rst.Bookmark
   End If
End If
   Set rst = Nothing

O erro está aparecendo na linha :

rst.FindFirst strCriteria


Obrigado pela colaboração.

Amigo, nf_Entrada é o seu campo da tabela ?
É número ou texto ou data ?

Para texto:
strCriteria = "[nf_Entrada] = '" & Me.Txt_NF_Entrada & "'"

Para número:
strCriteria = "[nf_Entrada] = " & Me.Txt_NF_Entrada

Para data:
strCriteria = "[nf_Entrada] = #" & Me.Txt_NF_Entrada & "#"

Bom dia Professor JPaulo

Mais uma vez a sua solução foi providencial, obrigado mesmo.

O NF_entrada é um campo numérico da minha tabela.
Coloquei esse código:
strCriteria = "[nf_Entrada] = " & Me.Txt_NF_Entrada

E deu tudo certo.

Valeu grande mestre.

Fico feliz
Obrigado pelo retorno o fórum agradece.

Boa tarde Professor!
JPaulo

Me perdoe pois tinha colocado a duvida como RESOLVIDO, porém apareceu um erro e sinceramente não sei aonde está errado, veja o código abaixo:

Public Sub DetetaDuplicidade()
'By JPaulo ? Maximo Access
Dim rst As DAO.Recordset
Dim strCriteria As String

strCriteria = "([nf_Entrada]) = " & Me.Txt_NF_Entrada ("Esse campo é númerico")
Set rst = Me.RecordsetClone
rst.FindFirst strCriteria

If rst.NoMatch Then
Exit Sub
Else
If MsgBox("Existe NF cadastrada com este Número!" & Chr(10) + Chr(13) & "Deseja encontra-lo?", vbYesNo + vbInformation, "Atenção") = vbYes Then
Cancel = True
Me.Undo
Me.Bookmark = rst.Bookmark
End If
End If
Set rst = Nothing
End Sub

E criei um Botão Btn_Atualizar
Private Sub btn_atualizar_Click()
Call deletaduplicidade
Me.Recalc

Está dando um erro de compilação:
'Sub' ou 'Function' não definida

Agradeço Professor...

O sub deletaduplicidade não existe mesmo.
Existe é o DetetaDuplicidade()

Bom dia Professor JPaulo

Primeiro me perdoe pela falha, sinceramente eu não vi que os nomes estavam errados...
Mais uma vez muito obrigado pela sua ajuda...

Bom Professor realmente o código resolveu em partes meu problema, pois ele busca a nf já lançada, porém ele está gerando um novo item.
Vou abrir uma outra postagem para tentar resolver esse outro problema.

Obrigado pela ajuda!!!!