[Resolvido]Pesquisa em uma caixa de listagem

Olá meu amigos!
Estou aqui tentando fazer uma pesquisa em uma caixa de listagem. Vi um vídeo de como fazer, fiz tudo como acho que deveria, eu abro o formulário e aparece lá os registro, quando vou no campo de busca e começo a digitar os registro somem. Teria digitado algo de errado nessas linhas ?


Campobusca: [id_membro] & "" & [nome] & "" & [dtnascimento] & "" & [cel:]

Como [forms]![frm_busca].[txtbusca] & "*"

Bom dia, sugiro que faça a filtragem via VBA.
Algo do tipo:

No evento "Ao apertar tecla":

Código:

    If KeyCode = 13 Then
        Dim strTextBox As String
        strTextBox = Me.tbPesquisa.Text
        Me.SubForm.Form.Filter = "[Campo1] Like '*" & StrConv(strTextBox, 2, 1042) & "*' OR [Campo2] Like '*" & _
        StrConv(strTextBox, 2, 1042) & "*' OR [Campo3] Like '*" & StrConv(strTextBox, 2, 1042) & "*'"
        Me.SubForm.Form.FilterOn = True
        KeyCode = 0
    End If

Onde o Me.SubForm.Form.Filter pode ser trocado por Me.Filter, caso seus dados não estejam em um subform.

Só pra acompanhar este tópico!

Bom dia Caio, não entendo de vba por isso estou meio perdido com a sua orientação. Eu gostaria de quando escolhe-se o registro clicar nele e abrir o meu formulário de cadastro com o registro selecionado na caixa de listagem.

Tentei entender o código que me mandou, e mudar para me atender, sem sucesso.

Olá, o que eu gostaria de fazer nesta caixa de listagem é fazer a busca do registro nas 4 colunas. Gostaria de fazer a busca por ID, NOME,DTNASCIMENTO OU TELEFONE. Achando o registro desejado, clicando nele abriria o formulário de cadastro. Vendo uma aula eu concatenei as colunas e com isso eu consigo busca o registro somente pelas inicias da coluna concatenada.Quando tento digitar o nome todos os registro se apagam.


Olá meu amigos, essa questão de pesquisa consegui resolver, agora só preciso que ao achar o registro desejado eu clique nele e abra o formulário de cadastro com o respectivo registro.

Achei aqui no foram
esse código porem esta dando erro na segunda linha, erro de operador faltando

Algum amigo pode me ajudar ?

If Not IsNull(Me.listapesquisa) Then
DoCmd.OpenForm "for_cadastro", , , "txtnome = " & Me!listapesquisa.Column(1)
End If

On Error GoTo Err_listapesquisa_Click

If IsNull(Me.listapesquisa) Then

MsgBox "Selecione um nome válido na lista", vbCritical, "Atenção"

Else

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "for_cadastro"

stLinkCriteria = "[ID_membro]=" & Me![listapesquisa]
DoCmd.OpenForm stDocName, , , stLinkCriteria

End If

Exit_listapesquisa_Click:
Exit Sub

Err_listapesquisa_Click:
MsgBox Err.Description
Resume Exit_listapesquisa_Click
End Sub

O código é do amigo Dilson, muito obrigado.
Resolvido!