COMO GERAR UM RELATORIO COM OS ANIVERSAIRANTES

SAMATE82 17/01/2011 16:31:39
#362506
ai galera eu sou novato, mas desenvolvendo um sistema para minha igreja, onde sou o secretario, e gostaria de saber como faço um relatório dos aniversáriantes do mês,? por exemplo eu chamo um form com dois textbox um para data inicial e outro para data final..

assim tipo: aniversariantes do mês de janeiro

txtdatainicial = 01/01
txtdatafinal = 31/01

e gerar o relatorio para eu por no mural da igreja.

me ajudem

eu estou usando o DataReport, com o DataEnvironment

ai galera vou tentar , obrigado pelas dicas, aqui ne site só tem FERA[Ô][Ô]
PLUS 17/01/2011 16:43:45
#362507
é só colocar uma combobox onde possuira do mês de janeiro até dezembro.
Passar esse mês em uma select e o retorno mostrar em um data report.
FEDERHEN 17/01/2011 17:49:22
#362512 Resposta escolhida
[Ô]SELECT * FROM TABELA WHERE MONTH(DATANASCIMENTO) = [Ô] & NumeroDoMes
FMVC 17/01/2011 23:56:43
#362530
Tente fazer o relatório em Acess e [Ô]puxar[Ô] ele pelo VB


Button Click

   Dim RelatorioAccess As Object
        RelatorioAccess = CreateObject([Ô]Access.Application[Ô])
        With RelatorioAccess
            .OpenCurrentDatabase(filepath:=[Ô][txt-color=#0000f0]C:\bd.mdb [/txt-color][Ô])
            .DoCmd.OpenReport(ReportName:=[txt-color=#0000f0] [Ô]Relatorio[Ô][/txt-color][Ô]CNF[Ô])
        End With


[txt-color=#0000f0] C:\bd.mdb [/txt-color] = Banco de dados
[txt-color=#0000f0] Relatorio [/txt-color] = Nome do relatório criado no Acess
SAMATE82 18/01/2011 07:44:11
#362539
Valeu Galera Vou tentar - Obrigado - neste site só tem FERA
ADRIANOM 18/01/2011 09:03:09
#362549

[Ô]SELECT * FROM TABELA WHERE MONTH(DATANASCIMENTO) = [Ô] & MÊS

Ae vc seta o resultado para um dbgrid que estará escondido...
A partir daí vc seta o relatório pelo dbgrid..
SAMATE82 18/01/2011 13:04:06
#362608
Ai FMVC

eu fiz
Dim RelatorioAccess As Object
RelatorioAccess = CreateObject([Ô]Access.Application[Ô])
With RelatorioAccess
.OpenCurrentDatabase(filepath:=[Ô]C:\bd.mdb [Ô])
.DoCmd.OpenReport(ReportName:= [Ô]Relatorio[Ô][Ô]CNF[Ô])
End With

da uma mensagem de erro [Ô]o banco não se encontra ou esta sendo acessado or outro usuario[Ô]


quanto a comando SQL ai

[Ô]SELECT * FROM TABELA WHERE MONTH(DATANASCIMENTO) = [Ô] & NumeroDoMes

tem que ser mais especifico pois eu não tenho o conhecimento de fazer isso que vcs estão me falando

obrigado por enquanto.

no aguardo de mais help - please
SAMATE82 18/01/2011 13:40:02
#362619
quando eu coloco essa linha

[Ô]SELECT * FROM tbmembros WHERE MONTH(nascimento) = [Ô] & MÊS

da esse erro

Expected: line number or Label or Statement or End of Statement

não sei o que é, ou como corrigi-lo
SAMATE82 18/01/2011 14:22:10
#362631
Valeu Galera

consegui fazer com o SQL, obrigadão para todos vcs.
Tópico encerrado , respostas não são mais permitidas
Voltar