كيفيه تصفير خانة الترقيم التلقائي

[mohammed ali alhababi]

اريد تصفير قائمة الترقيم التلقائي في الجداول 

 

بعد ان احذف البيانات واضيف بيانات اخرى عن طريق النماذج لا تنحذف هذه الارقام 

[محمد أبوعبدالله]

2 ساعات مضت, mohammed ali alhababi said:

بعد ان احذف البيانات

يكفي فقط ان تقوم بعمل ضغط واصلاح لقاعدة البيانات وسيبدأ الجدول من جديد في الترقيم التلقائي

تحياتي

[Eng.Qassim]

اضافة لما تفضل به استاذي محمد ابو عبد الله

اذا كان لديك جدول فيه مفتاح اساسي وترقيم تلقاتي (Table1) ومرتبط بجدول اخر (Table2)

وتريد ان تحذف جميع البيانات من الجدولين وتعيد الترقيم من الصفر

استخدم الكود التالي في حدث عند النقر على زر الحذف

DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM Table2"
DoCmd.RunSQL "DELETE * FROM Tabl1"
DoCmd.RunSQL "INSERT INTO Tabl1 (ID) VALUES (0)"
DoCmd.RunSQL "DELETE * FROM Tabl1"
DoCmd.SetWarnings True
Me.Requery
Refresh

[محمد أبوعبدالله]

3 ساعات مضت, mohammed ali alhababi said:

بعد ان احذف البيانات

وهذا كود يقوم بعمل حذف لحقل ID الذي هو حقل ترقيم تلقائي ثم اعادة انشاءه

    CurrentDb.Execute "ALTER TABLE [tbl1] DROP COLUMN [ID] ;"
    CurrentDb.Execute "ALTER TABLE [tbl1] ADD [Id]AUTOINCREMENT;"

تحياتي

[mohammed ali alhababi]

شكرا لكم جميعا وسأجرب جميع الحلول 

 

 

اكررر شكري لكم يااستاذتتنا الكرام

[Ahmed_J]

السلام عليكم

مشاركة مغ الاساتذة الاعزاء

انظر للرابط اتمنى ان يكون المطلوب

 

 

[Eng.Qassim]

14 hours ago, Ahmed_J said:

السلام عليكم

مشاركة مغ الاساتذة الاعزاء

انظر للرابط اتمنى ان يكون المطلوب

 

 

الطريقة رائعة استاذ احمد .. وهناك الكثيرون من الزملاء يحتاجون تلك الفكرة

شكرا لك وللاستاذ شيفان