Comparar dados agendados e evitar duplicidade

Bom dia nobres mestres.

Tenho um sistema DO EJA (supletivo) com a função de agendamentos de provas, então preciso de um código que compare se o nome do aluno, data da prova e disciplina já encontram-se agendados, se ja estiverem exibir uma mensagem na tela informando que o aluno já esta agendado para a data e disciplina.

alguém pode me ajudar nesta questão?

A minha sugestão seria fazer essa validação por RecordSet

Talvez num botão de salver ou validar;

Código:

Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("SELECT * FROM SuaTabelaOuConsulta")

Do While Not rst.EOF
   If rst![SeuCampo1] = Me.SuaCaixaTexto1.Value And rst![SeuCampo2] = Me.SuaCaixaTexto2.Value Then
   MsgBox "Registro já lançado...", vbCritical
   Exit Do
   Else
'faz o procedimento de incluir ou salvar
   End If
rst.MoveNext
Loop
rst.Close

Neste exemplo coloquei a penas dois (2) criterios, mas pode fazer com muitos mais.

Ou pode usar a função interna DCount

Qualquer coisa assim:

Código:

    If DCount("*", "SuaTabela", "SeuCampo1=" & Me.txt01 And "SeuCampo2=" & Chr(34) & Me.txt02 & Chr(34))>0 Then

Muito obrigado JPaulo, vou olhar o codigo aqui e estuda-lo para o meu caso.
Depois retorno com o resultado.

Amigo JPaulo, fiz o teste aqui e deu um erro:

Tipos incompatíveis na linha abaixo

Set rst = CurrentDb.OpenRecordset("SELECT * FROM tbl_Materias")

Usei o primeiro exemplo que vc falou

Estranho;

Tente adicionar o DAO

Código:

Dim rst As DAO.Recordset
Dim db As DAO.Database
Set rst = db.OpenRecordset("SELECT * FROM SuaTabelaOuConsulta")

Bom dia Mestre JPaulo

Desculpe pela demora para da um retorno, é que estava meio enrolado.

Mas vamos ao que interessa. Ainda continua dando erro:

"O tipo definido pelo usuário não foi definido"

alinha do erro é esta: rst As DAO.Recordset

Fico no aguardo.

Entre no VBA, vá a Ferramentas, Referências e veja se tem marcada a referência "Microsoft Access xx.0 Object Library"

Ok, depois dou retorno

Sim esta marcado

Anexe o seu banco ou parte dele aqui.

posso mandar para seu e-mail.

pq ele tem informações particulares da empresa

Olá...
Com a licença de Nosso Mestre, anexo um exemplo que executa a mensagem com os dados da pesquisa e possibilita ir ao cadastro encontrado para edita-los de assim desejar.
Espero que ajude..

Ola Celso, Muito obrigado pelo interesse em ajudar.

e seu exemplo é muito bom também, irei fazer as adaptações para o meu sistema.

Olá...

Conseguiu resolver?

Continuamos aguardando o seu retorno

Abraços

Ola amigo,

Desculpe pela demora, mas é que estou meio ocupado com outras prioridades por isso ainda não tive tempo para da continuidade com o assunto. Mas prometo que assim que retornar aviso o resultado.

Obrigado!

Valeu..

Aguardamos

Abraços

Olá..

Conseguiu resolver esta sua solicitação de ajuda?

Os membros do Fórum merece o seu retorno

Abraços

Olá a todos,

Obede, como ficou a situação?
Os membros merecem e agradecem o retorno.


Abraço