Q&A
質問の内容からするとリアルタイムで変更したい
と受け取れるのですが間違いないでしょうか？
また回答にはVBAの知識が必要となる内容となりますがよろしいでしょうか？
実現したいこと
現在Access(2007-2016)で勤怠管理のデータベースを作成しており、フォームで社員ごとに勤怠情報のレコードを表示させています。Accessフォーム上のDCount関数,DSum関数について分からない点があり、質問させていただきます。
フォーム右上に、フォームに表示しているレコードの数と、その勤務時間合計を表示する部分を作りたいのですが、「フォーム表示中のレコードのみ計算対象にする」という処理の仕方を教えていただけないでしょうか。
例）上の画像の場合、Bさんの総レコード数は6なので、出勤回数は「6」と表示される
例）「今月データのみ表示」ボタンを押して9月のレコードのみ表示させたとき、9月のレコード数は3なので、この場合は出勤回数「3」と表示されるようにしたい
・レコードソース名：T_勤怠
・ヘッダー左のテキストボックス名：「Txt_氏名」
・右上の出勤回数のテキストボックス：=DCount("*","T_勤怠","[氏名]=" & [Txt_氏名])
現在このようになっています。検索力不足もありGoogleで解決方法を見つけられなかったので、ヒントになるWebサイトを教えていただけるだけでも有難いです。お力添えよろしくお願いします…！
回答2件
0
ベストアンサー
出勤回数のテキストボックスのコントロールソースを
=Count(*)
とすればフォームに表示されているレコードの件数になります。
勤務時間合計は下記の式で。
=Sum([退勤時間]-[出勤時間]-[休憩時間])
リアルタイムで反映されます（レコード保存後に）。
投稿2020/09/23 02:48
編集2020/09/23 04:18
総合スコア33699
Dsum,Dcountではなく、単純にSum,Countと書くことで表示中のレコードのみを対象にできるのですね。1点追加で質問させていただきたいのですが、Count("*")にカウントの条件を付けることは可能でしょうか。
ネットで「Access Count 条件」などと調べても、Dcount関数の記事ばかり出てきてしまいまして…
実際は、フォームには1か月分(1日~末日)のレコードがすべて表示されていて、その中から「出勤時間」が記入されているレコードのみカウントする、といった形で利用したいと思っています。情報開示不足で申し訳ありませんが、よろしくお願いします。
Count("*") ではなく Count(*) です。
> その中から「出勤時間」が記入されているレコードのみカウントする
「出勤時間」が記入されていない=Null ということなら、
=Count([出勤時間])
でOKです。Nullはカウントしないので。
ただ、画像を見ると既定値が 0 になっているので、0は未入力という意味なら、下記のような式になります。
=Count(IIf([出勤時間]=0,Null,[出勤時間]))
あるいは、
=Sum(IIf(Nz([出勤時間])=0,0,1))
無事、やりたかった機能を実装できました。
丁寧に回答いただきありがとうございました。
0
RecordsetClone
という現在フォーム上で表示させているレコードのコピーを取得する方法があります。
このレコードから集計を行って表示する関数を用意すればよいのです。
投稿2020/09/23 05:42
編集2020/09/23 05:43総合スコア2506
丁寧に回答いただきありがとうございました。「RecordsetClone」を知らなかったため、大変勉強になります。今回は先に回答をくださったhatena19様にベストアンサーをつけさせていただきました。今後も機会がありましたら、どうぞよろしくお願いします。
あなたの回答
tips
プレビュー
