[Resolvido]Ao Clicar Duas Vezes Caixa de Listagem

Boa noite,


Num formulário desvinculado da Tabela, como posso fazer para ao clicar duas vezes na caixa de listagem, carregar os valores no campos


Estava tentanto usar esse comando abaixo, e dá certo, porém eu vou precisar programar todos os campos,

Me.Id_Ent_2 = Me!Lista21.Column(0)
    Me.Data_Ent = Me!Lista21.Column(1)


Já num formulário que está vinculado com a tabela, consigo facilmente com o comando abaixo, mas não é o caso, então não estou sabendo como resolver.

       DoCmd.GoToControl "Id_Ent_2"
Me.Filter = "Id_Ent_2=" & Me.[Lista21]
Me.FilterOn = True

Obrigado.

Alguma sugestão?

Bom dia
Não entendi o que pretende fazer. Primeiro, sugere a atribuição dum valor; depois, sugere um filtro.

Bom dia,

Bom, vamos lá, explico...

O que eu quero é dar dois cliques na minha caixa de listagem e carregar todos os valores nos campos do meu formulário, mas isso com campos DESVINCULADOS DA TABELA.

Atualmente estou usando este comando abaixo, e funciona certo, porém os campos estão VINUCULADOS A TABELA.

DoCmd.GoToControl "Id_Ent_2"
Me.Filter = "Id_Ent_2=" & Me.[Lista21]
Me.FilterOn = True

Não consegui fazer funcionar o mesmo comando com os campos DESVINCULADOS.

E já com esse comando abaixo até dá certo, mas eu precisarei programar todos os campos, diferente do citado acima, que faz referência apenas a chave primária e já carrega todos os demais campos.


Me.Id_Ent_2 = Me!Lista21.Column(0)
Me.Data_Ent = Me!Lista21.Column(1)

Olá Ismael,

Desta forma vc está transferindo os valores da tua lista para os campos da tela.
Se a lista possuir todas as colunas referentes aos campos, funciona também.
Na minha opinião o melhor seria criar uma rotina para carregar os campos da tela, utilizando como critério de pesquisa, 1 ou mais campos da linha que vc selecionou.

Esta rotina consiste em criar um recordset e carrega-lo através de uma instrução SQL.

Dim strSel as string
Dim rs as Dao. Recordset

StrSel = " Select * from tabela where id = id da lista...."

Set RS = Currentdb.openrecordset(StrSel)

Campo1 = Rs ("campo1")
...
..
RS.close
Set RS= nothing

Alexandre Fim,

Fiz o teste com a sua sugestão, porém está apresentando um erro.

Poderia verificar o que está errado, visto que a ideia é ao clicar na caixa de listagem carregar os dados nos campos acima para posterior editar se for o caso.

Coloquei o código no evento ao clicar duas vezes na caixa de listagem.

Imael,

Estou ajustando o seu formulário e daqui a pouco eu disponibilizo nova versão.

Aguarde.

Fim

Ismael,

Segue versão do seu projeto com as devidas alterações.

Observe os comentário no código para vc entender o que cada procedimento faz.

Espero ter ajudado.

Abraço


Fim

Isso mesmo Alexandre, Obrigado pela a ajuda.

Resolvido.

Valeu Ismael.
O fórum agradece.
Sucesso !!!