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

解決済

質問者：vmjvyhrvl6
質問日時：2013/03/25 20:06
回答数：2件

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

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

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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

ベストアンサー優先
最新から表示
回答順に表示

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
かな。