[Resolvido]Filtro de Pesquisa em Formulário por uma Caixa de Texto.

Senhores colegas do fórum,

novamente estou aqui solicitando a ajuda de vocês.

Uso ACCESS 2003.

Estou trabalhando num banco de dados que será um tipo de agenda.

Criei um formulário com um subformulário, listando os funcionários, suas matriculas localização e ramais telefônicos com filtro em caixa de texto.

Para fazer a busca, me baseei no exemplo do colega Nivaldo do tópico abaixo:
http://maximoaccess.forumeiros.com/t9039-resolvidofiltro-formulario-por-combo-box

Estou com dificuldades em fazer duas coisas.

1. - Botao limpar(ou refresh) - Logo depois que filtro o funcionário, para a listagem voltar ao normal, ou seja para que todos os funcionários fiquem listados no formulário novamente, como se fosse um refresh mesmo. Estão no código minhas tentativas.

2. - O Filtro por nome, está OK. Na verdade fiz com que ele filtre por nome ou matricula. Gostaria de intercalar com outro filtro(outra caixa de texto), no caso com prefixo. Sendo possível filtar por Nome e prefixo ao mesmo tempo. Vi alguns exemplos no fórum, mas não consegui adaptar. Acho que não deve ser muito complicado, penso que estou no caminho certo, mas essas coisinhas estão me deixando louco.

Segue em anexo meu arquivo

Agradeço a ajuda e um grande abraço a todos!

Vida longa ao fórum.

Eu geralmente filtro utilizando uma funçãozinha mais ou menos assim, quando preciso filtrar por mais de um campo:

Código:

Me.RecordSource = "SELECT * FROM NomeTabela WHERE Campo1 LIKE '*" & Me.Campo1DoForm & "*' And Campo2 LIKE '*" & Me.Campo2DoForm & "*' And Campo3 LIKE '*" & Me.Campo3DoForm & "*'"

Para limpar o filtro, basta buscar todos os dados da tabela, sem passar nenhum filtro:

Código:

Me.RecordSource = "SELECT * FROM NomeTabela"

Caro colega,
o limpar (refresh) deu certo joinha!

Quanto a consulta fiz algo semelhante a dica que você passou. Até tentei implementar da sua maneira mas não consegui.

Em um text box consigo filtrar por todos os campos da tabela, se necessário. O que estou apanhando é com duas caixas de texto. Se uma ficar em branco não deve interferir na consulta da outra. Ai minha dificuldade. Mas estou trabalhando qualquer novidade estarei informando. Obrigado pela dica, mas ainda não resolvido!

tente utilizar a ténica empregada neste tópico:

http://maximoaccess.forumeiros.com/t9599-filtro-em-formulario

Veja esta vídeo-aula sobre filtragens, para se aprimorar

http://www.usandoaccess.com.br/tutoriais/tuto35.asp?id=1#inicio

Sucesso!

Tenho as seguintes caixas de texto no meu formulario para filtro.

Individualmente elas filtram corretamente.

Não consigo fazer elas trabalharem juntas. Quem puder de uma olhada no arquivo.
Mandei um novo atualizado.


CAIXA TEXTO1
Private Sub Texto9_Change()

Dim C As String, X As String, Y As String, D As String
X = Me.Texto9.Text
C = " where NOME like '*" & X & "*' or MATRICULA like '*" & X & "*' or PREFIXO like'*"
Me.SUB_CONS_RAMAL.Form.RecordSource = " select * from FUNCIONARIOS " & C
End Sub

CAIXA TEXTO2
Private Sub TX_PREFIXO_Change()
Y = Me.TX_PREFIXO.Text
D = " where PREFIXO like '*" & Y & "*'"
Me.SUB_CONS_RAMAL.Form.RecordSource = " select * from FUNCIONARIOS " & D
End Sub

Alguém mais poderia dar uma olhadinha antes de eu encerrar o topico por favor?

Grande abraço!

Opte pela opção FILTER, que tem um melhor desempenho do que remontar a consulta SQL

Vc analisou o link que te indiquei ?

Avelino agradeço demais sua ajuda.

Analisei os links sim, tem muita coisa boa lá. Mudei uma das consultas conforme sua sugestão utilizando "FILTER" principalmente para aprender. Não conhecia essa função.

Olhei quase tudo no fórum sobre o assunto mas ainda não fui capaz de combinar a ação de consulta das duas caixas de texto para filtrarem "juntas".

Baixei um exemplo do fórum que tem o mesmo principio do que quero, acho que foi do JPaulo até. Mas tratando de interação(filtro) entre combos e mesmo assim não fui capaz.

Na caixa de "Texto9", posso filtrar por nome ou matricula do funcionário. (Segue abaixo o codigo).

Deixei uma linha comentada onde estava tentando concatenar com o valor da caixa de texto "TX_PREFIXO" usando -- and [PREFIXO] like '*" & Me!TX_PREFIXO.Text & "*'. Mas sempre da erro.
Acho que minha lógica que não deve estar correta.

-----------------------------------------------------------------------------------------
Private Sub Texto9_Change()

Dim filtro As String
If Len(Me!Texto9.Text & "") = 0 Then
Me!SUB_CONS_RAMAL.Form.Filter = ""
Me!SUB_CONS_RAMAL.Form.FilterOn = False
Exit Sub
End If
filtro = "[NOME] like '*" & Me!Texto9.Text & "*' or [MATRICULA] like '*" & Me!Texto9.Text & "*'"
' and [PREFIXO] like '*" & Me!TX_PREFIXO.Text & "*'
Me!SUB_CONS_RAMAL.Form.Filter = filtro
Me!SUB_CONS_RAMAL.Form.FilterOn = True

End Sub
-----------------------------------------------------------------------------------------
Estou encaminhando em anexo o Banco de dados para dirimir quaisquer duvidas da minha explicação.

Muito obrigado e um grande abraço!

Novidades?

Rodrigo, bom dia !

Tem de ser assim, teste;

Private Sub Texto9_Change()
Dim filtro As String
If Len(Me!Texto9.Text & "") = 0 Then
    Me!SUB_CONS_RAMAL.Form.Filter = ""
    Me!SUB_CONS_RAMAL.Form.FilterOn = False
    Exit Sub
Else
filtro = "[NOME] like '*" & Me!Texto9.Text & "*' or [MATRICULA] like '*" & Me!Texto9.Text & "*'"
Me!SUB_CONS_RAMAL.Form.Filter = filtro
Me!SUB_CONS_RAMAL.Form.FilterOn = True
End If
End Sub


Private Sub TX_PREFIXO_Change()
Dim filtro As String
x = Me.TX_PREFIXO.Text
y = Me.Texto9
If Len(Me!TX_PREFIXO.Text & "") = 0 Then
    Me!SUB_CONS_RAMAL.Form.Filter = ""
    Me!SUB_CONS_RAMAL.Form.FilterOn = False
    Exit Sub
    Else
filtro = "[PREFIXO] like '*" & x & "*' and [NOME] like '*" & y & "*' or [PREFIXO] like '*" & x & "*' and [MATRICULA] like '*" & y & "*'"
Me.SUB_CONS_RAMAL.Form.RecordSource = " select * from FUNCIONARIOS " & z
Me!SUB_CONS_RAMAL.Form.Filter = filtro
Me!SUB_CONS_RAMAL.Form.FilterOn = True
End If
End Sub

http://dl.dropbox.com/u/771097/rascunho_agenda_OLD.rar

Jpaulo,

agradeço demais sua ajuda era justamente isso mesmo.

acho que só a linha (Me.SUB_CONS_RAMAL.Form.RecordSource = " select * from FUNCIONARIOS " & z) que era um "lixo" de meu exemplo em anexo. Fiquei mais feliz que estava seguindo pelo lado certo. Faltou lógica nam eh? huahuauh

Nota 10 agradeço de novo e um Grande abraço!

Tópico como Resolvido!

Obrigado pelo retorno amigo, o fórum agradece.

Precisando de novo dê um grito.