[Resolvido]Filtra a Caixa de Listagem

Boa Tarde a todos.

Estou aqui mais uma vez solicitando ajuda, tenho um formulario chamado cadastro_seguropessoal e nele contem os campos matricular, nome do titular, data de nasc etc..
E tambem tenho uma consulta chamado financeiro que contem, matricula, data_vencimento, valor.

Coloquei no formulario uma caixa de listagem que contem a consulta financeiro com os campos.
Quero quando eu abri o formulario a matricular que aparecer tambem aparecar na caixa de listagem a posicao financeira do titular.

Mudei o tópico para o local apropriado. A sala de Repositórios de Exemplos se destina apenas aos exemplos criados afim de servir como exemplo mesmo.

Não entendi a dúvida. Poderia explicar melhor? Você quer clicar em um item da lista e exibir uma coluna desse item no campo texto?

Pelo que eu entendi criquio, ele tem um form de matriculas... e no form uma listBox baseado em uma consulta (consulta financeiro).. entao ele quer que ao matricular a pessoa, na list aparece os detalhes financeiros dessa pessoa...

E como amigo Harysohn Pina disse.

Você quer rolar a listbox até chegar nessa posição?

Creio que ele a quer filtrada apenas com a informacao...
Como sefosse um SubForm Vinculado...

Isso mesmo ele seria como um subform teria que vincular pelas matriculas.
A consulta posicao financeiro tem os campos matriculas, data_vencimento, valor e o Formulario tambem tem o campo Matriculas.

No campo onde voce digita o nome da pessoa voce pode colocar assim:
_________________________________
Private Sub SeuCampo_AfterUpdate()
Me.SuaLista.Requery
End Sub
_________________________________
Private Sub SeuCampo_Change()
Me.Recalc
SendKeys "{F2}"
End Sub

Se a intenção é filtrar a listbox de acordo o digitado em um campo, pode fazer assim na "Origem da linha" da listbox:

SELECT NomeTabela.NomeCampo1, NomeTabela.NomeCampo2, NomeTabela.NomeCampo3 FROM NomeTabela WHERE ((NomeTabela.CampoAFiltrar) Like "*" & [txtPesquisa2] & "*");

No formulário, coloque duas caixas de texto de nome txtPesquisa1 e txtPesquisa2 por exemplo e deixe a txtPesquisa2 oculta. No evento "Ao alterar" da txtPesquisa1 coloque assim:

Me.txtPesquisa2 = Me.txtPesquisa1.Text
Me.NomeDaListBox.Requery

Falou e disse...

Nao aconteceu nada.
Tem que ser igual um subformulario mesmo, quando eu entro no formulario a matricula que aparecer nele a listbox mostre a posicao financeiro automatico sem precisar aperta qualquer coisa, como se fosse um vinculo.
Porque a consulta que a listbox pegar ele tem o campo matricula tambem.

É só mudar o evento. "Ao carregar" do formulário por exemplo.

Nao entendi, pode explixar melhor como se fazr.

Coloque o código passado aqui no evento "Ao carregar" do formulário.

Fiz conforme o mestre Criquio disse, fui no formulario no evento (Ao Carregar) e coloquei o codigo la.
Me.Mat_Siape = Me.Texto1.Text
Me.Lista.Requery

Na Listbox coloque o codigo.
SELECT PosiçãoFinanceiro_SeguroPessoal.Matricula, PosiçãoFinanceiro_SeguroPessoal.Tb_PosiçãoReceber.Data_Vencimento, PosiçãoFinanceiro_SeguroPessoal.Valor_Parcela, PosiçãoFinanceiro_SeguroPessoal.Tb_PosiçãoRecebidos.Data_Vencimento FROM PosiçãoFinanceiro_SeguroPessoal WHERE (((PosiçãoFinanceiro_SeguroPessoal.Matricula) ALike "*" & [mat_siape] & "*"));

Mais da um Erro em tempo de execuçao "2185"
Voce nao pode fazer referencia a uma propriedade ou a um metodo de um controle, a menos que o controle tenha foco.

Essa sintese tem de ser referenciada a um formulario para funcionar.

SELECT PosiçãoFinanceiro_SeguroPessoal.Matricula, PosiçãoFinanceiro_SeguroPessoal.Tb_PosiçãoReceber.Data_Vencimento, PosiçãoFinanceiro_SeguroPessoal.Valor_Parcela, PosiçãoFinanceiro_SeguroPessoal.Tb_PosiçãoRecebidos.Data_Vencimento
FROM PosiçãoFinanceiro_SeguroPessoal
WHERE (((PosiçãoFinanceiro_SeguroPessoal.Matricula) Like "*" & [SeuFormulário]![mat_siape] & "*"));

Continuar dando o mesmo problema, eu devo estar colocando alguma coisa errada.
Teria eu como colocar o meu banco de dado e voces ve qual seria a minda dificuldade.

Olá Assombrado.....

Na mensagem anterior você colocou o código abaixo, porém, a parte onde está em vermelho tem que retirar a letra em destaque neste caso (A).

Na Listbox coloque o codigo.
SELECT PosiçãoFinanceiro_SeguroPessoal.Matricula, PosiçãoFinanceiro_SeguroPessoal.Tb_PosiçãoReceber.Data_Vencimento, PosiçãoFinanceiro_SeguroPessoal.Valor_Parcela, PosiçãoFinanceiro_SeguroPessoal.Tb_PosiçãoRecebidos.Data_Vencimento FROM PosiçãoFinanceiro_SeguroPessoal WHERE (((PosiçãoFinanceiro_SeguroPessoal.Matricula) ALike "*" & [mat_siape] & "*"));

Seria interessante você colocar o bd pra que possamos tentar te ajudar.....

Bom dia, JoJunior.

Nao estou conseguindo fazer a filtragem automatica, continuar dar o mesmo erro.
Como posso colocar o BD para voce ve onde estou errando.

Abaixo onde escreve a mensagem tem um campo que pode inserir a bd aqui... adicione o arquivo e clique em enviar..

Segue o meu BD.
Eu quero que a listbox funcione como um subformulario, quando aparecer a mat.siape na guia cadastro no formulario ela possa mostra automatico a posicao financeiro do cliente na guia financeiro, onde se encontra a listbox.
Desde ja agredeço ajudar de todos.

Nao veio amigo, coloque ele use como te falei e ao clicar em enviar verifique se ele foi anexado

Nao estou conseguindo anexar o BD, segue link para voces baixarem.
http://db.tt/QgNCUsa

Qual o form ?

Qual a listbox ?

O formulario e o CadastroSeguro e a listbox esta na guia financeiro chamado lista.

Coloque no criterio do SQL dessa listbox, tal como já lhe tinha dito acima;

Like "*" & [Forms]![CadastroSeguro]![Mat_Siape] & "*"

Coloquei conforme o mestre JPaulo recomendou a sql apareceu a posicao financeiro, mais conforme eu clico no botao proximo a listbox nao muda a posicao financeiro da proxima Mat_Siape.

Coloquei no evento "AoCarregar" no formulario, conforme o Criqui recomendou.
Me.Mat.Siape=Me.texto1.tex
Me.Lista.Requery

mais continuar da este erro, Erro em tempo de execuçao "2185"
Voce nao pode fazer referencia a uma propriedade ou a um metodo de um controle, a menos que o controle tenha foco.

Atualiza o link com o novo BD, talvez mais pessoas possam ajuda-lo caso o JP não esteja disponivel...

Tenta colocar assim no botão proximo
Me.NomeDaLstBox.Requery

Testa isso

Segue o novo link.
http://db.tt/3LcVeyE

Bom dia, sera que alguem conseguiu resolver esta questao.
Me desculpe de ser chato, mais que estou precisando resolver isso.

Não consigo testar.

Algumas tabelas vinculadas ao banco principal, não funcionam no Ms 2007, só no Ms 2010 e neste momento tenho todas as versões do Ms Access até ao 2007.

Tenta colocar assim no botão proximo
Me.NomeDaLstBox.Requery

Testa isso

Harysohn muito obrigado deu certo conforme disse.
E para todos que me ajudaram eu agradeco pela paciencia, e ajuda irei deixar o exemplo para estudo.
http://db.tt/3LcVeyE

O Fórum agradece o retorno!

Amigão um dos bd's do seu exemplo esta em 2010, pode converte-lo em 2007?

Assombrado, pedimos por gentileza criar um tópico no Repositório de Exemplos e deixar em 2003 tambem ou somente se preferir.