[Resolvido]Abrir um form filtrado através de um ListBox, pegando o valor do mesmo...

Boa Tarde pessoal,

Procurei pelo fórum conteúdos sobre a minha dúvida, achei alguns tópicos similares com o que eu queria, mas infelizmente não consegui resolver meu problema, acho que até por ser iniciante do iniciante.

Tenho um form contendo uma listbox e uma caixa de texto que quando vou digitando, obtenho valores filtrados na listbox. Ao clicar duas vezes no valor da listbox, há um comando do qual deveria abrir um formulário para edição, tendo sua consulta filtrada pelo valor selecionado na listbox, o que não acontece, pois quando faço um duplo click no valor da listbox ocorre um erro de tempo de execução, dizendo que há um operador faltando.

Deixo em anexo o BD, ele é bem básico mesmo.

Obrigado antecipadamente pela atenção e paciência pessoal!

Olá, benvindo ao forum!

Estou examinando seu aplicativo...
Por favor, aguarde o retorno.

Obrigado pela atenção norbs, vou dar uma olhada e dou retorno sobre o resultado!

Oi norbs,

Cara... Olhei o BD que você postou no fórum e realmente é muito arretado. Mas tenho o objetivo de fazer aquela filtragem que fiz no BD em um form com muitos campos e a ideia de abrir um form já filtrado é para justamento o usuário não precisar abrir o mesmo contendo todos os registros da TB.

Tendo em vista isso, vou adaptar sua ideia para um outro BD que tenho, mas se possível, queria saber como resolver o erro do BD que anexei acima!

Obrigado mais uma vez e desculpa estar incomodando com isso!

Olá amigos, bom dia!

Kalinfo,

No evento ao clicar duas vezes da listBox chamada cxLista, no lugar disto:

If Not IsNull(Me.cxLista) Then
DoCmd.OpenForm "frmAlteraDados3", , , "txtNomeC = " & Me!cxLista.Column(1)
End If


Coloque isto:

On Error GoTo Err_cxLista_Click

If IsNull(Me.cxLista) Then

MsgBox "Selecione um nome válido na lista", vbCritical, "Atenção"

Else

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frmAlteraDados3"

stLinkCriteria = "[ID]=" & Me![cxLista]
DoCmd.OpenForm stDocName, , , stLinkCriteria

End If

Exit_cxLista_Click:
Exit Sub

Err_cxLista_Click:
MsgBox Err.Description
Resume Exit_cxLista_Click

Bom Dia Pessoal,


Dilson, meu Muito Obrigado a você, pois o seu trecho de código serviu como uma luva quando fiz a substituição! Funcionou perfeitamente!

Só uma coisa Dilson, sem querer abusar, mas como eu faria para que ao invés de usar o campo Id para filtrar, usar o campo 'Nome', uma vez que o valor é armazenado na segunda coluna da listbox, tirando o fato de que é do tipo texto ?

Obrigado mais uma vez Dilson pela ajuda!

Se quiser capturar o valor de outra coluna da listBox, veja esse exemplo:
listbox - Capturar valor da coluna da ListBox (caixa de listagem) e preencher TextBox (caixa de texto)

Apartir daí, faça as implementações que desejar.

O forum agradece que tenha retornado!

Muito obrigado Dilson, vou estar olhando o link que você me passou! Valew mesmo pela ajuda!

Obrigado também ao pessoal do MaximoAccess!

Bom dia Dílson!

Não consegui fazer funcionar! Ao clicar duas vezes no item da ListBox fica aparecendo apenas a msg "Selecione um nome válido na lista" !!Coloquei o mesmo nome na minha listbox para cxLista e troquei o campo stDocName = "frmAlteraDados3" para o nome do formulário que eu quero q ele direcione! Tem alguma dica do que pode ser?