Discussion :

[Abou Zar]

bonjour,
Quand je clique sur mon bouton enregistrer j'ai le message d'erreur " IBtable2:L'ensemble de données n'est pas en mode insertion ou edition"

Quand j'arrive sur la fiche d'enregistrement je clique d'abord sur le bouton "nouveau" dont le code est

Code :

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

1
2
3
 
DataM.IBtable1.Append;
DataM.IBtable2.Append;

Après cela on peut saisir les informations.
Et quand après on clique sur enregistrer le message apparait.
Voici le code du bouton enregistrer

Code :

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

1
2
3
4
5
6
7
8
 
DataM.IBtable1.FieldValues['lieu'] := edit2.text;
DataM.IBtable1.Post;
 
DataM.IBtable2.FieldValues['numero'] := edit1.text;
DataM.IBtable2.FieldValues['nature'] := combo1.text;
DataM.IBtable2.FieldValues['types'] := combo2.text;
DataM.IBtable2.post;

[JustMe]

Tout à fait normal
Append ajoute crée un enregistrement à la fin de la table sans la mettre en mode édition
tu dois faire :

Code :

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

1
2
3
4
DataM.IBtable1.Append;
DataM.IBtable1.Edit;
DataM.IBtable2.Append;
DataM.IBtable2.Edit;

[Abou Zar]

merci bien pour cette reponse rapide;

j'ai mis en mode edit comme vous l'avez proposé mais la meme erreur persiste toujours.
J'ai meme tenté de mettre en mode edit dans le bouton enregistrer avant le post mais l'erreur persiste.

Vraiment je ne comprend pas l'erreur.

Merci de votre aide!

[JustMe]

Tu n'aurais pas des événements AfterPost ou BeforePost de tes Tables qui agissait l'une sur l'autre ou qui validait tout simplement la transaction?

[Abou Zar]

effectivement dans le beforepost j'enregistrais certaines données de la table dans une autre table.
Mais j'ai mis les instructions de ce beforpost en commentaire. mais le problème persite.
merci toujours!

[JustMe]

Et si tu validais tout après avoir tout modifier?

Code :

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

1
2
3
4
5
6
7
8
9
10
 
DataM.IBtable1.FieldValues['lieu'] := edit2.text;
 
 
DataM.IBtable2.FieldValues['numero'] := edit1.text;
DataM.IBtable2.FieldValues['nature'] := combo1.text;
DataM.IBtable2.FieldValues['types'] := combo2.text;
 
DataM.IBtable1.Post;
DataM.IBtable2.post;