[Resolvido]Limitar turmas de curso

Estou elaborando um formulário de agendamento de turmas de um treinamento, porém, a minha sala e limitada a 80 pessoas e tenho 47 turmas.

Gostaria de uma ajuda de como criar uma trava que ao atingir o limite de uma determinada turma não permite mais o agendamento e da uma mensagem de turma lotada.

Segue abaixo a tela de agendamento.

Tela da Aplicação

Agradeço inicialmente pela ajuda.

La no agendamento, na Combo txt_Turma coloque no evento apos atualizar:

Código:

Private Sub txt_turma_AfterUpdate()
If Nz(DCount("*", "[Agendamento do Treinamento]", "[Turma]='" & Me.txt_turma & "'")) > 12 Then
Me.txt_turma = Null
MsgBox "Esta turma :" & Me.txt_turma & " Já excedeu o Limite de 80 Alunos!!!", vbCritical
End If
End Sub

Mude o 12 pelo limite de alunos... pois ele ira fazer a contagem, se for maior que 12 ele ira emitir o alerta...

Fábio,

Ajudou demais. Ficou excelente

Uma pergunta na MsgBox "Esta turma :" & Me.txt_turma & " Já excedeu o Limite de 80 Alunos!!!", vbCritical

Este " & Me.txt_turma & " era para aparecer o número da turma, caso positivo não esta aparecendo.

grato.

Rererererere, foi so uma desatenção minha!

Coloque a mensagem primeiro e a limpeza do campo depois!

assim:

Código:


If Nz(DCount("*", "[Agendamento do Treinamento]", "[Turma]='" & Me.txt_turma & "'")) > 12 Then
MsgBox "Esta turma :" & Me.txt_turma & " Já excedeu o Limite de 80 Alunos!!!", vbCritical
Me.txt_turma = Null


Fábio,

Você e muito fera...

Valeu demais ajudou muito.