كيف يتم إعادة ترقيم السجلات الجداول

[Mariam.m]

السلام عليكم

عندي قاعدة بيانات لمدرسة فيها تقريبا 10 جداول

وطُلب مني إنشاء قاعدة بيانات مماثلة لمدرسة ثانية 

كيف يمكنني إعادة ترقيم السجلات من 1 في كل الجداول بعد حذف كااافة السجلات والبيانات الموجودة في قاعدة البيانات الجديدة 

[ابوخليل]

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

شرط ان تكون كافة السجلات محذوفة

[kkhalifa1960]

واذا أردت بالكود ضع زر بأي فورم . 

Private Sub btnReset_Click()
' 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
End Sub