[Resolvido]Como inserir dados filtrados de uma consulta em um subformulário através de um combobox

Olá amigos!
Esta é a primeira vez que uso o fórum para tentar esclarecer uma dúvida e espero obter sucesso.
Já fiz muitas pesquisas e ainda não consegui encontrar uma solução para meu problema.
Eu tenho um banco de dados onde eu tenho alunos cadastrados num curso de informática e tenho que controlar a presença e ausência desses alunos. Para isso achei mais fácil ter o controle por aulas e toda vez tenho que marcar o aluno em cada aula.
Queria ver se é possível, após escolher a turma na qual o aluno é matriculado através de um combobox, o mesmo filtre os alunos daquela turma e os insira num subformulário para me poupar do trabalho de inserir aluno por aluno toda aula.

Olá  Tayguara

Digamos que a tua combobox contenha as turmas de alunos

Crie uma consulta seleção da tabela de cadastro de alunos (imagino que essa tabela contenha todos os dados do aluno, inclusive a turma a que pertence e que esses campos são os mesmos do subformulário.
Uma vez que colocou os campos que deseja nessa consulta, ainda no modo designe dela, na linha criterio e na coluna turma, coloque
somente um x.
Acreditando que domina um pouco o VBA, mude o modo dessa consulta para SQL e copie.

Agora, na propriedade após atualizar da tua combobox que deve estar no formulário principal, coloque:

me.NomedoSubformulário.Form.RecordSource = coloque aqui  a frase SQL que copiou da consulta.

Uma vez copiada essa frase substitua nela o x(que foi colocado no critério do campo turma) por:

= Me.Parent!Nomedacombobox

Caso não funcione, coloque o nome completo = Forms!NomedoFormulárioPrincipal!NomedaCombobox

e por ultimo coloque:

me.NomedoSubformulário.Form.Requery

Pronto. toda vez que clicar na combobox , a fonte de registro do subformulário irá mudar para filtrar os alunos da turma que foi escolhida.

A consulta criada foi para pegar o código SQL, pode deletar ela.

Olá Noobezinho

Obrigado pela resposta.

Infelizmente não consegui, dá um erro de sintaxe e como sou iniciante não sei onde encontrar o erro.

O código ficou assim:

Me.Sub_Frm_detalhe_aula.Form.RecordSource = SELECT Tbl_Alunos.Cód_aluno, Tbl_Alunos.Nome_Aluno, Tbl_Alunos.Aluno_Status, Tbl_Matricula.Turma FROM Tbl_Alunos INNER JOIN Tbl_Matricula ON Tbl_Alunos.Cód_aluno = Tbl_Matricula.Cod_aluno WHERE (((Tbl_Alunos.Aluno_Status) = "Ativo") And ((Tbl_Matricula.Turma) = Me.Parent!turma ))

Porém, ele ficou vermelho, tem um erro que não sei identificar.

Esqueci de mencionar

Os alunos sao cadastrados na tabela tbl_alunos e matriculados na tabela tbl_matricula onde é indicada a turma na qual está matriculado. As aulas são inseridas na tabela Tbl_aula e os detalhes de quem esteve presente ou não na tabela tbl_detalhe_aula que é o subformulário que preciso inserir os nomes dos alunos.

Eu uso Windows 8.1 64bits e o meu access é o 2013.

Obrigado

Ola!
Após várias tentativas, consegui escrever a instrução conforme o amigo Noobezinho havia ensinado, porém, após executar a combobox não insere nenhum nome, gera a quantidade exata mas os campos onde deveriam estar os nomes ficam todos em branco.

Tayguara


Anexe teu aplicativo, ou seja, a tabela e os formulários em questão

para nós analisar.

Coloque o teu exemplo no Mega ou Dropbox e então deixe aqui

o link para podermos baixar.

[ ]'s

Ola!
Segue o link com o arquivo.

Curso

Abraço!

Tayguara

clique aqui:

Meu amigo

Dê um pente fino no teu aplicativo.

Nele tem campos definidos como número numa tabela e em outra como texto.
exemplo: campo Turma.
Atenção ao escrever o nome do campo: Turma é diferente de turma.
Veja as combobox.
A consulta delas devem começar sempre com o código do registro, se mudar de lugar, vai
se confundir quando for referenciar.
A coluna acoplada nas comboboxes e listboxes, devem ser sempre o código do registro (com raras exceções,para o uso de outros campos).
Para definir o que mostrar na combobox, use  as propriedades numero de coluna(igual ao número de campos da consulta da origem da linha).
Para definir qual a coluna não exibir, coloque 0cm na largura da coluna e para exibir a largura, por exemplo: 2cm.
Então na propriedade larguras da coluna da combo:
Exemplo: 0cm;2cm;0cm;0cm
Então a combo exibira somente a segunda coluna.
Lembre-se as colunas são contadas a partir de 0
No exemplo acima, as colunas vão de 0 ao 3 = 4 colunas

[ ]'s

Olá Noobezinho!
Encontrei um erro no campo nome_aluno e agora aparece os nomes dos alunos no subformulário porém não fica registrado, quando se fecha o arquivo e depois torna a abrir não mostra registro nenhum.

Olá!
Fiz um arquivo na tentativa de acertar e aprender a utilizar o recurso mas infelizmente não consegui.
vou anexar o arquivo na tentativa de ser encontrada uma solução.

Obrigado!

Formulário Exemplo

Olá a todos!
Voltei para apresentar a solução para a dúvida que eu tinha e deixar um anexo de exemplo para caso alguém precise algum dia.

Este é o código para colocar no evento após atualizar da caixa de combinaçao:

Código:

Me.Sub_Frm_Aula.SetFocus
Dim turma As String
Dim aula As Integer
Dim db As Database
Set db = CurrentDb()


Dim rst1 As DAO.Recordset
Dim rst2 As DAO.Recordset

turma = Me.Aula_Turma
aula = Me.Aula_Codigo

Set rst2 = db.OpenRecordset("SELECT matricula_aluno_nome,matricula_aluno_codigo, matricula_turma FROM tbl_Matricula WHERE matricula_turma= """ & Aula_Turma & """")


Set rst1 = Me.Sub_Frm_Aula.Form.RecordsetClone
rst2.MoveFirst
Do While Not rst2.EOF
With rst1
.AddNew

!Detalhe_Aula_Aluno_Codigo = rst2!Matricula_Aluno_Codigo
!Detalhe_Aula_Aluno_Nome = rst2!Matricula_Aluno_Nome
!Detalhe_Aula_Numero = aula
!Detalhe_Aula_Presente = -1

.Update
End With
rst2.MoveNext
Loop
Me.Sub_Frm_Aula.Form.Requery

para funcionar tens de verificar se no editor VBA, em referencias se esta activa a seguinte library :

Microsoft DAO 3.6 Object Library

Para quem quiser ver o exemplo funcionando, Clique aqui