[Resolvido]Copiar um registro no formulário e seus registros relacionados no subformulário

Boa noite. Tenho um formulário de cadastro com um subformulário. Esse subformulário possui outro subformulário. Está tudo funcionando normalmente.
Preciso copiar um registro nesse formulário para colar em um novo registro mas preciso que copie também os dados desses subformulários.
Gostaria de criar um botão "Copiar para novo registro" mas que nas tabelas, o código colado vire o código que está na sequencia sem perder o relacionamento. Esse código seria o criado quando o novo registro foi aberto. Tem jeito isso?
Eu inseri a barra de seleção de registro no formulário principal e ele copia somente o formulário que está selecionado não copiando os dados nos subformulários.
Alguém sabe como fazer isso?
Obrigado!

Olá

Só uma ideia...

Pode tentar usar um Recordset para adicionar o registro pai, e Recordset's subsequentes para gerar os registros filhos.

    Dim db As Database
    Dim rs As DAO.Recordset
      Set db = CurrentDb
      Set rs = db.OpenRecordset("NomeTabela")
      rs.AddNew
      rs!Campo1 = Forms!NomeForm!NomeCampo1
      rs!Campo2 = Forms!NomeForm!NomeCampo2
      rs!Campo3 = Forms!NomeForm!NomeCampo2
      '...
      rs.Update
        rs.Close
        Set rs = Nothing
        db.Close
        Set db = Nothing

Para as subtabelas é preciso criar uma variável que retorne o ID do registro criado na tabela pai, e passar o valor para o Recordset filho.

Também deve se possível fazer com DoCmd.RunSQL

Esses campos que você diz são os campos dos subformulários?

rs!Campo1 = Forms!NomeForm!NomeCampo1
rs!Campo2 = Forms!NomeForm!NomeCampo2
rs!Campo3 = Forms!NomeForm!NomeCampo2

Não tenho muita experiência com vba e gostaria de maiores detalhes.
Este código ficaria no botão "ao clicar" no rodapé do formulário principal?

O Recordset abre uma tabela e permite a insersão de registros (AddNew).
Então informamos que os valores para os campos são:
O campo1 no novo registro da tabela é igual ao campo1 do formulário;
O campo2 no novo registro da tabela é igual ao campo2 do formulário;
... e assim por diante...

Para rodar o código pode ser um botão no form.

Boa tarde. Desculpa não ter retornado antes.
O código até que funcionou para o formulário principal mas quando inseri o subformulário (que tem outro subformulário) no código, não deu certo. Deu mensagem de erro de formulário ou campo não encontrado.
Como faço para ele entender que a cópia é feita a partir do primeiro registro no fomrulário principal e copie também os dados relacionados nos subformulários?
Neste relacionamento possuem 3 tabelas. A primeira inserida "NomeTabela", funcionou legal mas parece que ele não entendeu pra onde copiar os dados dos outros subformulários.

O primeiro formulário (Frm_CadastroPVECVE - tabela: Tbl_PVE-MIK) possui os seguintes campos que serão copiados:

tipo_pve_cve
pve_numero
revisao
cod_cliente
licitacao_pregao
licitacao2
cliente_primus
cliente_nao_primus
concessionaria
demonstracao
projeto
cod_vei
cod_modelo
cod_cabines
teto
cod_entre_eixos
cod_vpbase
referencia
cod_recurso_ext
descricao_de_configs
data_inicio
data_fim
data_negociacao
data_entrega
semana
obs_datas
cod_implem

Neste formulário possui o subformulário (SubFrm_PVE_MIK tabela: Tbl_PVE-MIK_num) com os seguintes campos a serem copiados:

item
Cod_desc
cod_area
vp
implementacao
pesquisa
cod_recursos
horas

No subformulário inserido no anterior (SubFrm_PVE_MIK1 - tabela: Tbl_PVE-MIK_num1) são os seguintes os campos:
Este subformulário está no modo "Formulário Continuo".

part_number
descricao1
delete
add
fornecedor
observacao

Todos esses campos devem ser inseridos nas tabelas e devidamente relacionados com código gerado automaticamente (cod_pve).

Segue uma apresentação do sistema para mostrar a ordem das tabelas.

http://www.4shared.com/office/kpKl0WP8/Copiar_registros_relacionados.htm

Ok, obrigado. Vou tentando. Se não der vai ser na munheca mesmo. Coloco um tutorial para copiar manualmente.