Microsoft Access 掲示板

条件を指定してレコードを数える方法としてDCount関数が使えます。

「今日」を基準として7日間の出勤記録が7個あればいいので、新しく作るクエリにフィールドを追加して

今日まで7日間の出勤数: DCount("社員CD","Ｔ_出退勤","社員CD=" & [社員CD] & " and 日付>#" & [日付]-7 & "# and 日付<=#" & [日付] & "#")
抽出条件：7

とすれば抽出できます。
※出退勤の記録は1日1回までを前提としています。中休みを入れて午前午後で2回記録がついたりするなんてことがある場合は日付をグループ化したりする必要が出ると思います。

別案
クエリで定義域集計関数を使うと重くなるので「Ｔ_出退勤」に連続出勤日数フィールドを用意して出退勤を記録するフォームで入力時に連続出勤日数を記録するといいと思います。

早速お答えくださり、ありがとうございます。

新しいフィールドに、教えていただいた式を入力させていただいたのですが、
7日連続勤務ではない数字が出てきてしまう状況です。
危惧されている、一日2回入力することはない状況なのですが、
4日目で表示されてしまう人がいる状況です。

引き続き教えていただければ幸いに存じます。
どうぞ、よろしくお願いいたします。

直接「Ｔ_出退勤」テーブルを見ているわけではないので何ともですが、間違って表示されてしまう人の条件でクエリを表示すると何かわかるかもしれません。

たとえば
間違って表示されてしまう人の社員CDが「3」
表示されてしまう4日目が「2019/5/16」
なら
新しく作ったフィールド（今日まで7日間の出勤数）の抽出条件を削除
社員CDの抽出条件に「3」
日付の抽出条件に「>#2019/05/16#-7 And <=#2019/05/16#」

として表示すると7件以上のレコードが表示されるはずです。
日付が重複しているレコードがあったり、7日間に含まれない日付があったりしませんか？

ご回答ありがとうございます。

間違って表示されているパターンは下記の通りでした。
社員CD７　　4月2週目　　１、連続3日目
　　　　　　　　　　　　２、連続4日目
　　　　　　※連続5日目は表示されていませんでした。

社員CD９　　4月の最終週　１、連続3日目
　　　　　　　　　　　　　２、連続4日目
　　　　　　　　　　　　　３、連続5日目
　　　　　　※連続６日目は出勤自体がないため表示されていませんでした。
社員CD19　　5月最終週　　１、連続2日目
　　　　　　　　　　　　　２、連続1日目(1日休んだ後に出勤）
　　　　　　　　　　　　　３、連続2日目
その他にもパターンが全く違う社員が出ている状況です。
もちろん日付が重複しているレコードはない状態です。

賢くない私には、パターン化が見えない状況です。
非常にお手数を取らせてしまい申し訳ありませんが、
よろしくお願いいたします。

基本的な考え方は「7日間だけ抽出する」「連続して7日出勤しているなら7レコードあるはずだ」です。
連続3日ということは「4日前は休み=レコードがない」なのでその日までの7日分だけ抽出したら最大でも6レコードしかないはずで「抽出条件：7」で表示されるのはおかしいとなります。

Dcount関数の条件指定を正せばいいのですが、おかしい原因は

1. 同じ日付が複数ある
2. 「出勤」以外の日付のレコードがある
3. 8日以上離れた日付がある

のどれかです。
そこで、おかしいレコードで「7日間だけ抽出する」して、抽出されたレコードを直接見て原因をつかもうというのが>> 3です。

社員CD７　　4月2週目　　１、連続3日目なら（月曜から出勤として対象日は4/10日）
社員CDの抽出条件に「7」
日付の抽出条件に「>#2019/04/10#-7 And <=#2019/04/10#」
でクエリを表示すると7レコード以上表示されるはずです。
この場合のSQLを記載しますので、新規にクエリを作成し、SQLビューで以下を張り付けてデータシートビューで確認してみてください。

SELECT [Ｔ_出退勤].[社員CD], [Ｔ_出退勤].日付
FROM Ｔ_出退勤
WHERE ((([Ｔ_出退勤].[社員CD])=7) AND (([Ｔ_出退勤].日付)>#4/10/2019#-7 And ([Ｔ_出退勤].日付)<=#4/10/2019#));

表示されたレコードに「おかしい結果」に該当するものがあった場合はそれを弾く条件の追加が必要です。
「おかしい結果」が無い場合はDcount関数の条件が間違っています。最初の式と同じものを記載しますのでコピーしてみてください。

今日まで7日間の出勤数: DCount("社員CD","Ｔ_出退勤","社員CD=" & [社員CD] & " and 日付>#" & [日付]-7 & "# and 日付<=#" & [日付] & "#")

ありがとうございます！できました！

理解力が低い私のために、懇切丁寧に教えて下さり、本当にありがとうございました！
これで、カウントミスや間違った入力を見つけることができそうです。

誠にありがとうございました！