クエリでグループ毎に連番を振りたい

ＡＣＣＥＳＳ２０００です。

以下のようなテーブルがあります。
役職と氏名の２つフィールドがあります。

役職　　　氏名　　　役職連番
部長　　　山田　　　１
部長　　　蟹田　　　２
部長　　　長谷　　　３
係長　　　金本　　　１
係長　　　佐藤　　　２

という感じで、役職に対して連番を振りたいんですが
こんのようことをする場合はどうすれば良いんですか？

No.1 ベストアンサー 回答者： redsky 回答日時： 2003/01/17 15:41

多分、クエリーでは出来ないと思いますよ。

ＶＢＡで組むしかないと思います。
ＶＢＡでループやレコード更新の記述ができれば、さして難しくはないでしょう。
いわゆるコントロールブレイクの処理になります。

この回答への補足

ただ、元になるデータソース（役職と氏名が入っているフィールド）がクロス集計クエリで普通のテーブルではないんですが・・。

補足日時：2003/01/17 15:48

この回答へのお礼

redskyさん、ご返事有り難うございました。
クエリでは無理なんですが・・・。

とってもすいませんが
ＶＢＡでどういう感じで組むのか教えて頂けたら幸いです。

お礼日時：2003/01/17 15:48

No.3 回答者： gonta_goma 回答日時： 2003/01/17 20:57

出来るかといえば、以下のクエリーで出来ます。

SELECT T.役職, T.氏名, Count(S.役職) AS 役職連番
FROM テーブル1 AS S, テーブル1 AS T
WHERE S.役職=T.役職 And S.氏名<=T.氏名
GROUP BY T.役職, T.氏名
ORDER BY T.役職, T.氏名;

ただ、このクエリだと係長→部長　に並びます。
ORDER BY T.役職 DESC, T.氏名としたら、部長→係長になりますが、他にも役職があったら意味ないです。
上級職から並べたい、とかならばその順番に、役職コードか何かが必要になります。
また、氏名の並びも元のテーブルと違ったものになります。

この回答へのお礼

gonta_gomaさん、ご返事有り難うございました。
お陰様で出来ました。

お礼日時：2003/01/20 12:49

No.2 回答者： o23 回答日時： 2003/01/17 16:48

検索したところそれらしい内容がのってるページを見つけました

参考になりますか？

ところで連番を付ける目的は何でしょう？
基本的に並び順を変更したりすると番号が変わってしまいます・・・

参考URL：http://www.netpro.ne.jp/~niki/ac97/access97/nbr3 …

この回答へのお礼

o23さん、ご返事有り難うございました。
お陰様で出来ました。

お礼日時：2003/01/20 12:47