Cadastro de Provas e Verificação antes de Lança

[jonasjtg]

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 quero e que não deixe também cadastra 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!

[Basole]

Use vba.Month para obter o mes da data.
Altere se necessario os campos da compatracao:

Código: Selecionar todos

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":

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
End If
consulta.MoveNext
Wend
End Sub

[jonasjtg]

Muito Obrigado!

Mas não deu certo!

Quando a data e igual aparece as duas mensagens!
Exemplo:
Data da prova 24/05/2016 mostra as duas mensagens prova cadastrada e feita no mês. Aqui só e pra mostra a mensagem "Prova já foi cadastrada"
Data da prova 25/05/2016 NADA FAZ" era pra mostra a mensagem Prova já foi feita este mês.."

E isso que aconteceu, se for possível continuar em me ajudar agradeço bastante.

[jonasjtg]

Bom dia pessoal!

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

Com o código acima fiz uma melhoria para minha necessidade e fico ótimo 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

[jonasjtg]

Por favor quem puder fechar tropico e colocar resolvido agradeço pq não achei a onde faz isso!