Relatório Delphi 6 + Paradox

[Renanbg 1]

Geralmente para gerar o relatorio uso o seguinte:

 

Application.CreateForm(Tfrmrelcontatos, frmrelcontatos);frmrelcontatos.query1.close;frmrelcontatos.query1.sql.clear;frmrelcontatos.query1.sql.text:= 'Select * from tabela where Nome LIKE "A%" order by Nome';frmrelcontatos.query1.open;frmrelcontatos.QuickRep1.Preview;

Suponhamos que não exista resultado para essa consulta, então o quickrep se abre em branco, ou seja sem dados já que não existe nada a listar

 

Queria que ele não abrisse caso não encontre nada e que aparecesse uma mensagem informando que não foi localizado nenhum registro nos critérios solicitados

 

Tem como?

[Rodrigo Miss 1]

Simples! basta fazer uma verificacão em cima do resultado da consulta, antes de exibir o relatorio:

 

{... }if (frmrelcontatos.query1.RecordCount = 0) thenbegin  ShowMessage('O relatório gerado não contém dados!');endelsebegin  frmrelcontatos.QuickRep1.Preview;end;

[Renanbg 1]

Grande!muito bom, agora vou repassar todos e colocar essa programaçãoObrigadoAbraço...

[Rodrigo Miss 1]

certo ...

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