Bonjour amis developpeurs(se) ,

Je vous expose mon probleme que j'ai rencontré avec delphi7 Entreprise et Access. Le but de mon programme et de ajouter des frais contenus dans db1 avec les ecritures associées (valeur 'piece' identique) contenus dans db.
j'ai le message " La ligne n'a pas pu etre trouvée pour la mise a jours, Certaines valeur on peut etre changée depuis leur dernière lecture ".

Voici le code associé.

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
procedure FusionFrais (var db,db1:Tadotable);
 var v,s:string;
 
begin
db1.First;
while not db1.Eof do
  begin
     v:=db1.FieldByName('montant').AsString;
     s:=db1.fieldbyname('piece').asstring;
     if (db.locate('piece',s,[])) then
 
       begin
       db.edit;
       db.FieldByName('frais').asstring:= v;
       db.Post ;
       end;
 
    db1.Next;
  end;
 
end;
Etant debutant avec l'ADO , je vous prie de me montrer mon erreur , Mes remerciment d'avance .