オートナンバー型のフィールド値を初期化するVBAです。
dim SQL as string
SQL = "Alter Table テーブル名 Alter Column 型名 Counter(開始値);"
CurrentDb.Execute SQL, dbFailOnError
これを実行すると、次回のデータ追加から開始値になります。
既に、データが入力されている場合は２重登録でエラーになる可能性がありますので注意します。
又、フォームのレコードソースとして対象のテーブルを使用している場合は、エラーが発生し実行できません。