Create a new standard module and add something like:
Public Function GetRange(pintDays As Integer) As String
' function that accepts a number and returns a value like
' 0-30, 31-60, 61-90, 90+
' use this in a query like:
' DaysRange: GetRange(DateDiff("d",[DateField],Date()))
'
Select Case pintDays
Case 0 To 30
GetRange = "From 0 to 30"
Case 31 To 60
GetRange = "From 31 to 60"
Case 61 To 90
GetRange = "From 61 to 90"
Case Else
GetRange = "Greater Than 90"
End Select
End Function
Save the module as "modDateFunctions".
You can then use the function in the crosstab as a column heading. If you
date ranges change, you will need to modify the function. If you want a more
flexible solution, you can set up a table with Min and Max days and the
range title.
[quoted text clipped - 12 lines]