Discussion :

[devilbyme]

j'ai une fiche "Saisie d'un nouveau employé",lorsque je click sur le bouton "Enregister" je reçois en sortie le message
d'erreur suivant:
('L'ensemble des données n'est pas en mode Edition ou Insertion').En voici un morceau du code du bouton 'Enregistrer':

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
16
17
18
19
20
21
22
begin
table1.insert;
table1.Edit;
Emp:=DBEdit1.text;
table1.first;
 for i:=1 to table1.recordcount do
if table1.fieldValues['Matricule_Employé']=Emp then
 begin
 messagedlg('Ce numéro est déjà attribué,veuillez introduire un autre numéro',mtinformation,[mbok],0);
// DBEdit1.Text:='';
 exit;
 end;
 
table1.fieldbyname('Matricule_Employé').asstring:=DBEdit1.text;
table1.fieldbyname('Nom_Employé').asstring:=edit2.text;
table1.fieldbyname('Prenom_Employé').asstring:=edit3.text;
table1.fieldbyname('Adresse_Employé').asstring:=edit4.text;
table1.fieldbyname('Telephone_Employé').asstring:=(MaskEdit1.text);
table1.fieldbyname('Fonction_Employé').asstring:=edit5.text;
table1.Edit;
table1.post;
showmessage ('Opération d''Enregistrement effectuée avec succés!!');

///SVP si quelqu'un peut m'aider,c'est urgent.

[evarisnea]

retire déjà l'instruction "table1.Edit" qui est inutile après "table1.insert", et celle avant "table1.post", car un appel à "table1.Edit" effectue un Post si nécessaire.

[Cl@udius]

Salut

L'ensemble des données n'est pas en mode Edition ou Insertion

Tu obtiens ce message à cause du Table1.First que tu effectues afin d'effectuer une recherche si le matricule pour s'assurer de son absence.
First effectue un Post sur le DataSet (Table1) si celui-ci est à l'état dsInsert ou dsEdit avant d'effectuer le déplacement.

Dans la mesure où tu dois avoir une clé primaire sur le matricule (enfin j'espère ) je gèrerais plutôt l'échec du Post via l'évènement OnPostError pour informer l'utilisateur.

... car un appel à "table1.Edit" effectue un Post si nécessaire.

En fait l'Edit est simplement ignoré si le DataSet est déjà en mode d'édition (dsInsert ou dsEdit).

@+ Claudius.

[evarisnea]

En fait l'Edit est simplement ignoré si le DataSet est déjà en mode d'édition (dsInsert ou dsEdit).

en effet, où avais-je la tête

[BuzzLeclaire]

@Salut,


A ta place j'utiliserai u Locate sur ta table :

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
16
17
18
19
20
21
22
23
24
  With Table1 do
  begin
    try
      Open;
      if Locate('Matricule_Employé',DBEdit.Text,[]) Then
      begin
          // Tu peux ici aussi gérer un Edit; le locate te permet d'être positionné dessus
            messagedlg('Ce numéro est déjà attribué,veuillez introduire un autre numéro',mtinformation,[mbok],0);
      end
      else
      begin
         Insert; //ou Append;
         fieldbyname('Matricule_Employé').asstring:=DBEdit1.text;
         fieldbyname('Nom_Employé').asstring:=edit2.text;
         fieldbyname('Prenom_Employé').asstring:=edit3.text;
         fieldbyname('Adresse_Employé').asstring:=edit4.text;
         fieldbyname('Telephone_Employé').asstring:=(MaskEdit1.text);
         fieldbyname('Fonction_Employé').asstring:=edit5.text;
         post;
      end;
    finally
      Close;
   end;
 end; {End With}

@+

[redoran]

Code :

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

1
2
3
4
5
6
7
8
 
................
begin
table1.insert; un insert ?
table1.Edit; ensuite un edit ??
Emp:=DBEdit1.text;
table1.first; et un first ???
....................

idem que Buzz