[Resolvido]opção de copiar colar mais de 1 item no subformulário

Pessoal bom dia.

Estou passando por um pequeno problema.
Tenho um formulário de pesquisa que mostra outro chamado empresa.
Bom estou tentando usar um copiar colar.
Criei o evento pq quero informar o endereço da empresa e o de correspondência separado.
O problema é que quando clico no botão o access da a seguinte mensagem.”O objeto não aceita esta propriedade ou método”.
Montei esse código no ao clicar.

Private Sub Comando181_Click()
On Error GoTo Err_Comando181_Click

Forms![PESQUISA_EMPRESA].[CADASTRO_EMPRESA_AUX].EndCorre = Me.EndEmp
Forms![PESQUISA_EMPRESA].[CADASTRO_EMPRESA_AUX].NumCorre = Me.NumEmp
Forms![PESQUISA_EMPRESA].[CADASTRO_EMPRESA_AUX].CompCorre = Me.CompEmp
Forms![PESQUISA_EMPRESA].[CADASTRO_EMPRESA_AUX].BairroCorre = Me.BairroEmp
Forms![PESQUISA_EMPRESA].[CADASTRO_EMPRESA_AUX].CidadeCorre = Me.MunicEmp
Forms![PESQUISA_EMPRESA].[CADASTRO_EMPRESA_AUX].UFCorre = Me.UFEmp
Forms![PESQUISA_EMPRESA].[CADASTRO_EMPRESA_AUX].CEPCorre = Me.CEPEmp

Exit_Comando181_Click:
Exit Sub

Err_Comando181_Click:
MsgBox Err.Description
Resume Exit_Comando181_Click

End Sub

Onde estou errando.
Podem me ajudar.

experimente utilizar neste formato

Forms("PESQUISA_EMPRESA")("CADASTRO_EMPRESA_AUX")![EndCorre]= Me.EndEmp


abraços

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