Discussion :

[Jcpan]

Bonjour

j'aimerai faire un test dans l'évènement BeforeInsert, et suivant le résultat je valide ou j'annule ce dernier ( le nouveau enregistrement)

Merci d'avance.

[Rayek]

Bonjour

j'aimerai faire un test dans l'évènement BeforeInsert, et suivant le résultat je valide ou j'annule ce dernier ( le nouveau enregistrement)

Merci d'avance.

Merci de préciser un peu plus car il n'y aucune question.
De plus sans les composants DB, la version de delphi et la base de données utilisée, il sera très difficile de pouvoir répondre.

[Jcpan]

ok

voici ce que je voulais faire,
je fais un test avant l'insertion, si c'est bon j'inserre sinon j'annule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
procedure TForm1.Table1BeforeInsert(DataSet: TDataSet);
begin
  if ( mon test)
    begin
    DataSet.Cancel;
    exit;
    end;
end;

mais ça ne marche pas, ça insère quand même.

[Franck SORIANO]

Remplace Exit par Abort.

Si tu veux arrêter l'action en cours, il faut déclencher une exception. Comme tu ne veux pas qu'elle se traduise par l'affichage d'un message d'erreur, tu déclenche une exception silencieuse avec Abort.

[Jcpan]

Merci