[Resolvido]Cadastro de homônimos

Bom dia amigos do forum,

Venho mais uma vez pedir a ajuda de vcs para uma situação.

Tenho na escola onde trabalho um banco de dados onde o mesmo possui um código no campo NomeAluno para impedir duplicidade. No entanto me deparei com uma situação de homônimo.

Este é o código que impede a duplicidade:

If (Not IsNull(DLookup("[NomeAluno]", "tbl_Aluno", _
"[NomeAluno] ='" & Me!NomeAluno & "'"))) Then
MsgBox "O nome já está cadastrado no Sistema. Verifique se há duplicidade.", vbInformation
Cancel = True 'cancela o evento.
Me!NomeAluno.Undo 'desfaz a digitação.
End If

Então: gostaria que impedisse a duplicidade somente se o campo NomeAluno, NomeMae e Nascimento forem iguais.

Teria como fazer isso?

Amigão, você pode juntar os 3 campos para validação, mas para isso funfar tem de ter os 3 já preenchidos;

Código:

If (Not IsNull(DLookup("[NomeAluno] & [NomeMae] & [Nascimento]", "tbl_Aluno", _
"[NomeAluno] & [NomeMae] & [Nascimento] ='" & Trim(Me!NomeAluno) & Trim(NomeMae) & Trim(Nascimento) & "'"))) Then
MsgBox "O nome já está cadastrado no Sistema. Verifique se há duplicidade.", vbInformation
Cancel = True 'cancela o evento.
Me!NomeAluno.Undo 'desfaz a digitação.
End If

Ola mestre JPaulo

Entendi o que vc quis dizer, ai te pergunto, esse código ainda permanece no campo NomeAluno no evento Após Atualizar ou muda de posição para no Atual do formulário??

Na verdade, o detectar duplicatas deve estar sempre no Antes de Atualizar;

Código:

Private Sub SeuCampo_BeforeUpdate(Cancel As Integer)

Se o amigo reparar, o BeforeUpdate possue o Cancel já integrado no evento, você está a usar o Cancel=True num evento que não possue (AfterUpdate).

Para mim, já que por norma o Nome do Aluno é sempre em primeiro lugar e somente depois a idade e a filiação, o ideal seria você colocar um botão de "Salvar Registro".
e fazer essa verificação,  se já existi-se devolvia a mensagem e deletava.

Olá amigo,

Fiz como vc sugeriu de colocar um botão de salvar e fazer a verificação, está funcionando bem, no entanto, ele avisa que há duplicidade mas não desfaz a digitação e salva.

Esta Correto??

Está correto sim, apenas falta ae o delete.

O nosso fuso horário é diferente, já estou em casa, amanhã completo isso para você. Ok ?

Ok fico no aguardo

Ola;

Teste por favor;

Código:

Private Sub SeuBotaoSalvar_Click()
    If (Not IsNull(DLookup("[NomeAluno] & [NomeMae] & [Nascimento]", "tbl_Aluno", _
    "[NomeAluno] & [NomeMae] & [Nascimento] ='" & Trim(Me!NomeAluno) & Trim(NomeMae) & Trim(Nascimento) & "'"))) Then
    MsgBox "O nome já está cadastrado no Sistema. Verifique se há duplicidade.", vbInformation
    CurrentDb.Execute "DELETE * FROM tbl_Aluno WHERE [NomeAluno] & [NomeMae] & [Nascimento] ='" & Trim(Me!NomeAluno) & Trim(NomeMae) & Trim(Nascimento) & "'"
    End If
Me.Requery
Me.NomeAluno.SetFocus
End Sub

Bom dia amigo JPaulo

Fiz os testes aqui mas não funcionou. No código anterior avisava que que já existia um registro com o mesmo nome, mas permitia salvar.

Já este último que vc mandou não avisa nada e salva.

Eu fiz os testes aqui numa tabela simulada e funcionou em pleno.

Como não conheço a estrutura do seu banco, quer anexar aqui parte dele para eu poder ver isso ?

Vou preparar aqui e posto para vc da uma olhada.

Ok, aguardo.

Bom dia amigo JPaulo

Conforme prometi ontem estou enviando o formulário que estamos tratando.

SISNOTA

Olá;

No seu botão Salvar;

Código:

Private Sub Comando66_Click()
'============FUNÇÃO PARA VERIFICAR SE HÁ DUPLICIDADE================================
Dim x%
x = DCount("*", "tbl_Aluno", _
    "[NomeAluno] & [NomeMae] & [Nascimento] ='" & Trim(Me!NomeAluno) & Trim(NomeMae) & Trim(Nascimento) & "'")

    If x > 0 Then
      If (Not IsNull(DLookup("[NomeAluno] & [NomeMae] & [Nascimento]", "tbl_Aluno", _
        "[NomeAluno] & [NomeMae] & [Nascimento] ='" & Trim(Me!NomeAluno) & Trim(NomeMae) & Trim(Nascimento) & "'"))) Then
        MsgBox "O nome já está cadastrado no Sistema. Existe duplicidade.", vbCritical, "Error"
        Me.Undo
        Me.NomeAluno.SetFocus
        Exit Sub
        End If
    End If
MsgBox "Registro salvo com sucesso...", vbInformation, "Sucess"
End Sub

Ok meu amigo!

Funcionou perfeitamente, muito obrigado

Fico feliz
Obrigado pelo retorno o fórum agradece.