Microsoft Access 掲示板

Microsoft Access 掲示板

グループを作って該当のグループ仲間からデータを抽出する / 1

1
hiroton 2020/09/09 (水) 11:36:26 25184@f966d

DLooukup関数で案件グループIDと一つ前の日を指定すれば案件IDは拾えますね。「一つ前」は自身より小さいものの中で最大のものということでDMax関数で拾えます

ついでに「案件グループID」と「案件発生日」の両方のデータがないと取得できないので共通して使えるように関数化して、それぞれの更新後処理に「=set前回の案件ID()」で呼び出すとかですかね

Private Function set前回の案件ID()
Dim lastDay

If IsNull(Me!案件グループID) Or IsNull(Me!案件発生日) Then Exit Function

lastDay = DMax("案件発生日", "T案件テーブル", "案件グループID=" & Me!案件グループID & " AND 案件発生日<#" & Me!案件発生日 & "#")

If IsNull(lastDay) Then Exit Function

Me!前回の案件ID = DLookup("案件ID", "T案件テーブル", "案件グループID=" & Me!案件グループID & " AND 案件発生日=#" & lastDay & "#")
End Function
通報 ...