[Tasos]

Καλησπέρα!

Έστω ότι το υπολογιζόμενο πεδίο έχει το όνομα SumOf_fValue

Δείτε μια ακόμα πρόταση παρακάτω:

Option Explicit

Private f As Double 'Currency??
Const Minimum As Double = 5

Private Sub GroupHeader_Format(Cancel As Integer, FormatCount As Integer)
    f = Nz(Me.SumOf_fValue)
    If f <= Minimum Then Cancel = True
End Sub

Private Sub GroupDetail_Format(Cancel As Integer, FormatCount As Integer)
    If f <= Minimum Then Cancel = True
End Sub

Private Sub GroupFooter_Format(Cancel As Integer, FormatCount As Integer)
    If f <= Minimum Then Cancel = True
End Sub

Φιλικά

Τάσος