quinta-feira, 25 de maio de 2017
assinantes
   Assinatura Ativo Access


Não Assinantes
ConteÚdo
DOWNLOADS
Interação
dicas aleatórias
Dicas

A ação OpenReport foi cancelada. Evento "NoData".
Autor:  Roberto Amaral Fernandes (amaral@ativoaccess.com.br)
Publicado:  25/03/2009
Visitas: 
 
Voce elabora um relatório, com base em uma consulta, e a consulta pede um parâmetro:

"Informe o ano" - voce digita o ano, por exemplo 2.009, e o evento "Se nenhum dado", na lingua mãe "OnNoData", previamente programado conforme abaixo, manda a sua mensagem "Nada para imprimir. Cancelando o relatório...".

Private Sub Report_NoData(Cancel As Integer)
MsgBox "Nada para imprimir. Cancelando o relatório...", vbnformation, "Sistema Contábil"
Cancel = True
End Sub

Até aqui tudo bem, voce tecla enter e aí vem aquela mensagem: "A ação OpenReport foi cancelada." Como se livrar dessa mensagem: "A ação OpenReport foi cancelada."?

Duas maneiras:

- Antes de mandar imprimir o relatório faça o teste da consulta e se o recordset estiver vazio, desvie a ação para uma mensagem de aviso e fim.

- Se isso não for possível (muitas vezes a pré execução da consulta com solicitação de parâmetro é muito complexa) preste atenção no código gerado para abrir o relatório:

Private Sub AbreRelatorio_Click()
On Error GoTo Err_AbreRelatorio_Click

Dim stDocName As String

stDocName = "rptReg_inventario"
DoCmd.OpenReport stDocName, acPreview

Exit_AbreRelatorio_Click:
Exit Sub

Err_AbreRelatorio_Click:
'MsgBox Err.Description - Iniba essa linha. Ela é que provoca a mensagem.
Resume Exit_AbreRelatorio_Click

End Sub


  « Voltar

 

Assine AtivoAccess
     CD Ativo Access = R$ 44,70

 

   Copyright © Ativo Access 2003 - 2017- Todos os direitos reservados   Política de Privacidade | Fale conosco