Microsoft Access 掲示板

Window 関数は、Oracle や SQLServer など本格的なデータベースには標準で搭載されている機能ですが、
Access には移植されておらず、LAG や LEAD といった関数は、模倣するのが難しいですから
「 旅人算 」という手段を用いて実現する方法 をご紹介します。

【 手順１ 】
hatenaさんのコンテンツで紹介されている下記の関数を使いますから
ご自身のデータベースに、モジュール( SetSequenceNumber関数 )をインポートしておいてください。
　

グループ毎連番を自動入力する関数

クエリで連番を表示する場合、DCount関数やサブクエリを利用する方法はあちこちで紹介されています。 しかし、この方法は自分より前のレコード件数をカウントするというロジックなのでレコード件数が多くなると幾何級数的に重くなります。また、グループ毎に連番を振るという仕様になると、条件式も複雑になってきます。 クエリは使わずにテーブルに連番フィールドを持たせて、そこに VBA で連番を書きこむようにすると高速...

fc2

    全体連番
    グループ連番

とします。

【 手順３ 】
追加した２つのフィールドに VBA で連番を振ります。
(
　　※ 全体連番には、日付 + 開始時刻 の昇順で ユニークな番号を付与します。
　　※ グループ連番には 日付・内容 を母集団とし、開始時刻の昇順で 集団内での連番を付与します。
)

Sub set_number()
    Call SetSequenceNumber("全体連番", "T_日報マスタ", , "日付,開始")
    Call SetSequenceNumber("グループ連番", "T_日報マスタ", "日付,内容", "開始")
End Sub

　
■ set_number実行前

　
■ set_number実行後