هنا تجد حل أنا جديد ولا أعرف كيف أنسق المهم وهو الأهم تفضل
كود :
label 1;
var rech:string;i,s:integer;
begin
1:
rech:=(inputbox('enter le numero','numero','00'));
table1.Edit;
if table1.Locate('mat_fonc',rech,[])then
begin
table4.FieldValues['mat_fonc']:=table1.FieldValues['mat_fonc'];
table1.Delete;
table2.Filter:='mat_fonc='''+rech+'''';
table2.Filtered:=true;
for i := 1 to table2.RecordCount do
if table2.Locate('mat_fonc',rech,[])then
begin
table2.Next;
table2.Delete
end
else
if messagedlg('le numero n''exixte pas ',mtinformation,[mbyes,mbno],0)=mrno then exit
else
goto 1;
end;;