كيف يمكن حذف سجل واحد بدون ما يبقى اثره Absoulute

[medreg]

الامر ابسط
افعل كما قلت لك
وتعمل على Paradox و Absolute او اي قاعدة!
أخر سجل
خذ قيمة الحقل
ضف لها واحد
ضف سجل جديد
ضع به القيمة

كود :

x:=0; Table1.Last; x:=Table1.FieldByName('code').AsInteger; x:=x+1; Table1.Insert; Table1.FieldByName('code').AsInteger:=x;

يمكن ان تستخدم Query ، اظنك لا تحبها
وبالتوفيق

مشكور يا اخي معك حق والله كلما رأيت هذه الكلمة Query يزيد تشاؤمي منها
ولا أعرف سبب ذلك ربما لعدم تعاملي معها بقواعدها

سافعل ما اشرت علي به وسأرد عليك
ووفقك الله