[Resolvido]Separar Registros por Faixa Etária

Tenho a consulta:
SuaIdade: MostraIdade([Data de Nascimento]) (exemplo de Idade JP)
Conseguido atraves do Módulo:

Public Function MostraIdade(VariavelA As Variant, Optional VariavelB As Variant) As Variant
Dim DataA As Date
Dim DataB As Date
Dim DataC As Date
Dim strSQL As String
MostraIdade = Null
If IsDate(VariavelA) Then
DataA = VariavelA
If Not IsDate(VariavelB) Then
DataB = Date
Else
DataB = VariavelB
End If
If DataB >= DataA Then
DataC = DateSerial(Year(DataB), Month(DataA), Day(DataA))
MostraIdade = DateDiff("yyyy", DataA, DataB) + (DataC > DataB)
End If
End If

End Function

Agora.. O que preciso e que na consulta ou em um código..
Me retorne a Faixa etaria...

Assim Entre 30 e 40 Anos...
Os registros que tiverem entre essa idade seja marcado em um campo na consulta.. para eu poder usar esse grupamento em um relatorio

Se puderem ajudar fico grato

Seria algo assim..
Se o individou tiver 35 anos.. em um campo nao acoplado na cns mostrar 30/40
se 25 : 20/30 e assim sucessivamente

Não consegues fazer isso em VBA? Tipo: If....Then ...ElseIf...

Talvez assim:

Me.NomeDoCampo = Left(Me.NomeDoCampo, 1) & 0 & "/" & Left(Me.NomeDoCampo, 1) + 1 & 0

Nesse caso não entraria pessoas com mais de 90 anos. Se entrar, precisará alterar.

No form seria facil...
mas pretendo em um relatorio baseado em uma consulta com as idades...
Tenho que apresentar um relatorio por faixa etaria,..
Se tenho 100 Detentos
x estao entre 20 e 30
n estao entre 30 e 40
e assim sucessivamente

Outra ideia poderia ser você fazer isso em um campo calculado de uma consulta e criar o relatório agrupado pela faixa etária.

Criquio a sua expressão em um form funcionou perfeitamente..
mas o que quero e como explicado ai acima .. de uma olhadinha por favor

E isso que quero.. um campo de consulta calculado.. me dando o valor como consegui no form com essa expressão sua..
Grato

Já fiz isso mesmo neste fórum o ano passado, é só dar uma procurada.

É feito com a função Seimed (IIf).

Grande JP, sabe me informar apenas se em VB ou em consultas?

Veja o simples na consulta.

Download

Bom final de semana.

Simplesmente sou Fã dos seus... Veja o Simples..
rsrs
Grato amigão..
Bom Final de Semana

Alguém aí ainda tem o exemplo ?

Link a funcionar, bons estudos.