Here are a couple of examples on how to do that. Hope this helps.
KB
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If TotalPcs.Value = 0 Then
TotalPcs.Visible = False
PcsLBL.Visible = False
MailingCost.Visible = False
Else
TotalPcs.Visible = True
PcsLBL.Visible = True
MailingCost.Visible = True
End If
End sub
Also
Private Sub GroupFooter0_Format(Cancel As Integer, FormatCount As Integer)
If Total_Cost > Balance Then
Me.Bal.Caption = "Balance Due:"
End If
If Total_Cost < Balance Then
Me.Bal.Caption = "Credit Balance:"
End If
End Sub