كود لتعديل قيمة حقل عداد Auto number إلى قيمة 1 بعد حذف السجلات

[الأمير هشام]

السلام عليكم 

أرجو تعريفى بجملة SQL    و التى تقوم بتعديل قيمة حقل العداد Auto Number إلى القيمة 1 مرة أخرى بعد حذف سجلات الجدول حيث أننى أستخدمت جملة 

DoCmd.RunSQL ("ALTER TABLE Students_Lists Modify ID = 1")

لكن يظهر لى رسالة خطأ 

مع الشكر

[kkhalifa1960]

تفضل أخي .

'Table1 حسب اسم الجدول لديك
'ID حسب اسم  لديك

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

 

[الأمير هشام]

السلام عليكم

KKALIFA1960

الكود يعمل بكفاءه .. مشكور على جهدك و إهتمامك وافر الشكر و التقدير أستاذى الفاضل