[Resolvido]Como iniciar com listbox vazia?

Se alguém puder me ajudar, Como fazer para uma listbox iniciar  vazia no formulário e aparecer o resultado ao filtrar na pesquisa.

segue arquivo de exemplo.

Ainda estou iniciando no VBA, agradeço qualquer ajuda.

Bom dia,
veja se esse meu vídeo lhe ajuda. Clique aqui.

Olá Marcelo David, já assisti muito vídeos seu, mas neste caso, o que me interessa realmente é iniciar com a listbox vazia, não quero que apareça a relação de mais de 1000 nomes na tela, estou tentando fazer com eles aparecer quando digitar.

Agradeço muito sua atenção.

não esperava uma resposta tão rápida
obrigado

Então, se viu lá os códigos, deve ter visto que o que carrega a listbox é a propriedade RowSource.
Assim, para iniciar sem nenhum registro, basta iniciar o formulário (evento ao abrir), limpando a listbox:

Me.SuaListBox.RowSource = Null

Quando for efetuar a filtragem volte o SQL a propriedade RowSource.

ainda não consegui porque na função Null não está funciona neste comando, mas já consegui iniciar vazio usando o comando que você me indicou, agora vou tentar voltar os dados ao digitar na pesquisa

se você puder colocar o exemplo no arquivo anexo eu agradeço muito,


Private Sub Form_Open(Cancel As Integer)

Me.Lista2.RowSource = Null
End Sub

Private Sub txtpesquisa_Change()

Me.ListaAbrigados.Requery

End Sub

Poderia detalhar o funcionamento. Pois ao abrir o formulário Fr_Exclui_Ano, a lista iniciou vazia.
Somente após selecionar o ano ela foi populada.

só tem uma tabela "Ficha" e um Formulário "Menu"

Peguei o arquivo errado

Vamos lá...

Na propriedade Origem da linha da Caixa e listagem, apague a SQL que está lá.

No VBA do formulário, cole essa função:

Código:

Private Function FncPopulaLista() As String
    FncPopulaLista = "SELECT Ficha.Cod, Ficha.Nome FROM " _
                   & "Ficha " _
                   & "WHERE " _
                   & "Nome Like '*" & Me.txtpesquisa.Text & "*' ORDER BY Nome;"
End Function

Agora, altere do código do evento Ao alterar da caixa de texto de pesquisa para:

Código:

If Me.txtpesquisa.Text = "" Then
     Me.Lista2.RowSource = ""
Else
         Me.Lista2.RowSource = FncPopulaLista
End If

Teste por favor.

Funciona perfeitamente,

vou estudar este código, pelo que entendi até agora; você criou uma função if para: se o campo pesquisa estiver vazio, a listbox fica vazio, senão preenche com uma string que você criou "FncPopulaLista", a string preenche os campos da listbox e ainda filtra pelo campo de pesquisa.

Muito simples e eficiente.

Muito Obrigado pela ajuda e sua disposição a ajuda o próximo.

Muito Grato

Exatamente isso que descreveu. Grato pelo retorno!