[Resolvido]Atualização

Gente bom dia...

Meus queridos eu preciso de uma ajuda de vcs!!! Eu tenho um BD de inserção de alunos. A Res. 01/CME/2012 para 2013 diz
que "Creche 03 anos = 12 alunos, Pré I = 20 e Pré II = 25.".

Eu queria saber se tem alguma possibilidade de que meu BD me informe em tempo real o quantitativo de alunos que estão sendo inseridos e quando chegar no limite de 12 por exemplo Creche 03 anos me dê uma msg dizendo que a turma já está
completa e não deixe mais inserir mas nenhum aluno... Tem como... Desde já agradeços a atenção que vcs tem demostrado..

Boa tarde, Maria José

Existe essa possibilidade, desde que não esteja a introduzir directamente na tabela. Não conheço como tem a(s) tabela(s), mas utilize a função DCount:
If Dcount(Campo,Tabela,Critérios)=12 then
msgbox"Já atingiu o limite de ...
...
else
...
end if

Desculpa alexandre mas eu não entendi, seria uma caixa de msg é isso...

As tabelas são:

- DadosAluno;
- AnoEstudo;
- Turma;
- Turno;

A inserção das informações são iseridas através de uma consulta onde está apenas a tabela "DadosAluno";

Maria José,

Introduz os dados via consulta acréscimo? Após preenchimento dos dados num formulário? Pode disponibilizar a bd, mesmo com dados fictícios?

Alexandre eu vou disponibilizar meu BD pra vc entender tá... bjs

http://speedy.sh/wgGtf/Chamada-2012-06-23.mdb

Bom dia, Maria José

Tem de ir acompanhando outros temas abordados e aproveitar conhecimentos.
A nomeação dos controlos deve significar o tipo de controlo e conteúdo/função.

Substitua o seguinte procedimento:

Private Sub Comando120_Click()

'By JPaulo ® Maximo Access
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim MaxAlunos As Integer
On Error Resume Next

'verifica se as caixas de texto estão vazias
If IsNull(Me.NomeAluno) Or Me.NomeAluno = "" Or IsNull(Me.DataNascimento) Or Me.DataNascimento = "" Or IsNull(Me.Estado) Or Me.Estado = "" Or IsNull(Me.LocalNascimento) Or Me.LocalNascimento = "" Or IsNull(Me.NomeMae) Or Me.NomeMae = "" Or IsNull(Me.AnoEstudo) Or Me.AnoEstudo = "" Or IsNull(Me.Turma) Or Me.Turma = "" Or IsNull(Me.Turno) Or Me.Turno = "" Then
MsgBox "Preencha os campos com asterísticos e tente novamente!", vbCritical, ""
DoCmd.CancelEvent
Me.NomeAluno.SetFocus
Exit Sub
Else
Select Case AnoEstudo
Case 1
MaxAlunos = 12
Case 2
MaxAlunos = 20
Case 3
MaxAlunos = 25
End Select
If DCount("*", "DadosAluno", "AnoEstudo='" & AnoEstudo & "' and Turma='" & Turma & "'") = MaxAlunos Then
MsgBox "A turma já está cheia."
Exit Sub
End If
DoCmd.GoToRecord , , acNewRec

DoCmd.GoToRecord , , acNewRec
Me.Certidao.Visible = False
Me.Livro.Visible = False
Me.fls.Visible = False
Me.CarteiraIdentidade.Visible = False
Me.UF.Visible = False
Me.Orgao.Visible = False
Me.NomeAluno.SetFocus

Beep
MsgBox "Documento informado com êxito.", vbInformation, ""

End If
End Sub

Bom dia alexandre...

Meu querido, eu ainda obtive êxito, pois já está dando turma cheia com 02 alunos... mas eu vou ver o que eu faço por aqui e se não conseguir eu retorno... bjs

Ah obrigada pela dica...

Olá, Maria José

É estranho dar turma cheia com 2 alunos. Indique como a tabela está preenchida e que tipo de aluno está a tentar cadastrar.
Bjs

Boa tarde Alexandre!!!

Então, na verdade realmente está dando turma cheia com apenas dois alunos, sendo que como eu informei no primeiro tópico a CRECHE A por exemplo, quando chegar a 12 alunos cadastrados dar a mensagem de turma cheia, CRECHE B quando chegar a 12 cadastros dar turma cheia e assim por diante.. Assim como PRÉ I A, quando chegar a 20 cadastros, dar msg de turma cheia, PRÉ I B, quando chegar a 20 cadastros dar turma cheia e assim sucessivamente....
De antemão, muito obrigado pela sua preciosa atenção... Bjs

Olá Maria José

Foi distracção minha. Pareciam dados tipo texto, mas são dados tipo número.
Adapte a linha de código
de
If DCount("*", "DadosAluno", "AnoEstudo=" & AnoEstudo & "' and Turma='" & Turma & "'") = MaxAlunos Then
para
If DCount("*", "DadosAluno", "AnoEstudo=" & AnoEstudo & " and Turma=" & Turma) = MaxAlunos Then
Bjs

Boa tarde alexandre!!!

Meu querido deu muito mais do que certo!!! Ocorreu do jeitinho que eu queria. Quero deixar aqui meus sinceros agradecimentos pela sua preciosa atenção...

Muito obrigada pela ótima dica... Bjs

Só faltou o [Resolvido]
Coloquei-o
Bjs

Eu coloquei... Ou será que pensei que coloquei, mas tenho quase certesa que sim... rsrsrs