Accessのレポートで、グループフッターで件数を表示するには？

質問

Accessで社員ＤＢを作っておりまして、レポートで社員数を表示するのに、手間取っています。

テーブル（T社員一覧）のフィールド内容として、所属、氏名、職種、勤務形態としています。

レポートで社員名簿（１ページで）を出力したいと作成中で、
各所属をグループとして、氏名、職種、勤務形態を表示するようにしています。
フッター部分に、各所属の社員数および勤務形態による内訳を表示したいと思い、

まず、各所属の社員数を表示するため、
=Count([名前])

勤務形態（正社員かパート）でその内訳を表示するため、
=DCount(" [勤務形態] ","T社員一覧"," [勤務形態] ='正社員'")
および
=DCount(" [勤務形態] ","T社員一覧"," [勤務形態] ='パート'")

というのを作ってみたのですが、どうもうまくいきません。

各所属の社員数は、グループフッター部分に、正確に表示されるのですが、
勤務形態別の社員数は、所属毎にカウントせず、すべての一覧の中からの正社員数、パート数となってしまうのです。

なにかよい方法はありませんでしょうか？
ご教授いただければうれしいです。

回答No.1

mshr1962 · ベストアンサー

方法１
=DCount(" [勤務形態] ","T社員一覧","[勤務形態] ='正社員' And [所属]='" & Me!所属 & "'")
のように所属も条件にする。

方法２
クエリにて正社員とパートのフィールドを作成する。
正社員:Iif([所属]="正社員",1,0)
パート:Iif([所属]="パート",1,0)
レポート上では
SUM([社員])
SUM([パート])
で集計表示する。

お礼

ありがとうございました。助かりました。

回答No.3

CHRONOS_0

=Sum(IIF([勤務形態] ="正社員",1,0))
=Sum(IIF([勤務形態] ="パート",1,0))

お礼

ありがとうございました。助かりました。

回答No.2

noname#140971

方法３

Option Compare Database
Option Explicit
Dim 正社員数 As Integer
Dim パート数 As Integer

Private Sub グループフッター0_Format(Cancel As Integer, FormatCount As Integer)
　　正社員数欄 = 正社員数
　　パート数欄 = パート数
End Sub

Private Sub グループヘッダー0_Format(Cancel As Integer, FormatCount As Integer)
　　正社員数 = 0
　　パート数 = 0
End Sub

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
　　正社員数 = 正社員数 - (勤務形態 = "正社員")
　　パート数 = パート数 - (勤務形態 = "パート")
End Sub

お礼

ありがとうございました。助かりました。