[Resolvido]Pesquisa em SubFormulário

Bom dia, ontem pesquisei aqui no fórum e na net, encontrei um do mestre Avelino Sampaio, tentei adaptar, mas nada funcionou, hoje eu peço ajuda dos colegas.

Bom, tenho um formulário com subformulário (Lista de Bancos) e uma caixa de texto (txtBusca), gostária que conforme fosse digitando na caixa de texto  , buscasse no subformulário.

O código abaixo, tentei usar ele, mas quando eu digito na caixa de texto, os dados do subformulário desaparecem.

Código:

Private Sub txtBusca_Change()
Dim parteNome As String
parteNome = Me.txtBusca.Text
If parteNome <> "" Then
Me.sfrmBancos.Form.Filter = "NomeBanco Like '*" & parteNome & "*'"
Me.sfrmBancos.Form.FilterOn = True
Else
Me.sfrmBancos.Form.FilterOn = False
End If
End Sub


Alguém?

Não houve resposta.

Brother prfeira listbox's.

Se quiser posso fazer dessa forma.

Abraços

Amigo,

Tente ver este exemplo.

https://www.maximoaccess.com/t6900-filtrar-subformulario

Espero que ajude.

[]'s