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

質問

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

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

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

回答No.2

nicotinism · ベストアンサー

Access オートナンバー リセット
で、Google と

本家
http://support.microsoft.com/kb/812718/ja
分家？
http://www.accessclub.jp/bbs/0066/beginers25257.html
などが出てきますが、分家？の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
かな。

お礼

ありがとうございます。

回答No.1

bin-chan

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

お礼

ありがとうございます。