Discussion :

[rec82]

salut tout le monde.
j'ai un message que je ne sais pas de vient t'il:

la ligne na pas pu etre trouvé pour la mise à jour.
certaines valeurs ont peut etre changé depuis leur derniere lecture
qélle errreur est l'origine de cette erreur.
merci beacoup.

[rec82]

salut tout j'ai trouvé l'origine de message d'erreur
j'utilise un edit et dblookupcombobox et un dbcombobox, quand je click sur le button enregistrer la 1 fois ,les donnes s'enregistrent, mais quand je remplis les champs cité au dessus la 2 fois et je valide sur enregistreril apparais
le message ,la truc reside que dans la 2ieme fois le curseur pointe sur le dernier enregistrement et quand je valide normallement il insert un nouveau ligne et enregistre les donnés mais leprogramme ne fait pas ca il reste sur le dernier enregistrement ajouter.
pour le button enregistrer voila le code:
procedure TForm7.BitBtn5Click(Sender: TObject);

begin
case mode of
1: //le mode enregistrement d'ajout
begin
with datamodule6 do
begin
t9.Insert;
t5.FieldByName('poste').AsInteger:= strtoint(edit1.text);
t5.FieldByName('des').AsString:=edit3.text;
t5.FieldByName('date').AsDateTime:=strtodate( maskedit1.Text);
t5.FieldByName('nbr-iso').AsInteger:=strtoint(edit4.text);
t5.FieldByName('diver').AsString:=memo1.Text ;
t5.Post;
showmessage('Entretien poste Ajouter');
end;
end;
2: //mode enregistrement de modification
begin
with datamodule6 do
begin
t5.Edit;
t5.FieldByName('poste').AsInteger:= strtoint(edit1.text);
t5.FieldByName('des').AsString:=edit3.text;
t5.FieldByName('date').AsDateTime:=strtodate(maskedit1.Text);
t5.FieldByName('nbr-iso').AsInteger:=strtoint(edit4.text);
t5.FieldByName('diver').AsString:=memo1.Text ;
t5.Post;
showmessage('Entretien poste modifier');
end;
end;
end;