[Resolvido]Alerta de registro repetido

Bom dia Amigos,

Estou a fazer um BD e preciso de uma colaboração.

Preciso que ao se realizar um registro em um campo chamado "Matricula", que após essa matricula ser registrada novamente por três vezes que apareça uma mensagem de alerta, dizendo que esta matricula já foi utilizada três vezes.

Obs.: Não preciso que esta ação impessa a realização do cadastro, apenas alerte!

Grato

Kleyton Peixoto Mendes

Olá Cleyton, seja bem vindo ao forum.

Podes usar o DCount no evento "Após atualizar" do campo da matrícula:

If DCount("*", "NomeTabela", "CampoMatrículaDaTabela=" & Me.CampoMatrículaDoForm) >= 3 Then
MsgBox "Já existem " & DCount("*", "NomeTabela", "CampoMatrículaDaTabela=" & Me.CampoMatrículaDoForm) " registros para essa matrícula.", vbOkOnly + vbInformation, "Atenção"
End If

Grande Criquio,

Muito obrigado pela atenção, mas não vinculou, deu erro de sintaxe, com vossos apontamentos preenchi ficou assim:

Private Sub Matricula_BeforeUpdate(Cancel As Integer)
If DCount("*", "CENIPA1 5", "Matricula=" & Me.Matricula) >= 3 Then
MsgBox "Matricula já registrada por três vezes" & DCount("*", "CENIPA 15", "Matrícula=" & Me.Matricula) " registros para essa matrícula.", vbOkOnly + vbInformation, "Atenção"
End If
End Sub

Algo incorreto que coloquei?

Obs.: Tabela: CENIPA 15
Campo na tabela e na form: Matricula

Abraços

Kleyton

O problema pode estar no nome da tabela com espaços. Evite fazer isso, pois o Access não se dá bem como nomes espaçados, a menos que os coloque entre colchetes ou com underline no local dos espaços, mas isso uma hora ou outra pode dar problemas. Reveja os campos, colocando o nome da tabela entre colchetes. Na mensagem, não precisa colocar "Matricula já registrada por três vezes", pois o DCount que vem nessa mensagem, já coloca o número de vezes. Se o campo Matrícula contiver letras, ele é do tipo texto, então deverá colocar assim:

If DCount("*", "[CENIPA 15]", "Matricula='" & Me.Matricula & "'") >= 3 Then
MsgBox "Matricula já registrada por três vezes" & DCount("*", "[CENIPA 15]", "Matrícula='" & Me.Matricula & "'") " registros para essa matrícula.", vbOkOnly + vbInformation, "Atenção"
End If

Se for só número, fica valendo o anterior, ou seja:

If DCount("*", "[CENIPA 15]", "Matricula=" & Me.Matricula) >= 3 Then
MsgBox "Matricula já registrada por três vezes" & DCount("*", "[CENIPA 15]", "Matrícula=" & Me.Matricula) " registros para essa matrícula.", vbOkOnly + vbInformation, "Atenção"
End If

E coloque no evento "Após atualizar" e não "Antes de atualizar"

Criquio Valeu mais uma vez, porém ainda da erro de sintaxe na linha do msgbox.

Mas mesmo assim obrigado pela atenção.

Kleyton

MsgBox "Matricula já registrada por três vezes" & DCount("*", "[CENIPA 15]", "Matrícula=" & Me.Matricula) & " registros para essa matrícula.", vbOKOnly + vbInformation, "Atenção"

Está faltando um & aí, conforme observou JPaulo. Como a gente escreve sem estar testando na hora, às vezes acaba ficando alguma coisa fora. Só lembrando que pode tirar o "por 3 vezes", pois a mensagem já contempla a contagem, ficando assim:

sgBox "Matricula já registrada por " & DCount("*", "[CENIPA 15]", "Matrícula=" & Me.Matricula) & " vezes com esse número.", vbOKOnly + vbInformation, "Atenção"

Desculpa ta enchendo o saco de vocês, mas está aparecendo a seguinte mensagem:

A expre~ssão Antes de Atualizar que inseriu como definição da propriedade do evento gerou o seguinte erro: A declaração do procedimento não corresponde à descrição de evento ou procedimento que possui o mesmo nome.

Novamente desculpas, ser puderem me ajudar ficarei grato!

Senhores, mechendo eu concertei alguns nomes de tabela e campo que não estava batendo, enfim ele conta os três registros porém ao invés de aparecer a mensagem pré programada ele aparece a seguinte mensagem:

erro em tempo de execução ´2471´ A expressão que você inseriu como paramentro da consulta gerou esse erro.

Alguém sabe o que significa isto?

Grato novamente

Passe para o evento "Após atualizar" conforme eu falei anteriormente e teste.