ник: Stanislav
Заходишь в редактор VBA, создаешь там новый модуль.
В модуле объявляешь функцию:
public function GetAgeInterval (Age as Integer)
if Age < 25 then
GetAgeInterval = 1 'первый интервал
elseif Age >= 25 AND Age <35 then
GetAgeInterval = 2
'и т.д.
end if
end function
потом создаешь запрос на основе таблицы Age, в нем прописываешь такое вычисляемое поле: Interval: GetAgeInterval([Age])
см. пример.