[Resolvido]Pesquisar Código em uma ListBox

olá, tenho uma duvida, tenho um formulário de pesquisa, e gostaria q ao digitar um código em uma caixa de texo, ele automatica me retornasse na listbox o código, e não estou conseguindo, coloquei este critério na consulta:

Como "*" & [forms]![frmReuniões]![txtNome] & "*"

Controles:

Formulário: frmReuniões
Caixa de Texto: txtNomes
Caixa de Listagem: lstPesquisa

o código em vba é este:

Option Compare Database
Option Explicit
Dim VarTecla

Private Sub Form_Current()
Me.txtNome.SetFocus
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then
VarTecla = 1
End If
End Sub

Private Sub Form_Open(Cancel As Integer)
Me.KeyPreview = True
Me.lstPesquisa = ""
End Sub


Private Sub lstPesquisa_Click()
Me.Editar.enabled = True
Me.Consulta.enabled = True
End Sub

Private Sub txtCodigo_AfterUpdate()
lstPesquisa.Requery
End Sub

Private Sub txtNome_AfterUpdate()
lstPesquisa.Requery
End Sub

Private Sub txtNome_Change()
If VarTecla = 1 Then
VarTecla = 0
Else
Me.Recalc
Me.txtNome.SelStart = 255
End If
End Sub

Veja um exemplo para fazer buscas numa tabela ou consulta e preencher uma lista com o critério que deseja.

Código:

Me.lstLista.RowSource = "SELECT *  " & _
                            "FROM teste " & _
                            "WHERE Código Like '*" & Me.txtBuscar.Text & "*' " & _
                            "ORDER BY teste.Código asc;"

Você pode concatenar a pesquisa e assim torna-lá mais abrangente em todos os campos da tabela em apenas uma única caixa de texto Ex:

Código:

Private Sub txtBuscar_Change()

Dim K, Y As Long, soma As Double

Me.lstLista.RowSource = "SELECT tblCliente.COD,tblCliente.NOME, tblCliente.ENDERECO as ENDEREÇO,tblCliente.NUMERO AS [Nº],tblCliente.BAIRRO,tblCliente.CIDADE,tblCliente.UF,tblCliente.CREDITO AS CRÉDITO " & _
                            "FROM tblCliente " & _
                            "WHERE COD & Nome & Endereco & numero & bairro & cidade & uf & credito Like '*" & Me.txtBuscar.Text & "*' " & _
                            "ORDER BY tblCliente.cod asc;"
'Soma a quantidade
For K = 1 To lstLista.ListCount - 2
Next K
Me.Texto11 = K

'Soma os valores

For Y = 1 To lstLista.ListCount - 1
soma = soma + lstLista.Column(7, Y)
Next Y
Me.txtSoma = soma

    If IsNull(soma) Or soma = 0 Then
        Me.txtBuscar = ""
        Me.Texto11 = ""
        Me.txtSoma = ""
        Me.lstLista.Requery
    End If

End Sub


Foi mau estava sem sono e acabei me empolgando um pouco   Espero que seja útil.
PS. Caso tenha dificuldades para adaptar poste o bd que vejo para você. Forte abraço Elias.

olá formiga, não consegui implantar o código seu...
te mandarei o bd pra vc analisar

no formulario frmReuniões eu ja consigo pesquisa a data da reunião, mas eu gostaria de pesquisar pelo numero da ata da reunião, exemplo quando eu digitar na textbox 00001, que apareça na listbox apenas a ata 00001


segue ai o meu bd

Boa noite.
Veja caso queira fazer uma busca por 5 dígitos eu aconselho criar um campo para tal e não incrementar a chave primária.
Evite espaços, acentos, cedilhas etc no nome das tabelas campos e formulários pois isto lhe dará um problema enorme no futuro...

Fiz umas alterações e agora está buscando porém reduzi para 2 dígitos.

Abraço e sucesso.

desculpe pela demora da resposta, e obg pelas dicas, bom nao ficou exatamente como eu queria....

1ª. eu quero quando abre o formulario que os dados ja estejam aparecendo na listbox

2ª. eu quero pesquisar apenas o campo ATA

e uma dúvida quando o numero da ata chegar 100, ou 1000 ele vai pesquisar normalmente?


fico no aguardo, obg desde ja

Vou enviar o bd assim que desocupar o pc aqui ok?
Fiz de dois jeitos dai vc escolhe abraço e desculpa a demora.

consegui resolver, obrigado formiga