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
quinta-feira, 25 de maio de 2017
