[Resolvido]Relatório do mês anterior!

Bom dia á todos os amigos do forum e uma feliz páscoa!
Que Deus vos abençoe á todos!

Companheiros tenho um relatório chamado "RIMPgg1"
eu preciso de um código que: ao click no botão,
abra esse relatório e seja imprimido todos os registros
do mês anterior, e no próprio código se não haver dados
me retorne uma mensagem "Não há dados para impressão!
cancelando a impressão e abertura do relatório!
Sei que há feras no forum, pois ja me ajudaram muito
gostaria de contar com ajuda dos senhores.

um abraço á todos!
Lupércio Porfírio Azarias

Talvez criando uma consulta dê certo. Nessa consulta, você pode criar um campo calculado para capturar mês e ano:

MesAno: Format([CampoData];"mm/yyyy")

No critério desse campo MesAno:

Como DateAdd("m";-1;Date())

No botão do seu formulário:

If DCount("*", "NomeDaConsulta") < 1 Then
    MsgBox "Não há registros para esse mês.", vbInformation, "Sem registros"
Else
    DoCmd.OpenReport "NomeDoRelatório", acViewPreview ' Abre o relatório
    DoCmd.PrintOut ' Imprime o relatório
End If

Não funcionou, tambem com essa última sugestão sua.

Vou dar como resolvido aqui!

E vou abrir o tópico em Consultas e vou enviar o bd!

Melhor continuar por aqui mesmo para evitar duplicidade de tópicos com o mesmo assunto.

Ok

sabe não estou conseguindo enviar o bd!
uma mensagem diz que não há espaço!

Coloque no www.dropbox.com ou outro de sua preferência e passe o link.

Não consigo enviar da essa mensagem:
Não foi possível enviar o arquivo : o espaço de armazenamento para usuários foi ultrapassado. (Espaço restante : 18 Kb)

cliquio, eu instalei o programa dropbox, mas não sei colocar no programa!
desculpe pela minha ignorância.

https://www.dropbox.com/home/Public#!/home/Public

Eis ai o bd, até que enfim consegui!
da uma olhada por favor, se puderem!
obrigado!

Colega não carregou o bd... sugiro o endereço abaixo.

http://www.speedyshare.com/

1-Click na faixa amarela (Clique aqui para selecionar arquivos para carregar)
2-Click em "Upload" logo abaixo da linha anterior.
3-Coleque o ponto de inserção em cima da primeria linha Copie elea e depois cole no topico (ctrl+C e ctrl+v)

Após carregar o arquivo no dropbox, olhe nas opções dele que tem "Copiar link". É só copiar e colar aqui. Geralmente, é algo assim:

http://dl.dropbox.com/u/8521468/NomeArquivo.rar

A dica é colocar o arquivo na pasta Public. Se você instalou o programa no pc, deve ter uma pasta para ele no disco rígido do seu pc. Clicando no arquivo dessa pasta com o botão direito tambem oferece a opção de copiar o link.

postei novamente
vejam

http://speedy.sh/47jYh/CRITERIO-CONSULTA.zip

Companheiros depois de centenas de tentativa eu consegui!

coloquei no critério da consulta no campo "MesAno"

o seguinte critério:
(Mês(Data())-1) & "/" & (Ano(Data()))

Ai retornou os registros do mês anterior!

Cliquio uma pergunta?

no botão posso colocar esse código que você me enviou:

If DCount("*", "NomeDaConsulta") < 1 Then
MsgBox "Não há registros para esse mês.", vbInformation, "Sem registros"
Else
DoCmd.OpenReport "NomeDoRelatório", acViewPreview ' Abre o relatório
DoCmd.PrintOut ' Imprime o relatório
End If

Lembrando que aceito opniões de todos, eu disse cliquio porque foi ele que enviou o código!

Teste aí.

Cliquio

Funcionou perfeito, só que há problema ainda para resolver
eu formatei o relatório bem formatado, para não imprimir
dados do dia 01/03/2012 junto com os data do dia 03/03/2012.

Exatamente o que está acontecendo!
Necessito que o código imprima o mês todo, do dia 01/03/2012 á 30/01/2012.
mas com as datas separadas, exemplo um relatório para cada dia,
no caso 30 folhas de A4! Há como fazer isso alterando o código?
Me de sua opnião, enfim todos do forum!

Obrigado até aqui por ajudar!

código do cliquio!

Ele funcionou!

Private Sub Comando23_Click()
If DCount("*", "CnSimPGG1") < 1 Then
MsgBox "Não há registros para imprimir!.", vbInformation, "Senhor Operador"
Else
DoCmd.OpenReport "RIMPgg1", acViewPreview '
DoCmd.PrintOut '
End If
End Sub

Como disse acima necessito que imprima um relatório por dia!
Exemplo:

01/03/2012 - um relatório!
02/03/2012 - outro relatório!

assim sucessivamente.
preciso de relatórios com datas individuais!

Sei que os senhores são feras, me ajudem ai!

Estou postando o bd, para quem quiser dar uma espiada!

http://speedy.sh/uZ6k5/IMPRIMIR-DATAS-SEPARADAS.zip

Talvez assim:

Código:

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("NomeDaConsulta")

If DCount("*", "NomeDaConsulta") < 1 Then
    MsgBox "Não há registros para esse mês.", vbInformation, "Sem registros"
Else
    Do While Not rs.EOF
    DoCmd.OpenReport "NomeDoRelatório", acViewNormal, , "CampoData=#" & Format(rs!CampoData, "mm/dd/yyyy") & "#"
    DoCmd.PrintOut
    rs.MoveNext
    Loop
End If

rs.Close
Set rs = Nothing

Não funcionou companheiro.
Testei o código que me enviou mas não funcionou!

E o que exatamente acontece quando executa a função? Dá mensagem de erro? Depura para alguma linha do vba?

Ele não da erro.

Ele fica carregando, uma mensagem normal, que acontece quando
vamos imprimir algo, coloca até as paginas na mensagem
mas não acontece nada!

cara ja tentei de tudo, até fiz uma consulta e criar outro
tipo de relatório. Acho que vou ter que imprimir com critério
de filtro por data, uma por uma, porque não estamos conseguindo!

Você está colocando os nomes corretos dos campos da consulta?

DoCmd.OpenReport "NomeDoRelatório", acViewNormal, , "CampoData=#" & Format(rs!CampoData, "mm/dd/yyyy") & "#"

Em ambos casos, CampoData deve ser o campo da consulta que tem a data completa no formato dd/mm/yyyy

Sim cliquio
estou usando o campo normal, e está com o mesmo formato
os nomes da consulta e do relatório tambem está certo.

Estive pensando se tentassemos ao invés de data.
pelo código não daria certo?

Na verdade tenho 2 tabelas que está relacionadas.
ai crio a consulta que retorna os dados.
ai se misturam por exemplo os horários, com as datas.
no relatório, só se ordena quando crio uma consulta
com critério de filtro por data.

Fica difícil opinar com certeza sem conhecer a estrutura do banco. Faça os testes possíveis aí e retorne.

Veja o bd com código que você criou!

http://speedy.sh/AW8sw/IMPRIMIR-DATAS-SEPARADAS.zip

Resolvido

Ótimo que conseguiu resolver. Agradecemos pelo retorno.

Muito obrigado cliquio por ser paciente,

Feliz pascoa "Flamenguista"