[Resolvido]Imprimir por idade e sexo

https://dl.dropboxusercontent.com/u/98318720/ConsIdade.rar

Aqui estou novamento,essa lida acho complicada e vou tentar explicar pra ver se os amigos conseguem entender.
Tenho esse bd que consulto por idade as pessoas,pois bem se eu querer imprimir por idade somente os do sexo feminino, por exemplo de 0 a 20anos, ou os masculinos de uma faixa etaria a outra,como faria,não sei se consegui me fazer entender.
Mas olhando o bd sera mais facil entender.
Oque tenho faz a consulta geral ou seja masculino e femino e fazer isso dividido não sei nem por onde começar.
Se os amigos puderem dar uma analizada e me ajudar a resolver,sera muito bom.
Obrigado e um bom inicio de smana pra todos.

Veja este Tópico a dica do Avelino.

No Filtro pode ser utilizado diversos campos inclusive o da idade
Algo assim Idade =0 End < 40....
Cumprimentos.

Ola meu amigo Piloto,qual tópico,e neste bd como faria pra dividir esse pessoal por sexo.
Abçs.

http://maximoaccess.forumeiros.com/t12853-resolvidorelatorio-com-o-codigo-atual


Por sexo... deves ter o campo na tabela CpSexo, indicando se masculino ou feminino


Cumprimentos.

https://dl.dropboxusercontent.com/u/90217826/ConsIdade.rar

Piloto fiz o retatorio,o botão que chama o relatorio mas aplicar o filtro que visualisa só os relatorios selecionados que ta dificil.

1- Abra o seu relatório em modo design, na fonte de registro cole:

SELECT tbl_CadFamDet.CodCadFam, tbl_CadFamDet.Cod_SedDet, tbl_CadFamDet.FamCad, tbl_CadFamDet.Paciente, tbl_CadFamDet.DataNasc, CalculaIdade([DataNasc]) AS Idade, tbl_CadFamDet.Sexo
FROM tbl_CadFamDet;


2 - Crie uma caixa texto no form e nomeeie de txtSexo onde você digitará o sexo...

3 - No botão do relatório:

DoCmd.OpenReport "RelatPesquisa", acViewPreview, , "Sexo = '" & Me.txtSexo & "' And Idade >= " & Me.IdadeA & " And Idade >= " & Me.IdadeB & ""


Basta agora escrever na caixa texto M ou F e as idades..

Obs. Percebi Kaynan que não viu o tópico atententamente e tampouco estudou o tutorial do Avelino sobre filtros.


cumprimentos.

Com uma pequena correção para o filtro da idade:

DoCmd.OpenReport "RelatPesquisa", acViewPreview, , "Sexo = '" & Me.txtSexo & "' And Idade >= " & Me.IdadeA & " And Idade <= " & Me.IdadeB & ""

PIloto fiz oque sugeriu mas da erro de sintaxe(operador faltando)na expressão de consulta 'Sexo ="Ad idade>=And idade>='
Abçs.

PIloto esta filtrando certo por sexo,mas se eu classificar por idade ele faz a mesma coisa visualiza todos no relatorio.

Se deu erro é porque não fez conforme recomendei....

Recomeço do início e refaça por gentileza.


Cumprimentos.

Leia todos os posts Kaynam.

Cumprimentos.

https://dl.dropboxusercontent.com/u/90217826/ConsIdade.rar
Piloto deve ta faltando aquela correção no filtro da idade,só que tento substituir pela do post,mas não aceita diz que tem uma sintaxe invalida.

Esta expressão foi copiada do que fiz.. e está a funcionar

DoCmd.OpenReport "RelatPesquisa", acViewPreview, , "Sexo = '" & Me.txtSexo & "' And Idade >= " & Me.IdadeA & " And Idade <= " & Me.IdadeB & ""


Cumprimentos.

O Exemplo que enviou não está corrigido... corrigi com a expressão acima e funcionou perfeitamente

Cumprimentos.

Mas então eu estou colocando no lugar errado,estou tentando por na consulta pesquisa no criterio da idade,se não for ali onde é Piloto.

Amigão apenas substituit esse codigo no botão do formulário

Cumprimentos.

Ok.Piloto daria pra ir mais alem,neste caso devo escolher F ou M para visualisar o relatorio,mas se quiser imprimir todos M e F vou ter que criar outro relatorio ou daria com esse mesmo.

Na consulta do relatório em critérios no campo Sexo: Como "* " & [Forms]![Pesquisa]![txtSexo] & "*"
No Botão: DoCmd.OpenReport "RelatPesquisa", acViewPreview, , "Idade >= " & Me.IdadeA & " And Idade <= " & Me.IdadeB & ""


cumprimentos.

Bom dia Piloto,na consulta do relatorio,seria na consulta pesquisas do bd?

Leia todos os posts e tente adivinhar qual....

Cumprimentos.

Voce gosta de me judiar srsrssrs

Não... Apenas não quero ficar dando paprinha na boca a vida inteira pra voce.. hehehehehe

Isso,pisa bastante,vai chegar uma dia que eu vou ta te ensinando ehehehehe

Meu sonho... bem deixemos as brincadeiras de lado e tente aplicar a solução.

Cumprimentos.

Voce falou,consulta do relatorio em critérios campo sexo,só achei na consulta Pequisa,e se coloco ali aquele código apaga todos os dados do formulario.

Kaynan.... O seu relatório está baseado em que consulta????????????????????/

Onde está a consulta do mesmo??????????????


Cumprimentos.

Ele vem da tabela tbl_CadFamDet não é

Kaynan Criatura de Deus.. Toda consulta é baseada em uma tabela...

O que perguntei é onde está a consulta utilizada no relatório????????? Você a aplicou e não sabe??????????

Cumprimentos.

Vou facilitar um pouco... A resposta está no post de número 6.


Cumprimentos.

PIloto ja tentei na caixa texto e botão do formulario,mas sei la,não da.

Abra o seu relatório em modo Design, va em propriedades, Aba Dados, Fonte de Registro
Clique nos tres pontinhos à esquerda... eis que surgirá a consulta do seu relatório.
Em critérios no campo Sexo: Como "*" & [Forms]![Pesquisa]![txtSexo] & "*"

Voce já devia saber disto amigão.....

Vamos encerrar logo este tópico...

Eis:

Poxa Piloto,mas cade o campo sexo agora,deste geito eu fiz e deu certo logo de inicio,só pensei que poderia filtrar por sexo também no mesmo caso entende,sem digitar nada na caixatexto e ao clicar no botão aparecese o relatório completo.
obs:Por isso que não dava certo,e não por cabeçudo srsrsrsr.

Mas vou deixar com a caixa texto pra filtrar por sexo, e fazer outro relatório igual que apareça todos os dados,ja ta de bom tamanho.Piloto Obrigado e desculpe as massada.
Voce é o cara, entende tudo de access mesmo.

A caixa texto está ai... Abra em modo Design que verá.. e porque está sem contorno....
Está logo acima de onde se coloca as idades....

Presta mais atenção.


cumprimentos.

E não necessita criar 2 relatórios, basta no botao:

Private Sub Comando48_Click()
If IsNull(Me.IdadeA) Or IsNull(Me.IdadeB) Then
    DoCmd.OpenReport "RelatPesquisa", acViewPreview
Else
    DoCmd.OpenReport "RelatPesquisa", acViewPreview, , "Idade >= " & Me.IdadeA & " And Idade <= " & Me.IdadeB & ""
End If
End Sub

Cumprimentos.

Piloto abençoado,depois de tantas voltas,é exatamente isso.
Rapaz como uma lida dessa e varias outras que resolveu pra mim é tão dificil e pra voce e tão facil.
Desculpa as brincadeiras e fica com Deus (Ele ja reservou um lugarzinho pra ti junto com ele)mas vai demorar bastante ainda.
Abçs amigo.

So Faltou o Resolvido amigão.

Abraços.

Claro,resolvido.

O Fórum agradece o Retorno.