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

Я конечно дико извиняюсь, может просто уже к концу дня ничего не соображаю? Мне нужно обратиться к объекту формы, но в коллекции элементов Fields у него нет. Но мне надо написать что-то типа:
Me.имя файла(стринг). Ругается постоянно на неправильный метод. :((

Me.Fields(strControlName)
не сыпь мне соль на рану...
так я сразу написала, а он..., а я.... Ну не нравиться ему метод, выделяет Fields и усё...

Ну, дык, у меня где ж? В обработчике открытия формы. Я сразу написала.

Смотрела я на то, что красненьким написано!!!! Но постеснялась сразу сказать... ;) В этом случае ругается, что нет такого итема в коллекции...

Me.Controls(cName)
Уже не ругается, но считает кол-во полей, а не их значения.

Да-а-а, весело с вами, ребята. Если бы не ваше доброжелательное и легкое отношение, я бы еще вчера повесилась из-за этой фиговинки :)) А так еще поживу может...

Говорите, что это новомодная химическая завивка ;)

В поддержку разговоров по теме:
Теперь надо это вычисляемое название поля вставить в функцию, а функцию в запрос. Функция и запрос готовы. А вот на синтаксис для поля фантазии не хватает. Одним словом "Object required"

Как вставить функцию в запрос - с эти не проблема. Проблема с вычисляемым именем поля этого же запроса, которое используется в этой функции. А "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

Опять должна извениться за задержку с ответом. Причина та же: разбрасываюсь на разные задачи. Сегодня сделала наконец по Вашей подсказке. Работает. СПАСИБО!