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

[mohammed ali alhababi]

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

 

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

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

  في 24‏/8‏/2021 at 12:49, mohammed ali alhababi said:

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

Expand  

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

تحياتي

[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

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

  في 24‏/8‏/2021 at 12:49, mohammed ali alhababi said:

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

Expand  

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

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

تحياتي

[mohammed ali alhababi]

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

 

 

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

[Ahmed_J]

السلام عليكم

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

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

 

 

[Eng.Qassim]

  في 25‏/8‏/2021 at 05:59, Ahmed_J said:

السلام عليكم

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

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

 

 

Expand  

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

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