[Resolvidos]Proibir registro em duplicidade no evento antes de atualizar do campo-textbox

Olá companheiros de Access, estou tentando impedir o cadastramento em duplicidade direto no form, o código abaixo esta no campo Nome_Cliente antes de atualizar

If (Not IsNull(DLookup("[Nome_Cliente]", "Tabela_Clientes", _
"[Nome_Cliente] ='" & Me!Nome_Cliente & "'"))) Then
MsgBox "O nome já está cadastrado na tabela clientes. Verifique se há duplicidade", _
vbInformation, "Cliente cadastrado"
End If

Mas queria que após a mensagem em caso de nome igual, ao clicar em ok na msgbox, limpasse o campo Nome Cliente e deixase o cursor nele.

Seria mais ou menos assim só que da erro:

If (Not IsNull(DLookup("[Nome_Cliente]", "Tabela_Clientes", _
"[Nome_Cliente] ='" & Me!Nome_Cliente & "'"))) Then
MsgBox "O nome já está cadastrado na tabela clientes. Verifique se há duplicidade", _
vbInformation, "Cliente cadastrado"
Nome_Cliente = ""
Nome_Cliente.SetFocus
End If

Não seria melhor colocar no evento depois de atualizar? Já tentou colocar "Me." antes do Nome_Cliente tanto para limpar quanto no campo SetFocus?

ja, isso não da certo, não aceita o goto nem o setfocus e nem sei como limpar o campo dentro desse if

Teste;

If (Not IsNull(DLookup("[Nome_Cliente]", "Tabela_Clientes", _
"[Nome_Cliente] ='" & Me!Nome_Cliente & "'"))) Then
MsgBox "O nome já está cadastrado na tabela clientes. Verifique se há duplicidade", _
vbInformation, "Cliente cadastrado"
Me.Nome_Cliente.Undo
Cancel = True
Else
Exit Sub
End If

Deu esse erro
O VALOR VIOLA A REGRA DE VALIDAÇÃO DO REGISTRO OU CAMPO

Estou cassando erros aqui

Testado e a funfar a 100%

Private Sub Nome_Cliente_BeforeUpdate(Cancel As Integer)
If (Not IsNull(DLookup("[Nome_Cliente]", "Tabela_Clientes", _
"[Nome_Cliente] ='" & Me!Nome_Cliente & "'"))) Then
MsgBox "O nome já está cadastrado na tabela clientes. Verifique se há duplicidade.", vbInformation
Cancel = True 'cancela o evento.
Me!Nome_Cliente.Undo 'desfaz a digitação.
End If
End Sub

É verdade grande JPaulo, tinha uma regra de validação no campo na tabela, tirei e funfa 100%.

Valeu Gilberto.

Private Sub Nome_BeforeUpdate(Cancel As Integer)
If (Not IsNull(DLookup("[Nome]", "tblClientes", _
"[Nome] ='" & Me!nome & "'"))) Then
MsgBox "O Nome já está cadastrado na tabela clientes. Verifique se há duplicidade.", vbInformation
Cancel = True 'cancela o evento.
Me!nome.Undo 'desfaz a digitação.
End If

esse código funciona em um campo texto, mas quero em um campo numérico , ele da erro, poderia me ajudar?

Respondendo novamente, veja o código abaixo:

Private Sub Nome_BeforeUpdate(Cancel As Integer)
If (Not IsNull(DLookup("[Nome]", "tblClientes", _
"[Nome] =" & Me!nome & ""))) Then
MsgBox "O Nome já está cadastrado na tabela clientes. Verifique se há duplicidade.", vbInformation
Cancel = True 'cancela o evento.
Me!nome.Undo 'desfaz a digitação.
End If

Peguei o código do Harysohn
e adaptei, ficou assim:

Private Sub numero_BeforeUpdate(Cancel As Integer)
Dim Busca As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
Busca = Me.numero.Value
stLinkCriteria = "numero= '" & Busca & "'"
If DCount("numero", "Registro", stLinkCriteria) > 0 Then
Me.Undo
MsgBox "Atenção NUMERO já existe.", vbInformation
Cancel = True 'cancela o evento.
Me!nome.Undo 'desfaz a digitação.
End If
Set rsc = Nothing


Agradeço a todos

tentei usar o código abaixo, como no exemplo para um campo numerico, mas não deu certo, podem me ajudar onde esta o erro:

Private Sub Fatura_BeforeUpdate(Cancel As Integer)
Dim Busca As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
Busca = Me.Fatura.Value
stLinkCriteria = "fatura= '" & Busca & "'"
If DCount("fatura", "tabela2", stLinkCriteria) > 0 Then (indica que o problema esta aqui)
Me.Undo
MsgBox "Atenção FATURA já existe.", vbInformation, "FATURA JÁ LANÇADA"
End If
End Sub

Ola Douglas
pouco sei,mas troque a linha por essa


stLinkCriteria = "Fatura= '" & Busca & "'"


experimente

esta linha já existe, esta acima da linha que trava

Verifique os nomes como está escrito da fatura e tabela


Dim Busca As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
Busca = Me.Fatura.Value
stLinkCriteria = "Fatura= '" & Busca & "'"
If DCount("Fatura", "tabela2", stLinkCriteria) > 0 Then (indica que o problema esta aqui)
Me.Undo
MsgBox "Atenção FATURA já existe.", vbInformation, "FATURA JÁ LANÇADA"
End If

Verifiquei os nomes, Fatura e Tabela 2, mas continua dando erro na linha:
If DCount("Fatura", "tabela2", stLinkCriteria) > 0 Then

troque a linha por
stLinkCriteria = "Fatura= " & Busca & ""

deve ser problema com aspas observe a diferença

Beleza, funcionou, obrigado pela ajuda!

Valeu