Borrado parcial de registros

[manu]

Hola a todos.
Tengo una tabla Acces, de la que obtengo información para imrpimir unas etiquetas.
Para obtener los datos lo hago mediante una consulta

SELECT indicativo,FechaHora,Frecuencia,modo,rst,observaciones FROM ColaQSLs ORDER BY indicativo ASC

Como solo quiero que se impriman paginas completas de etiquetas uso la orden

form2.QuickRep1.PrinterSettings.LastPage:=(AdoQuery1.RecordCount div numero_etiq);

El siguitente paso es borrar todos los registros que se han imprimido y no se borren todos los registros.

¿como podria hacerlo?
Gracias.
Un cordial saludo.

[Neftali [Germán.Estévez]]

Puedes ponerte al principio de la tabla (ADOQuery1.First), y ejecutar un delete (ADQuery1.Delete) tantas veces como registros has impreso:
form2.QuickRep1.PrinterSettings.LastPage * numero_etiq
dentro de un bucle for.

Al final te deberían quedar sin borrar los registros que no has impreso:
AdoQuery1.RecordCount MOD numero_etiq

[[Lepe]]

Como pides ordenado por indicativo ASC, tambien puedes en el evento BeforePrint, guardar en una variable el indicativo en curso, se irá actualizando por cada registro impreso y al final tendrás en esa variable el último indicativo impreso.

Código SQL [-]
delete FROM ColaQSLs WHERE indicativo <= :varIndicativo.

Saludos