Γιώργος Μπακογιάννης:
Public Function GroupByValue(value As Double) As String
If value < 1000 Then GroupByValue = "<1000"
If value >= 1000 And value < 2000 Then GroupByValue = ">=1000 & <2000"
If value >= 2000 And value < 3000 Then GroupByValue = ">=2000 & <3000"
If value >= 3000 And value < 4000 Then GroupByValue = ">=3000 & <4000"
If value >= 4000 Then GroupByValue = ">=4000"
End Function
Τό ίδιο πράγμα χρησιμοποιώντας συνεχόμενα IIf για να μην έχεις και εξωτερική function π.χ.
Group by IIf(Value < 1000,IIf(value >= 2000 And value < 3000,">=1000 & <2000"),"<1000")
Πάντως ο τρόπος του Γιώργου είναι πιο "αναγνώσιμος" από αυτόν.
Manos