Contagem de registros o ACCESS

[Fino 0]

Caros amigos, como sou novato aqui...vou perturbar...rs...até me mandarem parar de encher o saco de vcs!!!Seguinte, fiz uma consulta no access baseada em duas caixas de texto...nas quais são digitadas duas datas...Após digitar essas datas, clico num botão que gera o relatótio dessa consulta!!! O que preciso agora é que, antes desse relatório aparecer na tela, eu possa contar se há registros nessa conulta ou não...para que não apareça um relatório em branco!!!Alguém aípo de me ajudar de novo...desde já agradeço a atenção de vcs...Abraço

[Fino 0]

O que preciso agora é que, antes desse relatório aparecer na tela, eu possa contar se há registros nessa conulta ou não...para que não apareça um relatório em branco!!!

<{POST_SNAPBACK}>

Nas propriedades do Relatório, vá na guia EVENTO e em SE NENHUM DADO, clique no Construtor e selecione CONSTRUTOR DE CÓDIGOS e digite:

 

   MsgBox "Não há registros...", vbCritical, "Sem registros..."    Cancel = True

O relatório não será aberto se não tiver registros... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

<{POST_SNAPBACK}>

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif Perfeito caro amigo AAlves...muito obrigado mesmo...só mais uma coisinha...depois do msgbox aparece a mensagem "A ação OpenReport foi cancelada"...não tem como sumir com ela???...rs...

[Fino 0]

Perfeito caro amigo AAlves...muito obrigado mesmo...só mais uma coisinha...depois do msgbox aparece a mensagem "A ação OpenReport foi cancelada"...não tem como sumir com ela???...rs...

<{POST_SNAPBACK}>

Como assim ? O relatório não foi aberto... http://forum.imasters.com.br/public/style_emoticons/default/excl.gif

<{POST_SNAPBACK}>

OPa...me expressei mal, eu acho! o relatório abre sim, quando há registros...mas quando a consulta está vazia, aparece uma janela com o texto do MSGBOX...daí clico OK...mas depois aparece outra janela escrito "A ação Openreport foi cancelada"...só queria saber mesmo se não tem como deixar apenas uma janela de erro!!! mas valeu aí pela força...abraço

[Fino 0]

OPa...me expressei mal, eu acho! o relatório abre sim, quando há registros...mas quando a consulta está vazia, aparece uma janela com o texto do MSGBOX...daí clico OK...mas depois aparece outra janela escrito "A ação Openreport foi cancelada"...só queria saber mesmo se não tem como deixar apenas uma janela de erro!!! mas valeu aí pela força...abraço

<{POST_SNAPBACK}>

Desculpa, erro meu! O correto é invertido:

 

  Cancel = True   MsgBox "Não há registros...", vbCritical, "Sem registros..."

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

<{POST_SNAPBACK}>

É AAlves...não foi erro seu não...de maneira nenhuma a tal mensagem "Ação Openreport foi cancelada" desaparece da tela...acho que é do Access mesmo, não tem jeito...mas não dá nada...o que importa é que tá funcionando!!! Agora é só continuar pra começar as outras dúvidas...hehehehe...mas valeu mesmo pela ajuda...abraço http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

[Fino 0]

É AAlves...não foi erro seu não...de maneira nenhuma a tal mensagem "Ação Openreport foi cancelada" desaparece da tela...acho que é do Access mesmo, não tem jeito...mas não dá nada...o que importa é que tá funcionando!!!

<{POST_SNAPBACK}>

A tal mensagem aqui não aparece mais! Aí ainda aparece, mesmo colocando o CANCEL antes ?

 

:wacko:

<{POST_SNAPBACK}>

Opaaaa...tava aparecendo sim...mas descobri o que era...o erro foi MEU na verdade...foi mal!!! No botão em que chamo o relatório estava assim:

 

On Error GoTo Err_Cmd_rel_Click

 

Dim stDocName As String

 

stDocName = "Relatorio"

DoCmd.OpenReport stDocName, acPreview

 

Exit_Cmd_rel_Click:

Exit Sub

 

AQUI ESTAVA O ERRO!!!!

Err_Cmd_rel_Click:

MsgBox Err.Description

Resume Exit_Cmd_rel_Click

 

Vacilei...mas só assim pra aprender mesmo...valeu mais um vez pela atenção!!!

 

Grande abraço