[Resolvido]verificar duplicata sem excluir o registro

Boa Noite!
eu estava pesquisando sobre como localizar duplicatas através de código VBA no momento em que estivesse digitando o registro, achei o código abaixo, porém eu não gostaria que ele excluísse pois de repente pode ser um aluno com mesmo nome e data de nascimento já que no meu BD eu não trabalho com documentos do aluno. Como eliminar o código de exclusão do registro e só aparecer a mensagem de Duplicidade para eu optar se continuo ou não com a digitação?
quem puder me ajudar, de já agradeço.


Private Sub Nome_BeforeUpdate(Cancel As Integer)
Dim Busca As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
Busca = Me.Nome.value
stLinkCriteria = "Nome= '" & Busca & "'"
If DCount("Nome", "ALUNO", 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

Ola seja bem vindo ao forum.

Tente o simples;

Private Sub Nome_BeforeUpdate(Cancel As Integer)
Dim xNome As String
If DCount("Nome", "ALUNO", "Nome = '" & Me!Nome & "'") > 0 Then
    If MsgBox("Este Aluno já existe." & Chr(13) & Chr(10) & "Deseja alterar ?", vbQuestion + vbYesNo, "Aviso") = vbYes Then
        xNome = Me!Nome
        Me.Undo
        DoCmd.ApplyFilter , "Nome ='" & xNome & "'"
    Else
        Cancel = True
    End If
End If
End Sub

Nota:
Não esquecer que a palavra Nome é uma palavra reservada do Ms Access.

OLÁ JPaulo
o código funcionou o problema é que de repente o aluno pode ter o mesmo nome nesse caso eu preciso criar um novo registro e dessa forma o código não está permitindo, eu queria poder verificar se é o mesmo aluno, se não criar um novo registro.

Obrigado pela nota renomeei o nome do campo para NomeAluno!

Então vamos lá;

Você digita o nome e se existir, o código diz que já existe, neste caso o que quer que o código faça ?

Se não, existir deixará continuar a inserção é isso ?

Será que é assim que pretende ?

Private Sub Nome_BeforeUpdate(Cancel As Integer)
Dim xNome As String
If DCount("Nome", "ALUNO", "Nome = '" & Me!Nome & "'") > 0 Then
    If MsgBox("Este Aluno já existe." & Chr(13) & Chr(10) & "Deseja alterar ?", vbQuestion + vbYesNo, "Aviso") = vbYes Then
       'se diz SIM, mostra o existente
        xNome = Me!Nome
        Me.Undo
        DoCmd.ApplyFilter , "Nome ='" & xNome & "'"
    Else
        'se diz NÃO, não faz nada e deixa continuar a inserção
    End If
End If
End Sub

muito obrigado ficou do jeito que eu queria

Obrigado pelo retorno o forum agradece.