[Resolvido]Alterar a tabela (Fonte de Controle) de um subformulário via vba

Boa tarde,
possuo 03 tabelas (em diferentes banco de dados, porém, contendo os mesmos campos) e as vinculei em um mesmo banco de dados, ficando:

tbl_test_01
tbl_test_02
tbl_test_03

Possuo um Formulário "Pai" e um subformulário "Filho", e gostaria que ao lececionar através de uma combo, onde informa qual tabela eu quero para o subformulário "Filho", ele alterasse a "Fonte de Condrole" do Subformulário "Filho".

Testei utilizar o seguinte código, mas não funcionou:


Private Sub Select_tabela_AfterUpdate()

Dim tbl_subform As String

Select Case Me.Select_tabela (Nome da Combo)

Case tbl_test_01

tbl_subform = "SELECT * from tbl_test_01"
Me.[subformFilho].Form.RecordSource = tbl_subform
Me.[subformFilho].Requery

Case tbl_test_02

tbl_subform = "SELECT * from tbl_test_02"
Me.[subformFilho].Form.RecordSource = tbl_subform
Me.[subformFilho].Requery

Case tbl_test_03

tbl_subform = "SELECT * from tbl_test_03"
Me.[subformFilho].Form.RecordSource = tbl_subform
Me.[subformFilho].Requery

End Select

End Sub


Gostaria de um suporte do amigos do Fórum para fazer funcionar esse código ou um outra solução para eu obter o resultado final.
Ver anexo o resultado esperado.

Obrigado.

Diego

Olá boa tarde!

poderia disponibilizar o projeto para melhor ajuda-lo ?

Segue um exemplo conforme solicitado.

Origado.

Olá;

É no evento depois de atualizar;

Código:

Private Sub Select_tabela_AfterUpdate()
Select Case Me.Select_tabela.Column(0)
        Case Is = "tbl_test_01"
    Me.subformFilho.Form.RecordSource = "SELECT * from tbl_test_01"
    Me.subformFilho.Form.Requery
        Case Is = "tbl_test_02"
    Me.subformFilho.Form.RecordSource = "SELECT * from tbl_test_02"
    Me.subformFilho.Form.Requery
        Case Is = "tbl_test_03"
    Me.subformFilho.Form.RecordSource = "SELECT * from tbl_test_03"
    Me.subformFilho.Form.Requery
End Select
End Sub

Olá mestre JPaulo.

Funcionou perfeitamente, o evento eu coloquei errado no exemplo!
O problema estava na String que criei e não estava sendo reconhecida e a alteração do Case para Case is =...

Segue o exemplo final para os usuários que precisarem.

Muito obrigado.

Tópico finalizado!
Não consigo mudar o status para resolvido, favor alterar para mim.

Obrigado.

Obrigado pelo retorno o forum agradece.

Mestre,
teria como, ao alterar a tabela do subformulário, fazer com que altere também uma consulta de uma caixa de listagem?

Eu uso uma caixa de listagem para selecionar um registro no subformulário e ao alterar a tabela do subformulário, ele alterava também a consulta da caixa de listagem (List box), pois tenho que selecionar o registro referente a tabela alterada, logo, tenho que trocar a consulta da lista para que fique com os mesmos registros da tabela selecionada.

ex:

...

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.

Conseguiu resolver diegojacob?

Tenho a mesma dúvida!