Accessフォームに行番号を自動的に付与するには

質問

帳票フォームにデータを入力際、先頭行の行番号項目に必ず１、以下 ２、３・・と自動的に番号をふりたいのですがどうすれば良いでしょうか？
よろしくお願いします。
（Access2000を使用しています）

回答No.2

souta_n

もうひとつ帳票フォームが見えないので的外れならごめんなさい。以下のサンプルケースを利用できませんか？

１．テーブルを作成
フィールド名　No　　数値型（長整数型）
フィールド名　項目　テキスト型

２．オートフォーム表形式作成
テキストボックス項目のプロパティ → イベント → 更新後の処理にコード入力

*************** 入力コード ******************
Private NoIns As Integer
---------------------------------
Private Sub 項目Ａ_AfterUpdate()
　　If [No].Value = 0 Then
　　　　　NoIns = NoIns + 1
　　　　　[No].Value = NoIns
　　End If
End Sub
---------------------------------
変数NoInsは連番の値を保持します。フォームが開いている間1・2・3・・・というカウントアップをします。
IF文は項目フィールドに新規データ入力時NoInsの値をNoフィールドに代入します。データの書き換えのときはNoフィールドの値を書き換えないようにしています。
*********************************************
帳票フォームのレコードが移動してもNoInsは値を保持しているので、フォームのレコード移動時イベントでNoInsの値を0に初期化するなどの一工夫いるかも

補足

回答いただきありがとうございます。
フォームのイメージですが・・・（商品台帳です）

　　行番号　商品コード　商品名　　単価
　　　１　　A01　　　　 あいう　　500
　　　２ A02　　　　 かきく　　350

行番号は先頭行から順に１、２、３と自動入力します。
行番号以外はすべて手入力します。

回答No.1

mshr1962

Microsoftのサポート技術情報です。97用ですが2000でも使えます。
【レコードセットの各レコードに連続番号をつける方法】
http://support.microsoft.com/default.aspx?scid=kb;ja;410756&Product=accJPN