[Resolvido]Limitar registros numa relação de tabelas

Boa tarde pessoal,

Como posso limitar uma quantidade de registro numa relação de tabelas. Exemplo: Tenho uma tabela turmas e uma tabela alunos, relação um-pra-muitos. Como limito uma quantidade de alunos para um registro de turma? e como aplico uma crítica quando alguem for cadastrar um aluno no formulário? OIbrigado!

Você pode usar o DCount. Agora, faltou passar o parâmetro a ser pesquisado, mas é algo assim:

If DCount("*", "SuaTabela") > 50 Then
MsgBox "Blablabla", vbOkOnly, "Erro"
End If

No caso acima, será verificado o número total de registro da tabela. Para uma busca específica, precisa passar o parâmetro, algo como:

If DCount("*", "SuaTabela", "Turma='" & Me.txtTurma & "'") > 50 Then
MsgBox "Blablabla", vbOkOnly, "Erro"
End If

ok criqio! mas deixa eu explicar melhor a situação. Tenho dois formulários, para cadastrar turmas e alunos, e uma tabela para cada um deles, no formulário de alunos tem uma combo que consulta os turmas cadastradas no bd, a combo serve para selecionar a turma que o aluno quer participar, esta combo esta relacionada por tabela com o campo turma da tabela turmas. Quero saber como faço pra cadastrar até 15 alunos para cada turma, ou seja, 15 registros de aluno para 1 registro de turma. E quando uma turma completasse os 15 alunos, ela não aparecesse mais na consulta da combo no formulário de alunos. Aguardo!

eu sei, deve tá meio difícil de compreender. Mas eu não quero limitar alunos numa tabela, mas limitar a quantidade de alunos relacionados com aquela turma. Acho q agora fui mais claro!

Tente o seguinte então: crie uma consulta à partir da tabela aonde estão cadastradas as turmas e no critério da consulta coloque:

Como DContar("*";"NomeTabela";"NomeCampo") < 15

Depois, crie a combo com essa consulta. Não testei aqui, foi um chute.

ainda não deu, msg de erro: "A EXPRESSÃO QUE VC INSERIU CONTÉM SINTAXE INVÁLIDA"... "Você omitiu um operando ou operador, inseriu uma vírgula ou caractere inválido, ou inseru um texto sem delimitá-lo por aspas". Aparece quando vou colocar a fórmula no critério da consulta, sendo que coloquei do mesmo jeito que tu falaste!

Tente o seguinte: na consulta, crie mais um campo assim: Qtde:DContar("*";"NomeTabela";"NomeCampo='" & [CampoTurma] & "'") e no critério desse mesmo campo coloque Como < 15

não entendi direito, tenho que criar mais um campo além do campo turma??? e na consulta o nome desse campo será: Qtde:DContar("*";"NomeTabela";"NomeCampo='" & [CampoTurma] & "'")??? eno critério deste mesmo campo colocar < 15. Isso mesmo??

Sim. Vamos supor sua consulta, no modo estrutura, assim:

|   Turma   |               |              |              |              |

Você adiciona o campo no próximo espaço vazio:

|   Turma   |Qtde:DContar...|              |              |              |

desse modo não aparece nada, a consulta não encontra nenhum registro! mas na linha de comando o [CampoTurma] será o nome do campo da tabela turma ou o nome da combo que consulta as turmas?

Dadokeys, apenas uma idéia:

Você tem a tabela turmas e a tabela alunos

Tabela turmas:
CodTurma
NomeDaTurma
NrDeVagas

Tabela alunos:
CodAluno
CodTurma
NomeDoAluno

Relaciona CodTurma a CodTurma

Agora monta-se um formulário com um subformulário:

O formulário vinculado a tabela turmas;
O Subformulário vinculado a alunos

Faz com que fique a forma pai e filho, ou seja, se lá no form tem a turma Geografia, no subformulário vai aparecer todos os alunos cadastrados nesta turma.

Daí, faz o subformulário contar e com esse resultado compara com a quantidade de vagas disponíveis que estará no formulário. Então lá haverá um botão para "Novo Cadastro" que chamará o form para lotar um novo aluno nesta turma, se o número de vagas esgotou, faz desaparecer o botão e substitui por um label do tipo: "Desculpe, número de vagas esgotados"

é isso, dá um pouco de trabalho, mas, fica funcional, já que vais lançar o número de vagas na tabela.

Analise.

boa idéia dilson, vou ver se funfa. Depois posto resultados!

Se quiser colocar uma cópia do aplicativo somente com os elementos envolvidos para darmos uma olhada tambem, fique à vontade.
Dica: para diminuir o tamanho e facilitar as coisas, podes excluir tudo que não implica no funcionamento dessa consulta. Podes ainda excluir eventuais registros da tabela, deixando apenas um para amostra. Depois, usar compactar/reparar. Isso pode reduzir drasticamente o tamanho do arquivo em muitos casos. Depois, zipa essa cópia para reduzir ainda mais.