Carregar ListBox via VBA

Boa noite

Ao abrir a BD e clicar no botão para abrir um formulário "Menu", dá erro e ir para o Debug. Não sei corrigir.

No formulário " Menu " tem um campo com o valor 1 que vai ser preciso no formulário

Obrigado

Tente assim meu amigo:

query = "SELECT tblmovimento.datamovimento, tblmovimento.historico, tblmovimento.rubrica, tblmovimento.entidade, jalinhaqry([Doc],8,'#,000',2) AS Expr1, jalinhaqry([ValorDebito],13,'Currency',3) AS Débito, jalinhaqry([ValorCredito],13,'Currency',3) AS Crédito, tblmovimento.datamovimento, Year([datamovimento]) AS Ano " & _
"FROM tblmovimento " & _
"WHERE (((Year([datamovimento])) Like '*" & Forms!pesquisa1!TxtAno & "') and((tblmovimento.idcaixa)= " & Forms!menu!idcaixa & ")) " & _
"ORDER BY tblmovimento.datamovimento"

Observe os itens destacados... Pois foram aqui as mudanças!

Boa noite Fabio

Obrigado por responder

Carrega a ListBox, mas .....

Deixa de funcionar a busca em todos os campos.
'============================================
Private Sub txtFiltro_Change()
Dim C As String, X As String

X = Me.txtFiltro.Text

C = " where ordenar like '*" & X & "*' or historico like '*" & X & "*' or Rubrica like '*" & X & "*'or entidade like '*" & X & "*'or doc like '*" & X & "*' ORDER BY ordenar, doc"
Me.lis.RowSource = " select * from listan " & C

Me.txtC = "Foram Encontrados " & Me.lis.ListCount & " Registros."

'==========================================

Tem como resolver ?

PS - Já atualizei o link da mensagem 1 com a sua Dica.

Caro Assis,

Quando o listbox for não acoplado, vc não consegue fazer o filtro direto no objeto. É necessário refazer a query, instanciar o recordset e atualizar a listbox toda vez que o campo filtro for alterado.

Fiz algumas alterações no seu exemplo.

Espero ter ajudado.

Um abraço.

Alexandre