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

Version imprimable

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:

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.

26/09/2010, 15h52
evarisnea

:salut:

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.
27/09/2010, 12h08
Cl@udius

Salut

Citation:

Envoyé par devilbyme

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 :aie:) je gèrerais plutôt l'échec du Post via l'évènement OnPostError pour informer l'utilisateur.

Citation:

Envoyé par Evaris

... 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.

@Salut,

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

Code:

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}

Code:

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 :ccool:

27/09/2010, 19h17
evarisnea

Citation:

Envoyé par Cl@udius

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

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