ACCESS フォームからレコードを登録する際のIDナンバーについて

Question

Accessにて、データベース登録用のフォームを作成しています。

フォーム内のテキストボックスに文字を入れ、登録ボタンを押すと、
データベースにレコードが追加されるようになったのですが、
ID（オートナンバー）が空欄のままになってしまいます。

やりたいことは、登録のボタンを押すと、
レコード追加される際に、IDが空いている番号で自動登録されるようにしたいのですが、
コードはどのように追加したらよろしいでしょうか？

コード

Private Sub brn_regi_Click()
  
    Dim Rst As DAO.Recordset
    Set Rst = CurrentDb.OpenRecordset("PartsList２", dbOpenTable)
    
    With Rst
        .AddNew '"新しいレコード追加"
        .Fields("使用場所") = Me!txUse_Place
        .Fields("分類(大項目)") = Me!txClass_1
        .Fields("分類(小項目)") = Me!txClass_2

        .Update '"データ更新"
    End With
    
    Rst.Close
    Set Rst = Nothing

End Sub

ネットで色々検索したのですが、思うような事例が見つからず
質問させて頂きました。

ご教授よろしくお願いします。

Answer 1

オートナンバーは、そのオートナンバーの項目を指定せずにinsertした時だけ自動で発番されます。

データベースにレコードが追加されるようになったのですが、
ID（オートナンバー）が空欄のままになってしまいます。

データが登録されて、そのような状態になるなら、オートナンバーになっていないのだと思います。
テーブル定義を確認してオートナンバーになっているかどうかを確認して下さい。

Comments

[YISS]

仰る通りでした。
確認したところ、いつの間にか数値型になっていました。
色々いじっているうちに、変更してしまったようです。
ありがとうございます。