[Resolvido]Adicionar registros vindos de outra tabela

Boa Noite, pessoal...
Aqui estou eu novamente precisando da ajuda de vcs...
Gostaria de começar pedindo desculpas se criei um tópico desnecessário, pois eu mesma encontrei vários tópicos sobre a função DLookup. Mas pelo que pude perceber (me corrijam se estiver errada) nenhum deles faz referência à minha dúvida.
O meu problema é o seguinte: Estou fazendo um banco de dados pedagógico. Nele tenho o formulário Matricula e o formulário MatrizCurricular que possui um subformulário MatrizCurrDisc. O formulário Matrícula serve para realizar o cadastro dos dados dos alunos. Já o formulário MatrizCurricular serve para cadastrar o Ano catálogo do curso e o curso. O subformulário por sua vez, serve para cadastrar as disciplinas dos respectivos cursos cadastrados na MatrizCurricular.
No meu formulário Matricula tem um guia chamada Disciplinas onde gostaria que quando o aluno fosse matricula e enturmado na turma fossem listadas as disciplinas do curso que ele terá que fazer com suas respectivas cargas horárias, etc. Tenho a tabela DiscAluno para isso.
Estou utilizando a função DLookup que descobri ontem pesquisando na internet, mas não sei se é a maneira mais correta, pois quando executo o formulário ele adiciona apenas uma disciplina e não salva aquela disciplina para o aluno. Mas quando vou olhar na tabela DiscAluno o registro está lá.
O que preciso saber é se com a função DLookup é possível retornar vários registros(Disciplinas) para um aluno e se depois é possível salvar estes registros.

Oi Alinny! Você quer esses dados em uma listbox, em um subformulário ou em uma caixa de texto? Se for em um subformulário, basta criar o subform dentro de um form principal. Como imagino que as duas tabelas estejam devidamente relacionadas pelo código do aluno, os dados serão exibidos automaticamente ao selecionar um registro no formulário principal. Se for uma listbox, você pode usar algo assim, na linha "Fonte do registro", na aba Dados da listbox:

SELECT NomeDaTabela.NomeDoCampo FROM NomeDaTabela WHERE Código=" & [Código] & " ORDER BY Nome

Para uma caixa de texto, pode usar via vba, algo assim:

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT Disciplina FROM NomeDaTabela WHERE Código=" & Me.Código & " ORDER BY Disciplina")

Me.NomeDoCampo = Null
Do While Not rs.EOF
Me.NomeDoCampo = Me.NomeDoCampo & VBCRLF & rs!Disciplina
rs.MoveNext
Loop

rs.Close
Set rs = Nothing

Boa Noite Criquio!
Obrigada por ter respondido, mas agora surgiu um outro problema... Você sugeriu que utilizasse o código, via vba. Até aí tudo certo. Só que quando executo o código ele dá o erro em tempo de execução: 3075 (Operador faltando) 'Código='. Qual seria o erro?

Tente alterando assim:

Set rs = CurrentDb.OpenRecordset("SELECT Disciplina FROM NomeDaTabela WHERE Código='" & Me.Código & "' ORDER BY Disciplina")

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.