[Resolvido]Registro em Formulários diferentes

Boa tarde!

Minha dúvida são duas tentei várias formas e não consegui:
1ª - Tenho uma tabela de cadastrado de aluno, aonde tem os dados do indivíduo, ao salvar eu direciono para fazer a matrícula dele os campos estão ligados através do CPF, minha primeira pergunta como fazer para quando eu mandar fazer a matrícula eu não tenha que digitar novamente o CPF?

2ª - No cadastrado de matrícula os alunos fazem partes de turmas, o que eu necessito é que quando der um limite de 18 alunos nessa determinada turma ele não me deixe cadastrar mais alunos e me informe quantos alunos faltam para preencher o número de 18 alunos por turma.

Segue BD..

Fico no aguardo da ajuda...

Obrigado...

resposta para a pergunta 2

no evento antes de atualizar do campo txt_turma

If DCount("[Cod_Turma]", "tbl_Escola", [Cod_Turma] = Me.Txt_turma) >18 Then

MsgBox "turma completa", vbCritical
Else
MsgBox "Ainda tem Vaga"

End If


Agora para a primeira não entendi nada me parece que esta tudo certo,
sem contar que fiquei procurando por uma tabela de cadastro de aluno uns 5 minutos, porque o nome não bate com o que voce colocou na duvida.


Boa sorte

Professor Scandinavo

Com relação ao meu questionamento, o que eu gostaria é que quando eu terminasse de fazer o cadastro do aluno no forms_aluno, ao salvar ele me transfere para o forms_escola aonde irei fazer a matrícula desse aluno, eu gostaria que o cpf cadastrado na tbl_aluno através do formulário, viesse automático para o formulário forms_escola, pois eu coloquei uma caixa de combinação aonde eu digito o cpf e aparece os dados.
Não sei se isso é possível...

Já em relação a turma deu certo, Obrigado.

Valeu....

Agora entendi o que voce quer
em relação a resposta anterior o codigo não esta funcionado direito use este

Pergunta 2

'duas opcoes de funcionamento
'If DCount("Cod_Turma", "tbl_Escola", "Cod_Turma = Forms!Forms_Escola!Txt_turma") >= 5 Then
If DCount("Cod_Turma", "tbl_Escola", "Cod_Turma= " & "Txt_turma") >= 5 Then

MsgBox "turma completa", vbCritical
'faltou estas duas linhas
Me.Txt_turma.Undo
Cancel = True
Else
MsgBox "Ainda tem Vaga"

End If

Para a 1 Pergunta

'verifica se o frm aluno esta aberto
Dim f
For Each f In Forms
'se o formulario estiver aberto preenche se nao segue em frente
If f.Name = "Forms_Aluno" Then
'preenche o campo com o numero do CPF
Me!Txt_CPF = Forms!Forms_Aluno!Txt_CPF
'depois de capturar o CPF, agora fechar o formulario
DoCmd.Close acForm, "Forms_aluno"
Else

End If

Next

veja anexo com codigo completo



Boa sorte

Professor Scandinavo

Ficou perfeito aprendi bastante esse código eu usarei bastante...

Obrigado...

Valeu pelo retorno