[Resolvido]Mostrar campos ao dar duplo click numa caixa de listagem

Boas

Tenho um form com varios campos de cadastro de clientes.
Criei uma caixa de listagem para ser mais facil a procura desses clientes, gostava de saber se existe forma de dar duplo click nos campos dessa caixa de listagem e assim atualizar os campos do cadastro do cliente, para efetuar alterações.

Obrigado pelo tempo dispensado.

Ola;

Uma pergunta;

Quer dar duplo click e filtrar o formulario com registos existentes, ou quer popular nos campos do formulario os dados da lista para um novo registo ?

Boas

Não quero introduzir registos novos, quero apenas que mostre os capos correspondentes ao que foi selecionado pelo duplo click, para poder consultar e/ou alterar.

Obrigado.

Você pode criar uma macro com a ação "abrir formulário" e coloca-la na propriedade "ao clicar duas vezes" da caixa de listagem...

No acontecimento VBA Duplo Click na sua ListaBox

Dim rs As Object
Set rs = Me.Recordset.Clone
     rs.FindFirst "[SeuCampo] = " & Str(Nz(Me![SuaLista], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

Peço desculpa pela minha inexperiencia e falta de conhecimento mas o que devo colocar onde diz SeuCampo e SuaLista?

Em SuaLista julgo ser o nome da boxlist...será?, mas o SeuCampo não estou a ver.
Mais uma vez obrigado.

SeuCampo é o Campo que vai dar origem ao filtro.

Não está a resultar... dá erro.

O código que coloquei é este:

Private Sub Lista27_DblClick(Cancel As Integer)
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "codevento = " & Str(Nz(Me!Lista27, 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

codevento é o nome do campo principal da tabela...

O que será que fiz mal??

É texto ou numerico ?

Em que coluna da lista está esse campo ?

Na primeira, na segunda, ou .... ?

E numerico.
Está na primeira coluna.

teste;

Private Sub Lista27_DblClick(Cancel As Integer)
Dim rs As Object
Set rs = Me.Recordset.Clone
     rs.FindFirst "codevento = " & Nz(Me.Lista27.Column(0), 0)
     If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Me.Recalc
End Sub

não resultou.

Vou enviar aqui o BD.
Já consegui entretanto fazer o que pretendo mas com um form com base numa consulta...
Se puder dar uma olhadela, o que pretendo que aconteça é como o formulario 'Consulta Obras Localização', mas no formulario 'FormObrasEstado', dando duplo click na caixa de listagem.

Está tudo muito mal arrumado, mas acho dá para perceber   

Obrigado.

Não funcionava porque não era o campo que você disse "codevento" é o "Nº Obra";

Teste;

Private Sub Lista27_DblClick(Cancel As Integer)
Dim rs As Object
Set rs = Me.Recordset.Clone
    rs.FindFirst "[Nº Obra] = " & Nz(Me.Lista27.Column(0), 0)
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Me.Recalc
End Sub

Grande JPaulo !!!   
Tá mesmo como eu precisava... muito obrigado pelo seu tempo e paciencia.

Obrigado mesmo!

Obrigado pelo retorno o forum agradece.