السلام عليكم و رحمة الله تعالى و بركاته
هل هناك خلل في هذا الكود
رسالة الخطأ
![[صورة: 994355422.jpg]](http://www10.0zz0.com/2010/07/26/20/994355422.jpg)
وهذه قاعدة البيانات
هل هناك خلل في هذا الكود
كود :
procedure TForm1.SpeedButton1Click(Sender: TObject);
Begin
data.table2.First;
data.table2.FindKey([data.table7Num_A.Value]);
while (Data.table7Num_A.Value=data.table2Num_A.Value) and not(data.table2.Eof) do
begin
If data.Article.FindKey([data.table2Code_P.Value,2])then
Begin
data.Article.Edit;
data.ArticleQtitte_stock.Value:=data.ArticleQtitte_stock.Value+ data.Table2Qtite_A.Value;
end;
end;end;رسالة الخطأ
وهذه قاعدة البيانات