Access連番（VBA）についてアドバイスください。

質問

環境OSーXP　ACCESS2003
ID(オートナンバー）　　社名　　連番
1　　　　　　　　　　　A社
2　　　　　　　　　　　A社
3　　　　　　　　　　　A社
4　　　　　　　　　　　B社
5　　　　　　　　　　　B社
6　　　　　　　　　　　C社
7　　　　　　　　　　　C社

求める結果（VBAーCMDボタンでイベント）

ID(オートナンバー）　　社名　　連番
1　　　　　　　　　　　A社　　　1
2　　　　　　　　　　　A社　　　1
3　　　　　　　　　　　A社　　　1
4　　　　　　　　　　　B社　　　2
5　　　　　　　　　　　B社　　　2
6　　　　　　　　　　　C社　　　3
7　　　　　　　　　　　C社　　　3

Accessculbなどで検索しましたが、グループごとに連番振り方の教程ありますが、↑のような教程まだ見つからないです。
VBA勉強して、まだ浅いので、ぜひ教えてください。
考え方を教えてください。

回答No.1

30246kiku · ベストアンサー

http://oshiete1.goo.ne.jp/qa4859369.html
は参考になりませんか。

並び替え　を　"社名"
フィールド名　を　"連番"　に置き換えてみてください。

お礼

http://oshiete1.goo.ne.jp/qa4859369.html​
↑大変参考になりました。どうもありがとうございます。VBA勉強がんばっていきます。

補足

アドバイスありがとうございます。エラーがよくでます。
自分で解釈できない部分が多いので、引き続き参考し、色々調べてみます。

回答No.2

imogasi

会社ごとにレコードの順が、まとまっているのか、その点質問に書いてない。
いつもレコードの並び順を意識するのは、常識のはず。
書いてないということは、何が処理に大きく影響するか経験が浅い証拠。
それで処理ロジックが大幅に変わる。並びなおしてはいけないテーブルもありえると思う。
ーー
会社ごとにレコードがまとまっているらしいから
ADOとか順レコード処理のコードは出来るなら
直前レコードの社名を決まった１変数記録する（A)
会社レコード「連」内連番の変数を１つ設ける。
ーー
今レコードを読んだ
前の社名（A)と比較して変わったか
YES　連番変数に＋１にして、レコードの連番フィールドに書き込む。
No　連番変数を連番フィールドに書き込み
現社名を前会社社名変数（A）にセット
ーー
これで簡単だが、何かこんな方法では差し障りでも有るのか。

お礼

無事解決できました。貴重なアドバイスどうもありがとうございました。

補足

＞いつもレコードの並び順を意識するのは、常識のはず。
＞書いてないということは、何が処理に大きく影響するか経験が浅い証拠。

　アドバイスありがとうございます。「いつもレコードの並び順を意識する」銘記します。