مشكلة information sur la colonne clé insuffisante pour la mise à jour

[ziad]

سلام عليكم
لدي هذا المشكل عند التغيير في نفس الجدول مرتين دون الخروج من دلفي ... مع العلم استعمل delphi xe7 وقاعدة معطيات access 2007

كود :

http://www10.0zz0.com/2015/03/21/20/572250964.jpg

[bassem_43]

وعليكم السلام
وضح اكثر اخي كي نستطيع مساعدتك
ضع على الاقل جزء من الكود للفهم اكثر

[ziad]

PHP كود :

procedure TForm8.Button1Click(Sender: TObject);
begin
ADOTable1.Open;
ADOTable2.Open;
ADOTable2.Edit;
ADOTable1.First;
ADOTable2.First;

 if not ((adotable1.Locate('Num-permis',edit1.Text,[]))and (adotable2.Locate('Num-permis',edit1.Text,[]) )) then
 begin
 showmessage(' حاول مع رقم اخر,الرقم غير موجود');
 Edit1.Text := '';
 DBEdit1.Text := '';
 DBEdit2.Text := '';
 DBEdit3.Text := '';
 DBEdit4.Text := '';
 DBEdit5.Text := '';
 DBEdit6.Text := '';
 DBEdit7.Text := '';
 DBEdit8.Text := '';
 DBEdit9.Text := '';
 DBEdit10.Text := '';
 DBEdit11.Text := '';
 DBEdit12.Text := '';
 DBEdit13.Text := '';
 DBEdit14.Text := '';
 DBEdit15.Text := '';
 DBEdit16.Text := '';
 DBEdit17.Text := '';
 DBEdit18.Text := '';
 end
 else
 begin

 end;
end;

procedure TForm8.Button2Click(Sender: TObject);
begin
form2.ADOConnection1.Connected := false;
form2.ADOConnection1.Connected := true;
adotable1.Active:= true;
adotable2.Active:= true;
form8.Close;
form4.Show;
end;

procedure TForm8.Button3Click(Sender: TObject);
begin
ADOTable2.Post;
ADOTable1.Close;
ADOTable2.Close;
end;
end. 


[bassem_43]

في الحدث TForm8.Button1Click لمذا تقوم بافراغ محتوى جميع DBEdit.Text عند البحث ؟؟
كدلك في الحدث TForm8.Button3Click لمادا لا تضعه في حدث الضغط button1 ؟