テーブル - setechdiv@wiki

＜Access＞ オートナンバーの初期化

自分で調べるとDDL発行とか手動とかしか出てこないのに、
VBAでレコードセット開くくらいで出来る方法があるわけだ。。
さすが先輩。

Set RS = CurrentDb.OpenRecordset([テーブル名])
    With RS
        .AddNew
        .Fields([カラム名]) = 0
        .Update
        .MoveLast
        .Delete
    End With
 

ここの .MoveLastは何をしているか訊いたら、
「消したらカレントがないってエラーが出たから、
　多分 .Updateでカレントレコードが移動して .Deleteが迷子になってる」
さすが先輩・・・