[Resolvido]preenchimento automatico

boa tarde,
solicito da vossa ajuda;
tenho um formulario frm_pedido nele criei um botao btnpesquisar, ao clicar neste botão abre o formulario frm_Cst_CadFuncionario
de pesquisa e pretendo que ao fazer duplo clique sobre a informação pesquisada/filtrada preenche automaticamente os campos txtnumFuncionario, txtnomeFuncionario, txtdepartamento, txtseccao e txtfuncao no formulario frm_Pedido.
já tentei os dois códigos abaixo mas fica em branco (não preenche); a onde estou a errar.
agradeço a vossa ajuda

# DoCmd.OpenForm "Frm_Pedido", , , "[ID_Ped]= " & Me.lstnome & "", , acNormal
DoCmd.Close acForm, "Frm_Cst_CadFuncionario"

# DoCmd.OpenForm "Frm_Pedido", acNormal, "", "[ID_Ped]=[Forms]![Frm_Cst_CadFuncionario]![lstnome]", , acNormal
DoCmd.Close acForm, "Frm_Cst_CadFuncionario"

Bom dia Mary!

Já tentou realizar o for each no seu List Box frm_Cst_CadFuncionario, e posteriormente ir associando as informações capturadas, aos controles do formulário frm_Pedido ?

No aguardo.

obrigado kleber.arruda pelo retorno,

Não tentei o "for each" pois não tenho este pratica/conhecimento.
agradeço a vossa ajuda.

Uma ótima oportunidade para aprender:

https://msdn.microsoft.com/pt-br/vba/language-reference-vba/articles/for-eachnext-statement

Boa noite

Teste no botão pesquisar

Private Sub lstnome_DblClick(Cancel As Integer)
 Forms.frm_pedido.txtNumFuncionario = Me.lstnome.Column(0)
'Forms.frm_pedido.txtNomeFuncionario = Me.lstnome.Column(3)' Este não dá porque é texto e no form frm_Pedido é numero
Forms.frm_pedido.txtDepartamento = Me.lstnome.Column(4)
Forms.frm_pedido.txtSeccao = Me.lstnome.Column(5)

Forms.frm_pedido.txtFuncao = Me.lstnome.Column(6)
DoCmd.Close acForm, "Frm_Cst_CadFuncionario"

End Sub

No meu exemplo que anexo funciona tudo, mas alterei na tabela "Tbl_Pedido"  o campo " NomeFuncionario" de número para texto

magnífico mestre Assis está a funcionar.
amigo kleber.arruda grande aprendizado.

maryprego
Obrigado pelo retorno