オートナンバー型を1から始める方法はありますか？

アクセスのVBAで
mySQL = "DELETE Tテーブル.* FROM Tテーブル;"
DoCmd.RunSQL mySQL
を実行して
テーブルのデータをすべて削除してから、
データを追加するコードを実行しているのですが
オートナンバー型のフィールドが前回の続きの値から始まります。

運用上問題ないのですが
途中の数字から始まってスッキリしません。

削除クエリを実行しても
オートナンバー型を1から始める方法はありますか？

No.2 ベストアンサー 回答者： nicotinism 回答日時： 2013/03/25 23:12

Access オートナンバー リセット

で、Google と

本家
http://support.microsoft.com/kb/812718/ja
分家？
http://www.accessclub.jp/bbs/0066/beginers25257. …
などが出てきますが、分家？のmayuさんのレスの方法をお勧めします。

なお、
>mySQL = "DELETE Tテーブル.* FROM Tテーブル;"
>DoCmd.RunSQL mySQL
Docmd.Runsql・・だと非同期的に実行されますので
連続実行しても大丈夫なように

With CurrentProject.Connection
.Execute CommandText:="DELETE Tテーブル.* FROM Tテーブル;"
.Execute CommandText:= _
"Alter Table Tテーブル Alter Column オートナンバーフィールド名 Identity( 1, 1 );"
End With
かな。

この回答へのお礼

ありがとうございます。

お礼日時：2013/04/06 21:58

No.1 回答者： bin-chan 回答日時： 2013/03/25 20:13

削除するくらいだから、テーブルを作成しなおしてはいかが？

この回答へのお礼

ありがとうございます。

お礼日時：2013/04/06 21:58