Cita:
Empezado por marcoszorrilla
Pues acabo de hacer una prueba exactamente con tú código pero he descubierto que para tu propósito debe de utilizar el evento BeforeInsert
|
Pero el problema aquí será que sólo funcionará cuando se inserte un registro y no cuando se hagan cambios a uno existente.
En las pruebas que acabo de hacer hay dos formas de solucionarlo y básicamente es juntar lo dicho por
jachguate con lo que ya había intentado
elbetete:
Primera forma:
Código Delphi
[-]
procedure TF_OPTIMONEY.QRY_CLIENTES1BeforePost(DataSet: TDataSet);
begin
if NoQuiero then
begin
DataSet.Cancel;
abort;
end;
end;
Segunda forma:
Código Delphi
[-]
procedure TF_OPTIMONEY.QRY_CLIENTES1BeforePost(DataSet: TDataSet);
begin
if NoQuiero then
abort;
end;
y rodear la llamada a Next con:
Código Delphi
[-]
try
Query1.Next;
except
Query1.Cancel;
end;
Pero creo que la prmera forma es más correcta.
// Saludos