[Resolvido]ListBox em Formulário

Cumprimentando a todos....

Tenho um Form que abre os dados de uma tabela em uma ListBox...

A Diposição da tabela é a seguinte

ID
Nome
Exercicio
etc...


Para cada pessoa se tem mais de uma linha ( 1 linha pra cada exercicio)

Ex.
LInha 1 - Joao - Exercicio1
LInha 2 - Joao - Exercicio2
Linha 3 - Pedro - Exercicio 1
Linha 4 - Pedro Exercicio 2 etc...

Quando abre o form a Caixa de texto lista todas a linhas....

e tem uma caixa de pesquisa onde digito o nome e ele filtra na lista apenas o nome digitado....


O que preciso?

Bem, preciso que ao abrir o form a listBox inicie Vazia...
Consegui isso atraves do comando:

Private Sub Form_Open(Cancel As Integer)
Me!Lst_Nomes.RowSource = Empty
Me.Lst_Nomes.enabled = False

Deixando assim a Lst_Nomes desativada e em branco...

AGORA A DUVIDA:

Na caixa de texto digito o nome e clico no botão procurar pra filtrar o nome da pessoa, com essa linha:


Private Sub Procurar_Click()
Me.Lst_Nomes.enabled = True
Me.Refresh
Me.Lst_Nomes.Requery


Ocorre que como a Lst_nomes está enabled = "False"

Ela nao mostra os campos da procura...

Então preciso que quando clicar no botão procurar

ele habilite a lstBox
Desabilite a propriedade Empty
para ai sim, procurar o nome...

Se alguem puder me ajudar, ficarei Grato..
Obrigado

Me!Lst_Nomes.RowSource = Empty

Empty não é uma proprieade, é uma função que limpa a linha de origem dessa listbox.

Como ela está limpa, quando digita terá de colocar lá a origem;

Private Sub SuaCaixaTexto_Change()
Me.Lst_Nomes.RowSource = "SELECT * From SuaTabela WHERE SeuCampoNaTabela Like " * " & Forms![SeuFormulario]!SuaCaixaTexto & " * ""
Me.Lst_Nomes.Requery
End Sub

Este é o Código do Form:

Option Compare Database
Option Explicit
Dim Incluir As Boolean
Dim Clique As Boolean



Private Sub Form_Open(Cancel As Integer)
Me!Lst_Nomes.RowSource = Empty
Me.Lst_Nomes.enabled = False
End Sub


Private Sub NomeAlunoSelecao_AfterUpdate()
' Encontrar o registro que coincide com o controle.
Dim RS As Object

Set RS = Me.Recordset.Clone
RS.FindFirst "[Matricula] = " & Str(Nz(Me![NomeAlunoSelecao], 0))
If Not RS.EOF Then Me.Bookmark = RS.Bookmark

End Sub


Private Sub NomeAlunoSelecao_Click()

'Me.Lst_Nomes.enabled = True
'Me.Refresh
'Me.Lst_Nomes.Requery

End Sub




Private Sub Txt_Nome_Change()
Me.Lst_Nomes.enabled = True
Me.Lst_Nomes.RowSource = "SELECT * From qryMusculacaoConsulta WHERE NomeAluno Like " * " & Forms![FrmMuscConsulta]!Txt_Nome & " * ""
Me.Lst_Nomes.Requery
End Sub


Obeserve que a Caixa NomeAlunoSelecao busca o nome em uma tabela (tbl_Clientes) e joga o nome na Caixa Txt_Nome

A Caixa Txt_Nome é a que utilizo para fazer a busca na lst_Nomes

Coloquei o código como falou e nao funcionou...

Convém lembrar que na linha de origem da lst_Nomes (onde faz referencia a tabela) no criterio no Campo NomeAluno(Campo de Busca) tem o seguinte código:
Como [Forms]![FrmMuscConsulta].[txt_nome] & "*"

Então:
Eu clico na NomeAlunoSelecao,
ela joga o nome selecionado na Txt_nomes, ela atualiza (change)
Habilita a lst_Nomes (me.lst_nomes.enabled = True...

mas não esta fazendo a busca...

A lst_Nomes continua "Empty"

Está dando Tipos Incompativeis na linha que voce me enviou

Se puder me ajudar ficarei grato..
Obrigado

Coloque um exemplo do seu banco aqui e passe o link;

http://www.speedyshare.com/

Ou aqui;

http://uploads.ziddu.com/uploadanon.php

Consegui resolver da seguinte maneira:

Eu selecionava o nome atraves de uma ComBox...e essa adicionava em uma TxtBox o Nome escolhido na ComBox...

O que dava errro é que quando iniciava o Form ja iniciava com a TxtBox preenchida com o último registro visualizado...

O que fiz...

Coloquei a procura da LstBox vinculada ao ComBox e não ao TxtBox como estava...
ai ao reinicar o form a ComBox inicia em branco.. e não aparece nenhum registro na lstbox...

Funcionou assim...
Obrigado...