[Resolvido]Agendamento com base em 3 campos

Prezados Senhores

Estou tentando desenvolver um controle para agendar provas de alunos, da minha escola.
Num  formulário  tenho 3 textbox: datap , hora_inicio e equipto.
Considerações:  datap = dia/mês/ano; Hora_inicio = hora cheia; Qtde de equipamentos = 15 unidades.
Restrição: Os agendamentos não podem ser superiores ao número de equipamentos(15);
Cada equipamento não poderá ter mais do que um usuário no mesmo dia e no mesmo horário.
Ex.:  Se já existir  Data: 10/01/2014 – Hora: 08:00 – Equipto: Maq 5, um novo registro com os mesmos dados não poderá ser aceito.

Usando o código abaixo para as condições Datap e Hora_inicio, consegui sucesso parcial:

Private Sub HORA_Inicio_BeforeUpdate(Cancel As Integer)
If  
DCount("DATAP", "[Agendamento_Prova]", "DATAP = Forms![Agendamento_Prova]!DATAP") >= 2 And
DCount("HORA_Inicio", "[Agendamento_Prova]", "HORA_Inicio = Forms![Agendamento_Prova]!HORA_Inicio") >= 2 Then

MsgBox "Excedeu o número permitido de escolhas!" & Chr(13) & "Verifique o Mapa.", vbCritical, " Administrador do Sistema!"
Cancel = True
Me.Undo
Exit Sub
End If
End Sub

No entanto, ao entrar com a terceira condição “ Equipto “, bloqueia tudo.
Vide código abaixo:

Private Sub Equipto_BeforeUpdate(Cancel As Integer)
If
DCount("DATAP", "[Agendamento_Prova]", "DATAP = Forms![Agendamento_Prova]!DATAP") >= 2  And
DCount("HORA_Inicio", "[Agendamento_Prova]", "HORA_Inicio = Forms![Agendamento_Prova]!HORA_Inicio") >= 2  And
DCount("Equipto", "[Agendamento_Prova]", "Equipto = Forms![Agendamento_Prova]!Equipto") >= 2 Then

MsgBox "Excedeu o número permitido de escolhas!" & Chr(13) & "Verifique o Mapa.", vbCritical, " Administrador do Sistema! "
Cancel = True
Me.Undo
Exit Sub
End If
End Sub

Diante do exposto, como devo proceder? Onde estou errando?
Desde já obrigado pela ajuda.
Mauricio Menezes

Maurício, bem vindo ao fórum!!

Não entendo muito de VBA, mas a primeira condição está no campo HORA_inicio

Código:

Private Sub HORA_Inicio_BeforeUpdate(Cancel As Integer)

E a segunda está no campo Equipto

mas com as condições do primeiro campo

Código:

DCount("DATAP", "[Agendamento_Prova]", "DATAP = Forms![Agendamento_Prova]!DATAP") >= 2  And
DCount("HORA_Inicio", "[Agendamento_Prova]", "HORA_Inicio = Forms![Agendamento_Prova]!HORA_Inicio") >= 2  And
DCount("Equipto", "[Agendamento_Prova]", "Equipto = Forms![Agendamento_Prova]!Equipto") >= 2 Then

É assim mesmo que tem de ser ou escrevi besteira?

Felicidades

Prezado João Ricardo. Boa Tarde!

Muito obrigado por ter respondido.
Bem, quanto ao seu questionamento, ao elaborar o formulário sequenciei  assim os textbox: DATAP, HORA_Inicio e Equipto.
Quando testei a 1ª opção, entendi que deveria ser colocado no último textbox,  HORA_Incio, pois todos os dados já teriam sido digitados.
Segui  a mesma linha de raciocínio quando fiz a 2ª opção, colocando no último textbox, desta feita, o Equipto.
Na 1ª opção funcionou bem. Já na 2ª, travou tudo.
Meus conhecimentos me levaram até aqui. Agora, não sei detectar o erro e prosseguir.
Obrigado.
Mauricio Menezes

Prezados do Fórum

Para não deixar aberto o tópico no qual apresentei a minha dificuldade em concluir o controle que estava criando, apresento abaixo a solução que encontrei depois de me debruçar sobre a questão, pesquisar e estudar um pouco mais. Quem ela sirva de base para outros na mesma condição.

-> O que fiz foi criar uma consulta de nome CS_AgProva contendo tão somente os 3 campos DATAP, HORA_Inicio e Equipto, devidamente relacionados as respectivas textbox do formulário “Agendamento_Prova”.

Por fim, substitui na função DCount o nome da tabela pelo nome da Consulta.
Vejam como ficou o código:

Private Sub Equipto_BeforeUpdate(Cancel As Integer)
If
DCount("DATAP", "[CS_AgProva]", "DATAP = Forms![Agendamento_Prova]!DATAP") >= 15 And _
DCount("HORA_Inicio", "[CS_AgProva]", "HORA_Inicio = Forms![Agendamento_Prova]!HORA_Inicio") >= 15 And _
DCount("Equipto", "[CS_AgProva]", "Equipto = Forms![Agendamento_Prova]!Equipto") >=15 Then

MsgBox "Excedeu o número permitido de escolhas!" & Chr(13) & "Verifique o Mapa.", vbCritical, " Administrador do Sistema! "
Cancel = True
Me.Undo
Exit Sub
End If
End Sub

Fiz os teste preliminares e funcionou como desejava.
Obrigado a todos.

Uma correção. No código aonde está escrito 15, leia-se 1.