[Resolvido]Preencher campo de subformulario automaticamente

Boa tarde

Tenho 1 formulário aberto chamado "frmReqNova"

Este formulário "frmReqNova" tem um subformulário chamado "frmEntradasProdutosSubfrm"

No subformulário "frmEntradasProdutosSubfrm" tem um campo chamado "CboNomeProduto"

***************************************************************************
Quando o formulário principal "frmReqNova" está aberto ao entrar no No subformulário "frmEntradasProdutosSubfrm", e clicar F5 no campo CboNomeProduto" abro um formulário "Lista" que tem uma caixa de listagem que mostra todos os produtos.

Depois de selecionar um produto na caixa de listagem ao fechar o formulário "Lista".  

Queria preencher um campo que está num subformulário chamado "CboNomeProduto"

Private Sub Form_Close()
 Forms!frmReqNova.Form!frmEntradasProdutosSubfrm.CboNomeProduto = Me.Lista1.Column(1)
End Sub

Obrigado

Já tentou por o código no evento ao descarregar e não no evento ao fechar.

Boa tarde

Em qual é que eu não tentei

O erro deve estar no código

Obrigado

Boa tarde

Já envia os dados corretos, só que apareceu outro problema

Como o formulário é continuo o valor vai sempre para a primeira linha do dito formulário, e mesmo que já esteja preenchida, substitui o valor que lá tiver.

ok

crie um record set deste sub formulário e use a opção de rs.move new rec


mais ou mesmo isto

Bom dia Amigos

Segue o meu Exemplo

Obrigado

Bom dia

Com este código já consigo preencher os dados que queria.

Mas com a linha a vermelho para enviar o foco para o mesmo formulário não resulta.

Alguma ideia ?

If KeyCode = vbKeyReturn Then
DoCmd.GoToRecord , , acNewRec

Forms!frmReqNova!frmEntradasProdutosSubfrm!CodProduto = Me.Lista1.Column(0)

Forms!frmReqNova!frmEntradasProdutosSubfrm!Descricao = Me.Lista1.Column(3)

Forms!frmReqNova!frmEntradasProdutosSubfrm!txtquantidade.setfocus

 DoCmd.Close

End If

Olá..

primeiro temos que jogar o foco para o subformulário e depois para o campo.

tente:
Forms!frmReqNova!frmEntradasProdutosSubfrm.setfocus
Forms!frmReqNova!frmEntradasProdutosSubfrm!txtquantidade.setfocus

Aguardamos

braços

Obrigado Celso

No acontecimento ao fechar vai para lá direitinho.

Olá..

Valeu Assis

Abraços e sucesso