Mensagem para duplicação de nomes

Boa tarde. Procurei e encontrei uma solução aqui no fórum para uma lista de nomes que ao lançar um novo não poderia ter duplicação. O código funcionou sem problema. O caso é que tenho outro formulário que precisa desse código mas não quer funcionar agora.
Ele é um cadastro de nomes e sobrenomes. (vide anexo) e como o outro, esse também não pode ter duplicação.
Usei o seguinte código:

Private Sub NomeCompleto_AfterUpdate()
Dim Busca As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
Busca = Me.NomeCompleto.Value
stLinkCriteria = "NomeCompleto= '" & Busca & "'"
If DCount("NomeCompleto", "Cst_Projetistas_sp", stLinkCriteria) > 0 Then
Me.Undo
MsgBox "Atenção " _
& Busca & " já existe." _

End If
Set rsc = Nothing

End Sub

Onde "NomeCompleto" é um campo concatenado que une os campos Nome e Sobrenome em uma caixa de texto.

Olá
Pode usar a DLookup para verificar:

Private Sub txtNome_BeforeUpdate(Cancel As Integer)
On Error GoTo Trato

If Me.txtNome = Me.txtNome.OldValue Then Exit Sub

If IsNull(Me.txtNome) Then
        Cancel = True
        Me.txtNome.Undo
        MsgBox "Não é possível deletar o nome, apenas substituir."
Else
    If Not IsNull(DLookup("[txtNome]", "[Tabela]", "[txtNome] ='" & Me!txtNome & "'")) Then
        Cancel = True
        Me.txtNome.Undo
        MsgBox "Nome já cadastrado."
    End If
End If

Exit Sub
Trato: MsgBox Err.Description
End Sub

Obrigado. Esse código ele faz exatamente o que?
Posso usar a caixa de texto concatenando Nome e Sobrenome?

Obrigado pelo detalhamento. Foi bem claro.
Esse cadastro tem um complicador quando o usuário digitar o primeiro nome. Em seu código ele cancela o procedimento se o nome já existir. Aí que entra o pepino. O primeiro nome sempre tem repetição mas o sobrenome já não tem quando não é da mesma família. Se eu digitar "Paulo", ele nunca vai deixar prosseguir porque já existe uma centena de Paulos na lista (Paulo Pereira, Paulo Santos, Paulo Silva...). Já o sobrenome, se for uma família cadastrada (Maria Silva, Paulo Silva, Marcia Silva) ele também não deixará prosseguir.
Por isso eu perguntei sobre o campo concatenado. O código faria a leitura apenas desse campo. Se existir idêntico ele cancela o evento. Imagino que o código estaria nesse campo em "após atualizar".

E ainda tem mais uma encrenca. O usuário quando vai cadastrar um novo nome nem sempre procura na lista se já existe. Ele redigita de maneira que nem sempre fica identico ao anterior.
Ex: Samuel de Moraes Lima e Samuel Morais de Lima Leão
Como vê é o mesmo cara, mas escrito de forma errada.

O código é um exemplo.

Como mencionei, para o caso de campos concatenados, a função DLookup terá de combinar os campos nome e sobrenome, e verificar se existe uma combinação idêntica na tabela.

Seria algo assim para o evento AntesDeAtualizar do campo sobrenome, e deve colocar código semelhante no ApósAtualizar do campo nome - para o caso de alteração após já existir um sobrenome:

Código:


Private Sub txtSobrenome_BeforeUpdate(Cancel As Integer)
On Error GoTo Trato

If Me.txtSobrenome = Me.txtSobrenome.OldValue Then Exit Sub

If IsNull(Me.txtSobrenome) Then
    Cancel = True
    Me.txtSobrenome.Undo
    MsgBox "Não é possível deletar o nome, apenas substituir."
Else
    If Not IsNull(Me.txtNome) Then
      If Not IsNull(Dlookup("[txtNome] & [txtSobrenome], "NomeDatabela", "[txtNome] & [txtSobrenome] ='" & Me!txtNome & Me!txtSobrenome & "'")) Then
          Cancel = True
          Me.txtSobrenome.Undo
          MsgBox "Nome já cadastrado."
      End If
    Else
      Cancel = True
      Me.txtSobrenome.Undo
      Me.txtNome.SetFocus
      MsgBox "Preencha o primeiro Nome."
    End If
End If

Exit Sub
Trato: MsgBox Err.Description
End Sub


A única maneira de se evitar homônimos (nomes iguais) é usar um dado único do indivíduo.

Porque por mais que se acerque de cuidados, a digitação está livre e tenha certeza que a qualquer hora, alguém vai cadastrar o Juliano como Juliana ou Julaino ou outra derivação qualquer do nome.

Para isso temos o RG e o CPF.

No repositório tem um exemplo de como cadastrar usando o CPF, que pode ser mudado para ser usado com RG.

Abraços.

Bom dia! O código deu um erro na linha marcada de vermelho. Erro de sintaxe.



Private Sub txtNome_AfterUpdate()
On Error GoTo Trato

If Me.txtNome = Me.txtNome.OldValue Then Exit Sub

If IsNull(Me.txtNome) Then
Cancel = True
Me.txtNome.Undo
MsgBox "Não é possível deletar o nome, apenas substituir."
Else
If Not IsNull(Me.txtSobrenome) Then
If Not IsNull(Dlookup("[txtNome] & [txtSobrenome], "Tbl_Projetistas", "[txtNome] & [txtSobrenome] ='" & Me!txtNome & Me!txtSobrenome & "'")) Then
Cancel = True
Me.txtNome.Undo
MsgBox "Nome já cadastrado."
End If
Else
Cancel = True
Me.txtSobrenome.Undo
Me.txtNome.SetFocus
MsgBox "Preencha o primeiro Nome."
End If
End If

Exit Sub
Trato: MsgBox Err.Description

End Sub

Tem como editar o código que postei acima para o número do CPF? Não encontrei outra solução para evitar a duplicação de nomes. O campo concatenado não quis funcionar nem a porrete!..rsrs