hello,
J'ai un Ttable connecté via ADO à une db ACCES. (Avec Delphi 7)
J'ai un code dans PostError qui affiche un message personnalisé,
le voici
Le problème est que ce message vaut si on veut insérer un champs qui existe déjà (Le champs en question est indexé sans doublon dans ACCESS).
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 procedure TdmCuisinePlus.tblCategoriePostError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction); var sNomCat:String; begin sNomCat:=FrmMaintenanceCategorie.dbtCategorie.EditText; E.Message := 'Erreur d''insertion :' + sLineBreak + 'La catégorie '+sNomCat+' existe déjà '+sLineBreak+ 'Veuillez entrer une nouvelle catégorie'; ShowMessage(e.Message); Action := daAbort; FrmMaintenanceCategorie.dbtCategorie.Clear; FrmMaintenanceCategorie.dbtCategorie.SetFocus; end;
Si une erreur de type champs vide ou autres intervient c'est le même message qui s'affiche.
J'ai regarder dans l'aide d'ACCESS, il y a un liste de code d'erreur de Microsoft Jet.
Mais voila, comment fait -on pour capturer quelle erreur a été déclenchée grâce au code d'erreur?
Merci de votre aide
Partager