[Resolvido]Preencher campos de subformulário com dados de outra tabela

Bom dia a todos!
Tenho um formulário com subformulário onde informo as notas de alunos.
No formulário tem os dados do aluno e no subformulário as disciplinas e as notas.
O que desejo é ao cadastrar o aluno no formulário, o subformulário seja preenchido com as disciplinas automaticamente, sem que seja necessário informa-las aluno por aluno.
A tabela onde tenho cadastradas as disciplinas tem os seguintes campos:

Disciplina_Codigo = Numeração automática
Disciplina_Nome = Texto curto
Disciplina_Nota = Número

São sempre as mesmas disciplinas, não importa a série.

Obrigado!

Veja a mensagem Nº 02 deste topico: https://www.maximoaccess.com/t25775-inserir-dados-em-uma-tabela-via-sql-pelo-vba

A ideia é colocar um Botão pra rodar um comando SQL que insere as disciplinas na tabela... pode ser colocado ate no Botão salvar!

Só nao esquece de colocar um condição WHERE para inserir apenas no aluno atual

Ola fabiopaes!

Obrigado pelo retorno.

Ainda não entendi como funcionaria pois são 11 disciplinas diferentes e já tem o cadastro das mesmas em outra tabela.

E não seria possível inserir no evento após atualizar de uma caixa de combinação?

Pode sim... bom nesse caso vai ficar meio complicado pq sao 11 disciplinas e dessa forma teria que repetir o mesmo comando muitas vezes... Vamos aguardar pra ver se alguem tem uma sugestao melhor...
Se possivel posta seu BD pra entendermos melhor...

Tava Testando aqui, da pra fazer assim:

CurrentDb.Execute "INSERT INTO tb1 (Desc) SELECT tbCadProd.Desc FROM tbCadProd"

Assim ele insere na Tb1 campo Desc, todos os Dados (linha a linha) da tabela tbCadProd do campo Desc.

Adapta pra sua realidade com as condições...

Ola fabiopaes!
Ainda nao tive tempo para testar mas assim que o fizer retorno com o resultado.
Meus agradecimentos.

Ola Fabio

Ainda nao consegui.

Segue cópia do arquivo que estou trabalhando

Inserir disciplinas

Se houver uma solução, agradeço desde já.

Abraço!

Amigão, Veja se é assim que quer...

Veja como Ficou!
https://www.dropbox.com/s/6ywpqwiwze4x5ru/SIADE-Programa-CORRIGIDO.rar?dl=0

O comando ficou assim:

Código:


Private Sub btInserirMaterias_Click()
If MsgBox("Você está prestes a Incluir todas as DISCIPLINAS Para o Aluno: " & Me.Notas_Aluno_Nome.Value, vbInformation + vbYesNo, " Incluir Disciplina !!!") = vbYes Then
DoCmd.SetWarnings False
CurrentDb.Execute "INSERT INTO Tbl_DetalheNotas ( Disciplina_Codigo, Disciplina_nota, Cod_Notas, Cod_aluno )SELECT Tbl_Disciplina.Disciplina_Codigo, Tbl_Disciplina.Disciplina_Nome, '" & [Forms]![Frm_Notas]![Notas_Codigo_Aluno] & "', '" & [Forms]![Frm_Notas]![Notas_Codigo_Aluno] & "' FROM Tbl_Disciplina"
DoCmd.SetWarnings True
Else
MsgBox "Nenhuma disciplina FoI incluida para este Aluno Para o Aluno?", vbInformation, " Incluir Disciplina !!!"
End If
Me.Recalc
End Sub



O que importa mesmo Está aqui:
CurrentDb.Execute "INSERT INTO Tbl_DetalheNotas ( Disciplina_Codigo, Disciplina_nota, Cod_Notas, Cod_aluno )SELECT Tbl_Disciplina.Disciplina_Codigo, Tbl_Disciplina.Disciplina_Nome, '" & [Forms]![Frm_Notas]![Notas_Codigo_Aluno] & "', '" & [Forms]![Frm_Notas]![Notas_Codigo_Aluno] & "' FROM Tbl_Disciplina"

Obrigado Fabiopaes!

Era exatamente isso o objetivo.

Deus abençoe-o!

Bacana! Ate a próxima se Deus quiser! Bons estudos!