[Resolvidos]Filtro sequencial combinado

Olá amigos, bom dia a todos

Minha dúvida provem da necessidade de fazer filtros combinado com os valores de varias caixas. O que pretendo e criar um filtro semelhante ao que o Access faz em suas tabelas (clica lá na seta na parte superior do campo e ele te mostra as opções a serem filtradas)onde o resultado do filtro vai ser a combinação do que você selecionou nas caixas (até em branco).

Antes gostaria de agradecer a colaboração de Vieira, Pablo Neruda e Charlie Stream que me ajudaram em uma dúvida anterior em consulta com List Box a qual gerou esta dúvida atual.

vou postar o BD atualizado por Charlie Stream que quase atendeu a necessidade em questão, porém vocês vão verificar que:

SE filtro Estado = BA e Cidade = Berlin gostaria que este filtro trouxesse como resultado os Clientes da Cidade de Berlin do Estado da Bahia, o que não acontece porque há outra cidade chamada Berlin no Rio de Janeiro e filtro (no formato atual)me retorna tanto os moradores de Berlin do Estado da Bahia como o do Rio de Janeiro

Antecipo que vasculhei neste Forum a na NET por exemplos a respeito do assunto, mas não obtive êxito, daí vi a real necessidade de criar este tópico que, além de mim, deve ajudar outros iniciantes.


Este é o BD: http://dl.dropbox.com/u/14428464/BdAgendaIrailson.mdb

Coloque o filtro da cidade assim:

parteCidade = Me.txtcidade.Text
If parteCidade <> "" Then
Me.SubFrmContatos.Form.Filter = " cidade like '*" & parteCidade & "*' And UF like '*" & parteEstado & "*'"
Me.SubFrmContatos.Form.FilterOn = True
Else
Me.SubFrmContatos.Form.FilterOn = False
End If

fazendo o mesmo com a do Estado.

Olá Criquio e amigos do Forum, boa noite a todos,

Criquio irei estudar seu código e testá-lo

A principio achei um exemplo na net wm nome de "Alexandre Neves" que atende perfeitamente a operação de filtros sequenciais combinados.





O exemplo é esse: http://dl.dropbox.com/u/14428464/Filtro%20Sequencial%20Combinado.rar

depois de estudar seu código postarei o resolvido,

grato Irailson.....

Vi no Portal do programadores um bd exemplo que satisfaz o pretende, o autor é accessporexemplo, faz uma busca lá nas aplicações deste autor que encontrarás.

você seleciona uma caixa ele filtra, seleciona outra a frente e filtra obedecendo aos dados da ultima filtragem e assim sucessivamente.

Abra o Formulario que te enviei, apague tudo e cole o codigo abaixo:

Código:

'By Charles Sestrem
'05 de novembro de 2010.
'chsestrem@bol.com.br
Option Compare Database
Option Explicit
Dim parteNome As String
Dim parteCidade As String
Dim parteEstado As String

Private Sub txtnome_Change()
parteNome = Me.txtnome.Text
If Not IsNull(txtestado) Then
Me.SubFrmContatos.Form.Filter = " nome like '" & parteNome & "*' and UF like '" & parteEstado & "*'"
ElseIf Not IsNull(txtestado) Or Not IsNull(txtcidade) Then
Me.SubFrmContatos.Form.Filter = " nome like '" & parteNome & "*' and cidade like '" & parteCidade & "*' and UF like '" & parteEstado & "*'"
ElseIf Not IsNull(txtcidade) Then
Me.SubFrmContatos.Form.Filter = " nome like '" & parteNome & "*' and cidade like '" & parteCidade & "*'"
Else
Me.SubFrmContatos.Form.Filter = " nome like '" & parteNome & "*'"
Me.SubFrmContatos.Form.FilterOn = True
End If
End Sub

Private Sub txtcidade_Change()
parteCidade = Me.txtcidade.Text
If Not IsNull(txtestado) Then
Me.SubFrmContatos.Form.Filter = "cidade like '" & parteCidade & "*' And UF like '" & parteEstado & "*'"
Else
Me.SubFrmContatos.Form.Filter = " cidade like '" & parteCidade & "*'"
Me.SubFrmContatos.Form.FilterOn = True
End If
End Sub

Private Sub txtestado_Change()
parteEstado = Me.txtestado.Text
Me.SubFrmContatos.Form.Filter = " UF like '" & parteEstado & "*'"
Me.SubFrmContatos.Form.FilterOn = True
End Sub


Fiz umas alterações, agora filtra qualquer coisa.

Sds,

Olá Criquio e Carhes Stream, bom dia.

Agradeço pela colaboraçãode vocês, porém os códigos postados não atendeream a questão de filtro combinado.


mas consegui um exemplo de Alexandre que atende o assunto:

http://dl.dropbox.com/u/14428464/Filtro%20Sequencial%20Combinado.rar

Mais uma vez obrigado pela ajuda de vocês e espero que este tópico possa ajudar outras pessoas.

Em tempo: como faço para colocar o exemplo no repositório?

Grato,

Irailson

Esqueci do resolvido....

Clique na sala Repositórios de exemplos MS Access, depois clique em novo tópico, coloque o titulo ao que o exemplo atende anexe ou coloque o link e pronto!

Olá colegas, sou novo por aqui e gostei desse exemplo, que pretendo aplicar em um bd que estou fazendo.
Minha dúvida é como posso imprimir apenas os registros filtrados.
Grato pela ajuda.., Hélio....