ACCESS2007 Reportの小計を取る時、詳細の件数が2件以上

質問

ACCESS2007　Reportの小計を取る時、詳細の件数が2件以上の時に小計を表示し、1件の時は小計を表示しないようにするにはどうしたら良いですか？

回答No.2

piroin654

失礼しました。

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
If minCount > lnCount Then
Me!tx小計.Visible = False
End If
End Sub

のところで、

If minCount > lnCount Then

を、

If MaxCount >= lnCount Then

としてください。

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
If minCount >= lnCount Then
Me!tx小計.Visible = False
End If
End Sub

となります。

回答No.1

piroin654

http://oshiete1.watch.impress.co.jp/qa6158519.html
での応用になりますが。

小計を表示するテキストボックスの名前をtx小計
とします。

レポートのコード表を開きます。以下のコードを貼り付け
保存してください。

Private Const minCount = 1
Dim lnCount As Long

Private Sub Report_Open(Cancel As Integer)
lnCount = DCount("*", Me.RecordSource)
End Sub

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
If minCount > lnCount Then
Me!tx小計.Visible = False
End If
End Sub

以上です。

お礼

有難うございました。
助かりました。