Verificar Apertura de Query

[roman]

IsEmpty te dice si el resultado de la consulta devolvió algún registro y muy posiblemente sólo pueda llamarse si la consulta está abierta. Lo más directo sería:

Código Delphi [-]
if DataModule2.Inv_Escolar.Active then
  ...

// Saludos

[anghell77]

Gracias Román; fijate que no evalúa si se ha ejecutado el Query...se va directamente al mensaje

Código Delphi [-]
if Application.MessageBox('¿Es Correcta la Selección de la Consulta?','Biblioteca', MB_YesNo+Mb_IconQuestion)=IDYes then
   Reporte_Inv_Escolar.QuickRep1.Preview

.
He seguido con el código que puse anteriormente, y me ha funcionado; me imagino que no es el adecuado, pero como dices, que verifica la devolución de registros, pues, he estado haciendo "necesaria" la ejecución de la consulta mediante un botón... creo que con ello ya puedo dejar el código que tengo no?

Yo, igualmente, sigo en apertura de recepción de mensajes para ver si hay otras formas de realizarlo...
Por lo pronto, creo que me funciona el código.

{Saludos}

[roman]

Mi error . Creo que basta invertir la condición:

Código Delphi [-]
if not DataModule2.Inv_Escolar.Active then
  ...

// Saludos

[anghell77]

Gracias!!!! en verdad!! también mi distracción....lo mismo me ocurrió al utilizar

Código Delphi [-]
If(Consulta.IsEmpty=FALSE)

Obvio que hacía todo lo contrario...

Ahora que me has ayudado, y puedes, creo que el hilo está demás...

Código Delphi [-]
Hilo:=Close;

Gracias Román.

{Saludos}