Crystal Report - VALIDAR FILTRO DESDE VISUAL

Hola:

Tengo un filtro de fechas que funciona correctamente....pero mi problema es como validar este filtro si el rango de fechas es vacío.....la idea es que me envíe un mensaje diciendo que no hay fechas entre ese rango

el codigo es el siguiente:

Primera = CDate(Texto(0).Text) ' texto(0)-----> fecha 1
Ultima = CDate(Texto(1).Text) 'texto(1)------> fecha 2
Dia1 = Day(Primera)
Mes1 = Month(Primera)
Agno1 = Year(Primera)
Dia2 = Day(Ultima)
Mes2 = Month(Ultima)
Agno2 = Year(Ultima)

CrxReport.RecordSelectionFormula = "{compras.fechacompra} in Date(" & Agno1 & "," & Mes1 & "," & Dia1 & ") to Date(" & Agno2 & "," & Mes2 & "," & Dia2 & ")"

Disp_Salida.Show
Disp_Salida.CRViewer1.ReportSource = CrxReport
Disp_Salida.CRViewer1.ViewReport

BUENO ESO HASTA PRONTO

Ke tal Alejandro.

Te sugiero ke dicho filtro no lo hagas en el reporte y lo realices en la DB y desde ahí obtengas el resultado, ya con esto mandas el mensaje o el reporte o lo ke desees.

Saludos.

Muchas gracias ya solucioné hice la consulta con un SELECT y BETWEEN desde la DB y de ahí lanzo el mensaje. si esta vacio el recordset lanzo el error SI NO lleno el reporte con la formula y lo muestro

por si a alguien le sirve el codigo es este:

Set puntero_reporte = New Recordset
puntero_reporte.Open "SELECT fechacompra FROM compras WHERE fechacompra BETWEEN ' " & Texto(0) & " ' AND ' " & Texto(1) & " ' ", pun, adOpenDynamic, adLockOptimistic

puntero_reporte.Requery

If puntero_reporte.BOF And puntero_reporte.EOF Then
MsgBox "No Hay Compras en el Rango Seleccionado"
else

Primera = CDate(Texto(0).Text)
Ultima = CDate(Texto(1).Text)
Dia1 = Day(Primera)
Mes1 = Month(Primera)
Agno1 = Year(Primera)
Dia2 = Day(Ultima)
Mes2 = Month(Ultima)
Agno2 = Year(Ultima)
CrxReport.RecordSelectionFormula = "{compras.fechacompra} in Date(" & Agno1 & "," & Mes1 & "," & Dia1 & ") to Date(" & Agno2 & "," & Mes2 & "," & Dia2 & ")"

Disp_Salida.Show
Disp_Salida.CRViewer1.ReportSource = CrxReport
Disp_Salida.CRViewer1.ViewReport

GRACIAS DE NEW