[Resolvido]Copiar Campo Código de Form de Pesquisa para Outro Form Lançamento

Olá Pessoal,


Eu tenho um formulário de movimento que possuí um Sub-Formulário com os lançamentos de produtos.

Quando o focaliza o campo código do produto eu aperto a tecla F2 e abre o formulário de pesquisa dos produtos.


Eu quero ao apertar duas vezes o registro selecionado que o campo código do produto da listagem copie para o sub-formulário?




Como faço,


Me ajudem!

Bom dia.
Bem vamos ver se entendi:

Coloque no form de pesquisa o seguinte código:

Form!SeuFormPrincipal!SeuSubForm!Codigo = Me.CódigoProduto

Estou fazendo no escuro, pois você não passou nomes dos campos, nem dos forms.

Abraço

Cláudio,


Desde já muito obrigado pela ajuda, mas como sou iniciante na arte, não consegui resolver, vou passar os nomes dos formulários para que vc possa se inteirar melhor:


Formulário Principal: Frm_Movimento
Sub_Formulário: Frm_Det_Mov_Sub
Formulário de Pesquisa: Frm_Pesq_Serv_Mov


Eu quero que ao clicar com o mouse duas vezes na caixa de Listagem (Lst_Serviços) do Formulário Frm_Pesq_Serv_Mov, o campo Código do Serviço copie o valor para o campo Código do Serviço do Sub Formulário Frm_Det_Mov_Sub!


Será que assim, fica mais esclarecido,



Abraços,


Leonardo

Veja se é isso

Forms!Frm_Movimento!Frm_Det_Mov_Sub.Código do Serviço  = Me.Lst_Serviços.Column(0)

Coloque este código no campo que quer clicar duas vezes,

Não, Consigo!


Veja, eu estou aplicado esse código, mais ele depura e não executa, onde será que eu estou errando amigo?

Private Sub Lst_Servicos_DblClick(Cancel As Integer)
Forms!Frm_Movimento!Frm_Det_Mov_Sub.CodigodoServico = Me.Lst_Servicos.Column(0)
End Sub




Desde já agradeço,



Leonardo

Achei, O Erro!
Resolvido Cláudio!


Agradecido!!!!



Abraços,


Leonardo

Onde estava o erro?
Mostre para que sirva para outras pessoas com dúvidas.
E não esqueça de fechar o tópico.
Abraço

Tá Certo, Vamos Lá!


No dia 31/08, você me postou com o seguinte código:

Veja se é isso

Forms!Frm_Movimento!Frm_Det_Mov_Sub.Código do Serviço  = Me.Lst_Serviços.Column(0)

Coloque este código no campo que quer clicar duas vezes,


Então dava erro!

Quebrei a cabeça, e então resolvi trocar o "Frm_Det_Mov_Sub.Código do Serviço", por "Frm_Det_Mov_Sub!Código do Serviço", ou seja entre o formulário e o campo, eu usei a Exclamação, ao invés do ponto.

Deu Certo!

Mais uma vez, Obrigado!


Abraços,

Leonardo

Então a dica que lhe dei estava certa, o único problema foi pontuação.
Isso ocorre mesmo geralmente em programação, faz parte. As vezes um ponto, vírgula ou sinal errado ferra todo o funcionamento do código.
temos que quebrar cabeça mesmo.
Valeu.
Mas não esqueça de fechar o tópico hein!
Grande abraço e bom final de semana!

Ok,



Agradecido!

O fórum agradece o retorno.