[Resolvido]Verefica duplicidade antes de Cadastra as provas

Ai blz pessoal!

Estou tentando fazer uma verificação de provas lançadas.
Exemplo:
Aluno4 foi cadastrado que fez a prova no dia 16/05/2016.
Ae faz de conta que esqueci que lancei esta prova já.
Exemplo:
Aluno4 datadaprova 16/05/2016
Aluno4 datadaprova 16/05/2016
Quero que ele não deixe eu lançar datas repetidas das provas.
Obs.
(chave primaria) e o nome do aluno4 e data da prova e o segundo critério.

Agradeço quem puder ajudar!

Ola Jonas,

tens dual alternativas para impedir a duplicação:
1ª podes no modo estrutura criar um indice exclusivo para os campos alunos e data.
2ª podes a partir do formulario no evento antes de inserir fazer uma contagem das datas existentes na tabela e caso a contagem seja >= 1 interromper.

Obs lança algum dado duplicado e ve o resultado.

para mais detalhes entre em contacto: conta.cons@hotmail.com

Bom dia todos....


Todas as duvidas, respostas e possíveis soluções é de bom tom que sejam postadas no referido tópico para que os demais membros, que por ventura tenham alguma duvida ou problema parecidos... possam ser ajudados.

Fica aqui a dica.

Irei tentar fazer isso sou iniciante estou aprendendo as coisas na raça se der certo eu posto aqui a solução!
mas se poder postar a solução eu agradeço!

Eu não sei se e o certo mais fiz assim!

crie um botão e coloquei este código

Dim ComandoSQL As String

ComandoSQL = "select * from tabela_clientes"
Call Conecta
Set consulta = banco.OpenRecordset(ComandoSQL)

While Not consulta.EOF

If consulta(2) = txt_dtprova.Text Then
If consulta(1) = txt_nome.Text Then
MsgBox "Prova já foi cadastrada. Verifique! ", 64, "ATENÇÃO":
Me.txt_dtprova = ""
Me.txt_dtprova.SetFocus
Call Desconecta: Exit Sub
Else
End If
End If
consulta.MoveNext
Wend

Fiz os teste de 3 maneiras!

Exemplo 1:
Aluno 1 datadaprova 17/11/2013 aparece a mensagem "prova cadastrada"
Aluno 1 datadaprova 17/05/2016 nada acontece " esta ok isso por ser datadaprova nova"

Exemplo 2:
Aluno 1 datadaprova 17/11/2013 aparece a mensagem "prova cadastrada"
Aluno 1 datadaprova 17/05/2016 nada acontece " esta ok isso por ser datadaprova nova"
Aluno 2 datadaprova 17/11/2013 "pra ver se ele esta comparando nome do aluno e datadaprova se são iguais" nada acontece esta ok porque o aluno não tem esta datadaprova com essa data.

No meu entender acho que esta certo mas se os mestre poder dar umas dicas fico feliz em aprender!

Da pra fazer isso de uma forma mais Simples, utilizando o Dlookup, Dcount... Respondi isto aqui neste post, fiz ate um exemplo:

https://www.maximoaccess.com/t26081-resolvidoimpedir-dados-duplicados-em-uma-linha-de-registros


Outros Posts com a mesma Resolução:
https://www.maximoaccess.com/t26613-resolvidoimpedir-registos-com-campos-duplicados
https://www.maximoaccess.com/t8644-resolvidoimpedir-cadastramento-de-registro-duplicado-no-access

Pessoal já faz um tempo to tentando e não estou conseguindo fazer o código!

Olhando o código a baixo ele não deixa cadastrar com a mesma data o que eu queria.
Mas surgiu outra duvida como não deixar no mesmo mês:
Exemplo:

Aluno 1 datadaprova 17/05/2016 aparece a mensagem "Prova Já foi cadastrada"
Aluno 1 datadaprova 18/05/2016 Deve aparecer "Prova já foi feita este mês."

Private Sub CommandButton1_Click()

Dim ComandoSQL As String

ComandoSQL = "select * from tabela_clientes where nome = '" & txt_nome.Text & "'"

Call Conecta
Set consulta = banco.OpenRecordset(ComandoSQL)

While Not consulta.EOF

If consulta(2) = txt_dtprova.Text Then
MsgBox "Prova já foi cadastrada. Verifique! ", 64, "ATENÇÃO":
Me.txt_dtprova = ""
Me.txt_dtprova.SetFocus
Call Desconecta: Exit Sub
Else
End If
consulta.MoveNext
Wend
End Sub

Quem puder ajudar agradeço!

Bom dia pessoal!

Apos a ajuda do basole deu certo! (Muito Obrigado)!

Para aqueles que precisar segue o código para estudo!
Não sei se da pra fazer melhor se quiserem dar suas opiniões fiquem a vontade.

Private Sub CommandButton1_Click()

Dim ComandoSQL As String

ComandoSQL = "select * from tabela_clientes where nome = '" & txt_nome.Text & "'"

Call Conecta
Set consulta = banco.OpenRecordset(ComandoSQL)

While Not consulta.EOF

If consulta(2) = txt_dtprova.Text Then
MsgBox "Prova já foi cadastrada. Verifique! ", 64, "ATENÇÃO":
End if

txt_dtprova.Text = "" Then Exit Sub

If VBA.Month(consulta(2)) = VBA.Month(txt_dtprova.Text) Then
MsgBox "Prova já foi feita este mês.. Verifique! ", 64, "ATENÇÃO":

Me.txt_dtprova = ""
Me.txt_dtprova.SetFocus
Call Desconecta: Exit Sub

End If
consulta.MoveNext
Wend
End Sub

Obrigado a todos!