Раньше это называлось "макроподстановка"

[ЛюбительПИ]

Заканчиваю проект на MVB, требуется суммировать содержимое нескольких одинаковых таблиц. Имена полей могут быть самыми разными, то есть требуется выполнять (в циклах) команду типа:
rst1![field1]=rst1![field1]+rst2![field2]
Имена полей у меня храняться в массиве, но компилятор MVB (Microsoft Access 2003) не пропускает (не понимает) мои попытки "впихнуть" эту конструкцию в функцию Eval. Какие у Вас есть предложения?

[дмидми]

Выкладывайте код. Желательно в тэге [CODE][/CODE], он вставляется кнопкой #

[ЛюбительПИ]

В прикидочном варианте программы всё хорошо считается, когда имена полей таблиц явно указаны, привожу проблемую команду:

rst1![field1]=rst1![field1]+rst2![field2]

- считает правильно
Но в окончательном варианте программы (из-за погони за универсальностью) заранее не известны конкретные имена полей (здесь это "field1" и "field2"): имена конкретных полей храняться в массиве

Dim MassFieldsTab(99) as string

В указанной выше команде каким-то образом надо вместо имени поля "field1" сообщить компилятору имя из "MassFieldsTab(i)". В других языках раньше (да и теперь) - эта ситуация называлась "макроподстановка". В случае MVB функция Eval мне пока не поддалась...

[дмидми]

Массив имён вроде бы должен быть двумерным - для каждой таблицы свои имена, насколько я понял. Ну да дело хозяйское.

  rst1.fields(MassFieldsTab(0)) = rst1.fields(MassFieldsTab(0)) _
    + rst2.fields(MassFieldsTab(1))

Так где код? У дежурного телепата сегодня выходной, и угадать, при чём тут Eval, некому.

[ЛюбительПИ]

Привожу Ваш вариант введенный в мою реальную программу:

 
  ' ------------------------
  ' Ядро - подсуммирование:
  Set rst1 = dbs.OpenRecordset("Tab_Summ")    ' -существующая таблица
  Set rst2 = dbs.OpenRecordset("Т_Рабочая")   ' -существующая таблица
  rst1.MoveFirst
  rst2.MoveFirst
  
  For Jrab = 1 To KolZap0
      rst1.Edit           ' редактировать текущую строку
      For Lrab = 2 To KolFi0
         rst1.Fields(MassNameFields(Lrab)) = rst1.Fields(MassNameFields(Lrab)) _
                                           + rst2.Fields(MassNameFields(Lrab))
      Next ' "Lrab"
      rst1.Update         ' формирование строки таблицы
      rst1.MoveNext
      rst2.MoveNext
  Next ' "Jrab"
 
  rst2.Close          ' "Т_Рабочая"
  rst1.Close          ' "Tab_Summ"
  ' Ядро - подсуммирование!
  ' ------------------------

При выполнении на Вашей строке получаем:
Error 3265 "Элемент не обнаружен в данном семействе".
Может быть у меня не подключена какая-либо компонента/библиотека?

[дмидми]

Где описания переменных?
Чему к моменту возникновения ошибки равны Lrab, KolFi0, MassNameFields(Lrab) ? Совпадает ли последнее с именами нужных полей в обеих таблицах (в первом Вашем варианте имена были разными)?

Лучше всего - создать ма-а-аленькую БД, в которой будут эти две таблички (не полностью, только нужные поля и, скажем, три записи) и модуль, выполняющий то, что мы обсуждаем. В расширенном режиме внизу - фрейм Дополнительные опции, в нем - ссылка Управление вложениями.

Глядишь, пока такая БД создаётся, проблема решится сама

[ЛюбительПИ]

Спасибо! Ваш вариант "обхода" конкретных имен сработал (через "rst.Fields(mass(i))"). Уточняя объявления массивов (глобальных и локальных) я нашел неточность, которая не позволила сразу заработать Вашему фрагменту. Моя проблема решена! Может быть "проблема отсутствия макроподстановки" надумана и всегда можно найти подобный обходной маневр? Удачи!