CRYSTAL REPOT 9.2 PRECISO DE AJUDA.

MALA 08/11/2010 10:36:10
#356872

DoEvents

[ô]CrxRep.DiscardSavedData

CrxRep.RecordSelectionFormula = Sql

CrxRep.DATABASE.Verify

Dim FrmRelTemp As New FrmRel

FrmRelTemp.WindowState = vbMaximized
FrmRelTemp.Caption = Titulo_Rel & [Ô]([Ô] & RelatorioEnvio & [Ô])[Ô]

FormName.MousePointer = 0

FrmRelTemp.CR.DisplayTabs = False
FrmRelTemp.CR.EnableRefreshButton = True

If Destino = DR_imprimir Then
FrmRelTemp.CR.EnableExportButton = True
FrmRelTemp.CR.EnablePrintButton = True
Else
FrmRelTemp.CR.EnableExportButton = False
FrmRelTemp.CR.EnablePrintButton = False
End If

CarregarRelatorioFormula = True

FrmRelTemp.CR.ReportSource = CrxRep
FrmRelTemp.CR.ViewReport

Do While FrmRelTemp.CR.IsBusy
DoEvents
Loop

If FormExclusivo = False Then
FrmRelTemp.Show [ô]vbModal
Else
FrmRelTemp.Show vbModal
End If

Set CrxApp = Nothing

Uso esta funcao pra chamar meu relatorios, mas preciso saber se o relatorio traz informações ou nao, para eu dar uma mensagem disendo que nao houve nenhuma informacao com aqueles paramentros de pesquisa, nao quero mostrar relatorio em branco.

desde ja agradeço a atencao de vcs.