Как вставить функцию в запрос - с эти не проблема. Проблема с вычисляемым именем поля этого же запроса, которое используется в этой функции. А "Object required" - это то ругательство, что мне аксесс выдает

Я наверно плохо объяснила суть проблемы. Сейчас попробую подробно:
Есть запрос, в котором одно из полей есть результат суммы некоторых полей этого же запроса. Какие поля участвуют в расчете, я определяю в функции, которая записана в модуле (не в форме). Вот.

Если я просто напишу в процедуре Sum_1=Sum_1+Fld, где Fld - это строка с именем поля, то пишет "Type mismatch" на эту строку (это понятно суммировать чило со стрингом:)), а если напишу Sum_1=Sum_1+Controls(Fld).Value, то "Sub or Function not defined".

Может проще в эту функцию передать значения всех полей, которые могут понадобится, и эта функция сразу вернет результат?

Мне этот запрос потом нужно представить в табличной форме. И запрос у немя не простой, с юнитом. Боюсь, потом начнутся проблемы с выводом...

К тому же этот запрос еще используется в другой форме и репорте... Динамически я его не могу создавать, длинный очень. Поэтому он существует в Queries.
Forms!MyForm. - а если без формы?

Тем более, что если я вставляю Forms!MyForm.Controls(Fld).Value и запускаю запрос из формы, то ругается "You entered an expression that has no value"

значения берутся из самого запроса.

Мда-а, проблемка-с... Дело в том, что и количество полей будет меняться. Это ж как же ж надо все закрутить!!!!!
А так хорошо день начинался....

Будет меняться количество полей, которые надо просуммировать.
Сам запрос могу привести (в сокращенном виде)
SELECT
Budget.CostCode AS CostCode,
"1" AS pr,
Sum(Budget.Sum_planned_06_03) AS Sum_planned_06_03,
Sum(Budget.Sum_planned_07_03) AS Sum_planned_07_03,
Sum(Budget.Sum_planned_08_03) AS Sum_planned_08_03,
Sum(Budget.Sum_planned_09_03) AS Sum_planned_09_03,
Sum(Budget.Sum_planned_10_03) AS Sum_planned_10_03,
Sum(Budget.Sum_planned_11_03) AS Sum_planned_11_03,
Sum(Budget.Sum_planned_12_03) AS Sum_planned_12_03,
Sum_Planned() AS Estimated
FROM Budget
Group By CostCode
UNION SELECT
Budget.CostCode AS CostCode,
"2" AS pr,
Sum(Budget.Sum_actual_06_03) AS Sum_actual_06_03,
Sum(Budget.Sum_actual_07_03) AS Sum_actual_07_03,
Sum(Budget.Sum_actual_08_03) AS Sum_actual_08_03,
Sum(Budget.Sum_actual_09_03) AS Sum_actual_09_03,
Sum(Budget.Sum_actual_10_03) AS Sum_actual_10_03,
Sum(Budget.Sum_actual_11_03) AS Sum_actual_11_03,
Sum(Budget.Sum_actual_12_03) AS Sum_actual_12_03,
Sum_Actual() AS Estimated
FROM Budget
Group By CostCode;

Плюс к этому две функции:


Вполне возможно, что написано где-то не правильно или не красиво. Критикуйте, как считаете нужным.

Прошу прощения за задержку, пришлось переключиться на другую задачу.
По поводу возникших вопросов-замечаний.
1. В запросе обращение к функциям - это строчки перед "FROM..."
2. В самой функции я написала уже конкретное поле Sum_planned_10_03 (моя опечатка, копировала через клипборд и остался "тренировочный" вариант.
Функция должна выглядеть так (я одну приведу):

Public Function Sum_Planned() As Integer
Dim Mes, Fld As String
Mes = Month(Date)
Sum_Planned = 0
I = Mes + 1
Do While I <= 12
I = I + 1
If Month(Date) > 9 Then Fld = "Sum_planned_" & Month(Date) & "_" & Mid(Year(Date), 3, 2) _
Else Fld = "Sum_planned_0" & Month(Date) & "_" & Mid(Year(Date), 3, 2)
Sum_Planned = Sum_Planned + Fld ' вот здесь и надо праавильно написать обращение к полю
Loop
End Function