[Resolvido]Vincular subformulário a caixa de listagem

Mestres bom dia !

Já pesquisei bastante, mas não encontrei nada sobre o tema. Gostaria se possível uma dica ou ajuda, ou até mesmo se é possível vincular uma caixa de listagem(mestre) a um subformulario(filho) sendo possível como faço isso ?.

A ideia é ao clicar duas vezes da caixa de listagem ela vincula o subform para o registro selecionado

anexei um print do formulário.

Agradeço antecipadamente
abraços a todos

Boas...

Isso a grosso modo não é possível.

Caixa de listagem ou ListBox se baseiam em consultas e consultas se baseiam em tabelas. A listbox jamais poderá ser mestre de um subformulário.

Sub formulário, dependem da maioria das vezes (99,999%) de um formulário principal, através da ligação pai e filho. Da mesma forma, as tabelas que dão origem a esses formulários tem que estar ligadas entre si.

Reveja a forma como está projetando teu sistema.

Obrigado Silvio irei rever sim

Bom dia senhores,

Eulino escreveu:A ideia é ao clicar duas vezes da caixa de listagem ela vincula o subform para o registro selecionado

Para isso, basta você usar a la listbox como parâmetro de filtragem para subformulário.

Marcelo poderia me dar um exemplo ? não faço ideia como fazer

'Evento "Ao clicar duas vezes"
Me.SeuSubFormulario.Filter = "id_servico=" & Me.SeuCampoFormPrincipal_id_servico
me.SeuSubFormulario.FilterOn = True

Com isso ele irá filtrar o subform.
Altere os nomes dos objetos de acordo com seu sistema.

Obrigado a todos resolvi vinculando um formulário que tem um subform, ao clicar duas vezes na caixa de listagem
para isso fiz conforme abaixo:

pesquisado outros exemplos aqui no fórum mesmo

Private Sub Lista_DblClick(Cancel As Integer)
Dim AbreFrm As Long
AbreFrm = Me!Lista
DoCmd.OpenForm "SubCpu", , , "[id_servico] = " & AbreFrm, , , Me.Lista.Column(0)
End Sub

Abraços

Ótimo que deu certo.
Sabendo o nome dos campos, a forma que passei (sem precisar abrir um formulário já aberto), ficaria
exatamente assim:

Código:

Private Sub Lista_DblClick(Cancel As Integer)
    Me.SubCpu.Filter = "id_servico=" & Me.Lista.Column(0)
    Me.SubCpu.FilterOn = True
End Sub


No mais, grato por compartilhar a solução encontrada.