[Resolvido]Filtrar dados na coluna vertical e horizontal

Olá,

Gostaria de saber se é possível classificar os dados na coluna vertical e horizontal.

Exemplo nº 01:
Na coluna vertical "Idade" quero filtrar somente as idades entre 18 a 35 anos. É possível?

Exemplo nº 02:
Quero filtrar somente os dados que contém a palavra "Sem Informação". Porém essa palavra está em mais de uma coluna. É possível?

Boa tarde
Para o filtro idade, coloque rótulo no form (RtlFiltroIdade).
No acontecimento click, coloque o seguinte código

Código:

Private Sub RtlFiltrarIdade_Click()
    Dim IdadeMenor As Byte, IdadeMaior As Byte '10/10/1980 - (40 Anos)
    IdadeMenor = Val(InputBox("Introduza a idade menor", "FILTRO POR IDADES"))
    IdadeMaior = Val(InputBox("Introduza a idade maior", "FILTRO POR IDADES"))
    If IdadeMenor = 0 And IdadeMaior = 0 Then
        Me.FilterOn = False
    Else
        Me.Filter = "Val(Mid(DataNascIdade,15,2)) Between " & IdadeMenor & " and " & IdadeMaior
        Me.FilterOn = True
    End If
End Sub

Para o outro filtro, construa-o da mesma forma

Olá, Alexandre Neves

Obrigado pela ajuda.

Por favor, ajudar se possível.

Referente ao Filtro por "Idade":
- Criei um botão de comando e coloquei a fórmula para fazer a filtragem em apenas uma coluna (DEU CERTO).

Referente ao Filtro da palavra "Sem Informação":
- Não entendi como construir usando a mesma fórmula da "Idade". Já que essa fórmula tem Idade Maior x Idade Menor. Você pode me ajudar, por favor?

Dúvida reformulada na última postagem.

Boa tarde
Veja a adaptação para trabalhar o filtro

Código:

Private Sub RtlFiltrarOutro_Click()
    If Me.FilterOn Then
        Me.FilterOn = False
    Else
        Me.Filter = "Nome='Sem Informação' or DataNascIdade='Sem Informação'"
        Me.FilterOn = True
    End If
End Sub

Sobre o filtro ordenado precisa agilizar. Se receber tudo pronto não vai aprender

Olá, Alexandre Neves

Muito obrigado pela ajuda.

Por favor, só me explica essa última dúvida:
Estou tentando entender a primeira fórmula que você postou no fórum (RtlFiltrarIdade). Se por acaso eu quiser adaptar para fazer a filtragem, por exemplo, altura menor vs altura maior.

- No lugar de '10/10/1980 - (40 anos) eu coloco o que?
Eu digitei 1, 65 cm, mas não deu certo a consulta.

- "Val(Mid(DataNascIdade,15, 2))   O que significa 15, 2?

Está a ver: a fazer é que se vai aprendendo
Veja as funções usadas na expressão Val(Mid(DataNascIdade,15, 2))
- primeiro, usa a função Mid com Mid(DataNascIdade,15, 2)
a função mid tem 3 argumentos: a expressão, a posição inicial a extrair da expressão e o tamanho a extrair da expressão
- depois, usa a função Val que transforma o texto em valor

Já agora, respeite os nomes reservados do Access para evitar confusões. 'Nome' é palavra reservada do Access e não deve ser usado, no seu caso, como nome de campo

Obrigado mais uma vez pela ajuda.