I need Code VBA to reset Autonumber field to 1 for all relationship tables

[أحمد محمد اسماعيل عامر]

عندي قاعدة بيانات بها عدة جداول مربوطة ببعض عن طريق علاقات كثيرة 

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

 

 

وشكرا جزيلا مقدما