[Resolvido]Clikar em linha numa caixa de listagem para abrir formulario que tem outra caixa de listagem e filtrar dados

Boa noite

O formulario "FiltroDosDescritivos" abre só que o critério "stLinkCriteria" não funciona, falta por a columna mas não consigo.

Private Sub lst_1_DblClick(Cancel As Integer)
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "FiltroDosDescritivos"

stLinkCriteria = "[lst_1]=" & "'" & Me![lst_1] & "'"

DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub

As duas caixas de listagem tem o mesmo nome mas estão em form diferentes.
Os dados a exibir estão na coluna 2

Obrigado

Olá Assis,

Exprimente:

Me![lst_1].Column(0)

Nota:

0 é a primeira coluna, 1 ...

Bom dia Teixeira

Assim abre o form mas não filtra os campos das listbox, mostra todos os registos

Private Sub lst_1_DblClick(Cancel As Integer)
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "FiltroDosDescritivos"
stLinkCriteria = "[lst_1]=" & "'" & Me![lst_1].Column(1) & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub

Os dados a filtrar é tipo "Texto"

Obrigado

Bom Dia,

Confirme se o campo que tem os dados para filtrar é da coluna 2 na origem dos dados.

Tente exprimentar str(Me![lst_1].Column(1))

Faça o teste e altere o que está a vermelho para o nome correto do campo na lista;

Private Sub lst_1_DblClick(Cancel As Integer)
Dim strCriterio As String
Dim strSQL As String
 
  strCriterio = ""
 
  If Len(Me.lst_1 & "") = 0 Then Exit Sub

     strCriterio = "[SeuCampoNaListBox]='" & Me.lst_1.Column(1) & "'"

       strSQL = "SELECT * FROM SuaTabelaOuConsulta "
       strSQL = strSQL & " Where " & strCriterio
               DoCmd.OpenForm "FiltroDosDescritivos"
       Forms!FiltroDosDescritivos!lst_1.RowSource = strSQL
       Forms!FiltroDosDescritivos!lst_1.Requery
   strCriterio = ""
End Sub

Exemplo basico;

Obrigado Amigo
Bom fim de semana