[Resolvido]Código para inserir dados de uma tabela em outra com filtro

Boa tarde amigos
Tenho uma dúvida e peço ajuda do Fórum.
Estou montando um banco de dados onde irei qualificar colaboradores baseado nos treinamentos realizados.

As tabelas são: Colaboradores, Funções, Treinamentos e Qualificação e Status do Treinamento.
Criei as tabelas e já fiz os relacionamentos, sendo que existe um formulário de cadastro de função (ex: contador, auditor) e seus respectivos treinamentos exigidos para a função cadastrada.
Minha dúvida é a seguinte.

No formulário Qualificação ao selecionar o Colaborador e a Função (Cbo) que desejo qualificar, preciso que o access insira os treinamentos já cadastrados na tabela de Treinamentos para a Tabela de Status (subformulário do Formulário Qualificação), para que eu possa qualificar cada colaborador.

Tentei realizar um código INSERT INTO ao atualizar a cbo IDFunção mas contem erros, pois ele insere apenas uma linha em branco na tabela Status. Deixei o código para que entenda onde deve ir os registros inseridos.

Desde já agradeço pela ajuda.

Selecione o Colaborador, e a Função... Apos atualizar ele preenche o subformulario.

Meu amigo.
Muito obrigado por partilhar seus conhecimentos comigo.
Era isso mesmo que eu precisava.
Agradeço muito mesmo.
Deus o abençoe!
Parabéns pela rapidez que me respondeu e resolveu o meu problema.
Grande abraço!

Bacana meu amigo, que bom que deu certo! Ate a próxima!


Postando o Codigo, pois minha cota de Anexo ta no Limite!

Código:

Private Sub IdFunção_AfterUpdate()
'------------------------------------------------------------------'
'                          Criado por Fabio Paes                '
'            Para o MaximoAccess em 12/07/2016      '
'------------------------------------------------------------------'
Dim DB As Database
Dim rs As DAO.Recordset
Dim rs1 As DAO.Recordset

Set DB = CurrentDb()


    Set rs = DB.OpenRecordset("SELECT * FROM treinamentos WHERE [Função] = " & Me.[IdFunção] & "") ' Tabela onde tem os Dados
    Set rs1 = DB.OpenRecordset("SELECT * FROM Status") ' Tabela que receberá os dados
    'Percorre a Tabela de Origem dados
    Do While Not rs.EOF
        'Inicia a Gravação dos dados
        rs1.AddNew
        rs1("IdQualific") = Me.idQualificacao
        rs1("IdFunção") = Me.IdFunção
        rs1("IdTreinamentos") = rs("idTreinamento")
        rs1("Tipo") = rs("Tipo")
        rs1.Update
    rs.MoveNext
    Loop
    'Fecha as conexoes
    rs.Close
    rs1.Close
    DB.Close
 'Recarrega os dados do Formulario
Me.Recalc
End Sub