واذا أردت بالكود ضع زر بأي فورم .
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