Alterar a tabela (Fonte de Controle) de uma caixa de listagem via vba

Amigos do Forum,
eu tive uma dúvida a pouco tempo atrás, que foi a de alterar a tabela de um subformulário, conforme link abaixo, onde o Mestre J.Paulo me enviou uma solução.

https://www.maximoaccess.com/t22856-resolvidoalterar-a-tabela-fonte-de-controle-de-um-subformulario-via-vba


Agora, gostaria de fazer o mesmo processo, porém, fazer com que altere também uma consulta de uma caixa de listagem.
Tentei de algumas formas, utilizando o “RecordSource”, mas não tive sucesso.
Se alguém puder contribuir com sua experiência, ficarei grato.


Exemplo:

...

Case Is = "tbl_test_01"

'SubForm
Me.subformFilho.Form.RecordSource = "SELECT * from tbl_test_01"
Me.subformFilho.Form.Requery

'Caixa de listagem (list box)
Me.minha_lista.RecordSource = "SELECT * from Qry_test_01"
Me.minha_lista.Requery

'Pois dessa forma está ocorrendo erro no RecordSource.

Segue exemplo anexo:

Bom dia Diego....

Experimente...

Código:

Private Sub Select_tabela_AfterUpdate()

'Dim tbl_subform As String

Select Case Me.Select_tabela.Column(0) '(Nome da Combo)

Case Is = "tbl_test_01"

'tbl_subform = "SELECT * from tbl_test_01"
    Me.[subformFilho].Form.RecordSource = "SELECT * from tbl_test_01"
    Me.[subformFilho].Requery
    Me.Lista_Reg.RowSource = "SELECT * from Qry_tbl_Test_1"
    Me.Lista_Reg.Requery

Case Is = "tbl_test_02"

'tbl_subform = "SELECT * from tbl_test_02"
    Me.[subformFilho].Form.RecordSource = "SELECT * from tbl_test_02"
    Me.[subformFilho].Requery
    Me.Lista_Reg.RowSource = "SELECT * from Qry_tbl_Test_2"
    Me.Lista_Reg.Requery

Case Is = "tbl_test_03"

'tbl_subform = "SELECT * from tbl_test_03"
    Me.[subformFilho].Form.RecordSource = "SELECT * from tbl_test_03"
    Me.[subformFilho].Requery
    Me.Lista_Reg.RowSource = "SELECT * from Qry_tbl_Test_3"
    Me.Lista_Reg.Requery
   
End Select


End Sub

Silvio,
muito obrigado, funcionou perfeitamente!

Favor alterar o Status para resolvido, pois eu não estou conseguindo.

Obrigado!

Diego

Boas...
Embaixo, ao lado do enviar.....botão resolvido.
Não tenho " poderes " para dar o tópico como resolvido, apenas moderadores.
Veja o link
https://www.maximoaccess.com/t860-resolucao-de-topicos

Silvio,
deve haver algum problema com o navegador que estou usando, ou agum bloqueio da empresa, pois eu nunca consegui resolver, nem mesmo clicando no link informado.

Vamos esperar que algum moderador altere o Status.

Obrigado.

Diego

Ok...ficamos no aguardo então...

Abraços.