Представление функции из построителя выражений в коде VBA

@Z51 · Регистрация: 29.08.2016

Студворк — интернет-сервис помощи студентам

День добрый!
Извините за сложное название темы))) Фантазии хватило только на это)

А вопрос в следующем:
--есть ф-ция из построителя выражений =Sum([Count]).
--Как её описать на VBA?
--На форме есть какое-то кол-во полей с данными из таблицы с столбцом Count.
--И есть вычисляемое поле с этой функцией, вычисляющей сумму полей.

@Вячеслав Я · 11.08.2017, 20:56

Z51, а пример показать можно? Условностей много, а в чем ее описать и где показать?

@Z51 · 12.08.2017, 18:46 **[ТС]**

Спасибо, модератор! Поправил вопрос)
На форме есть энное кол-во полей. Данные из этих полей берутся из таблицы со столбцом Count. Использую ф-цию =Sum([Count]), чтобы посчитать сумму этих полей. Итог исполнения этой ф-ции - в свободном поле Total на той же форме. Но требуется описать эту ф-цию на VBA. Как это сделать?

mobile · 12.08.2017, 19:11

Если правильно понял, то задачу, то найти сумму можно например функцией Dsum или выполнив запрос

Visual Basic
1
2
3
f=Dsum("[Count]", "Таблица")
или 
f=Currendb.openrecorset("select sum([Count]) from Таблица").fields(0)

Если на форме есть фильтры разного рода, то их надо подставлять в 3-й параметр Dsum или в sql-выражение в предложение Where

@Z51 · 12.08.2017, 21:45 **[ТС]**

Спасибо! А как высчитать сумму ПОЛЕЙ ФОРМЫ без обращения к таблице?

mobile · 12.08.2017, 21:54

Без обращения к таблице в принципе тоже можно - делаем цикл по рекордсету формы

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'Сумма поля [Count] по всем записям формы в переменной s
dim s
with Me.recordsetcone
  'Проверка на "пустоту" формы. Если пустая ничего делать не надо
  if .eof and .bof then
    s=0
    exit sub
  end if
 
  .movefirst
  do until .eof       'цикл по записям формы с суммированием в переменной s
    s=s+nz(Me.[Count],0)
    .movenext
  loop
end with

@Z51 · 12.08.2017, 23:22 **[ТС]**

Что-то не заладилось) Считает кол-во полей (к примеру, 4), потом берёт данные из первого поля (1000) и вычисляет сумму (1000*4). Значения других полей не замечает)

Добавлено через 57 минут
Уточнение: происходит по событию "После обновления". Причём сумму берёт того поля, в котором наступило событие "После обновления". Например, 4 поля и, соответственно, суммы: 1000, 2000, 3000, 4000. Если события наступило в первом поле, то выдаст сумму 4000, если в четвёртом, то - 16000.

mobile · 13.08.2017, 10:01

Сообщение от Z51

Что-то не заладилось) Считает кол-во полей (к примеру, 4), потом берёт данные из первого поля (1000) и вычисляет сумму (1000*4). Значения других полей не замечает)

Ничего такого в моем коде нет. Предложенный код суммирует значения поля [Count] по всем записям формы. И все. Т.е. так как у Вас записано в первом посте:

Сообщение от Z51

На форме есть энное кол-во полей. Данные из этих полей берутся из таблицы со столбцом Count. Использую ф-цию =Sum([Count]), чтобы посчитать сумму этих полей. Итог исполнения этой ф-ции - в свободном поле Total на той же форме. Но требуется описать эту ф-цию на VBA.

Если ситуация иная, то описывайте какая есть на самом деле. И лучше, чтобы не было непоняток, выложить БД с подробным объяснением какую форму и какие поля в ней смотреть. И что должно получиться. Куда записывать вычисляемый в коде результат. И с чем его сравнивать, чтобы убедиться в правильности.

@texnik-san · 13.08.2017, 12:30

Сообщение от Z51

--На форме есть какое-то кол-во полей с данными из таблицы с столбцом Count.

Z51, ускользает мысль. Вы имеете в виду, что на одной форме несолько разных полей отображают данные одного и того же столбца таблицы? А зачем?

Добавлено через 1 минуту

Сообщение от Z51

А как высчитать сумму ПОЛЕЙ ФОРМЫ без обращения к таблице?

Visual Basic
1
Itog = Me.Поле1 + Me.Поле2 + Me.Поле3 + Me.Поле4 + Me.Поле5

Но это будет сумма значений полей в одной, текущей (отображаемой на экране) записи. Это именно то, что вам нужно?

@Z51 · 13.08.2017, 17:02 **[ТС]**

Сообщение от texnik-san

на одной форме несолько разных полей отображают данные одного и того же столбца таблицы? А зачем?

Да. Именно так. Зачем? Выложил пример, объясняющий, зачем мне это нужно.

Сообщение от texnik-san

g = Me.Поле1 + Me.Поле2 + Me.Поле3 + Me.Поле4 + Me.Поле5

В примере нажмите кнопку-поиск справа от номера заказа (например, Д-1). Откроется форма с относящимися именно к этому заказу изделиями. Поле txtCount - выделено красным цветом. Далее - вроде и так понятно, что не совсем ясно как заставить его работать)

@Z51 · 13.08.2017, 17:03 **[ТС]**

Сообщение от mobile

Если ситуация иная, то описывайте какая есть на самом деле. И лучше, чтобы не было непоняток, выложить БД с подробным объяснением какую форму и какие поля в ней смотреть. И что должно получиться. Куда записывать вычисляемый в коде результат. И с чем его сравнивать, чтобы убедиться в правильности

Спасибо за ответ. Выложил пример.

@texnik-san · 13.08.2017, 17:45

Сообщение от Z51

Да. Именно так. Зачем? Выложил пример, объясняющий, зачем мне это нужно.

То, что вы выложили - называется "ленточная форма". Она отображает много записей таблицы, но поле, отображающее поле Count таблицы - одно. Не "несколько полей", а одно поле на ленточной форме.

@texnik-san · 13.08.2017, 17:53

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

На большинстве других событий можно просто обращаться к полю суммы.

mobile · 13.08.2017, 18:01

Видимо надо сымитировать работу сумового поля txtTotal, но в коде ВБА?

Смотрите код на событии формы После обновления (AfterUpadte) и поле SummaCount в заголовке формы. В коде этому полю присваивается значение рассчитанной суммы. Значения в поле SummaCount ровно те же, что и в txtTotal.

@Z51 · 13.08.2017, 19:20 **[ТС]**

Сообщение от texnik-san

То, что вы выложили - называется "ленточная форма". Она отображает много записей таблицы, но поле, отображающее поле Count таблицы - одно. Не "несколько полей", а одно поле на ленточной форме

Спасибо)

Добавлено через 14 минут

Сообщение от mobile

Видимо надо сымитировать работу сумового поля txtTotal, но в коде ВБА?

Да. Большое спасибо за ответ.

Новые блоги и статьи Все статьи Все блоги /
Angular vs Svelte - что лучше? Reangularity 09.07.2025 Сегодня рынок разделился на несколько четких категорий: тяжеловесы корпоративного уровня (Angular), гибкие универсалы (React), прогрессивные решения (Vue) и новая волна компилируемых фреймворков. . .	Code First и Database First в Entity Framework UnmanagedCoder 09.07.2025 Entity Framework дает нам свободу выбора, предлагая как Code First, так и Database First подходы. Но эта свобода порождает вечный вопрос — какой подход выбрать? Entity Framework — это. . .	Как использовать Bluetooth-модуль HC-05 с Arduino Wired 08.07.2025 Bluetooth - это технология, созданная чтобы заменить кабельные соединения. Обычно ее используют для связи небольших устройств: мобильных телефонов, ноутбуков, наушников и т. д. Работает она на частоте. . .	Руководство по структурам данных Python AI_Generated 08.07.2025 Я отчетливо помню свои первые серьезные проекты на Python - я писал код, он работал, заказчики были относительно довольны. Но однажды мой наставник, взглянув на мою реализацию поиска по огромному. . .	Тестирование энергоэффективности и скорости вычислений видеокарт в BOINC проектах Programma_Boinc 08.07.2025 Тестирование энергоэффективности и скорости вычислений видеокарт в BOINC проектах Опубликовано: 07. 07. 2025 Рубрика: Uncategorized Автор: AlexA Статья размещается на сайте с разрешения. . .
Раскрываем внутренние механики Android с помощью контекста и манифеста mobDevWorks 07.07.2025 Каждый Android-разработчик сталкивается с Context и манифестом буквально в первый день работы. Но много ли мы задумываемся о том, что скрывается за этими обыденными элементами? Я, честно говоря,. . .	API на базе FastAPI с Python за пару минут AI_Generated 07.07.2025 FastAPI - это относительно молодой фреймворк для создания веб-API, который за короткое время заработал бешеную популярность в Python-сообществе. И не зря. Я помню, как впервые запустил приложение на. . .	Основы WebGL. Раскрашивание вершин с помощью VBO 8Observer8 05.07.2025 На русском https:/ / vkvideo. ru/ video-231374465_456239020 На английском https:/ / www. youtube. com/ watch?v=oskqtCrWns0 Исходники примера:	Мониторинг микросервисов с OpenTelemetry в Kubernetes Mr. Docker 04.07.2025 Проблема наблюдаемости (observability) в Kubernetes - это не просто вопрос сбора логов или метрик. Это целый комплекс вызовов, которые возникают из-за самой природы контейнеризации и оркестрации. К. . .	Проблемы с Kotlin и Wasm при создании игры GameUnited 03.07.2025 В современном мире разработки игр выбор технологии - это зачастую балансирование между удобством разработки, переносимостью и производительностью. Когда я решил создать свою первую веб-игру, мой. . .

Представление функции из построителя выражений в коде VBA

Решение

Решение

Решение

@Z51 6 / 4 / 2 Регистрация: 29.08.2016 Сообщений: 83

	Представление функции из построителя выражений в коде VBA 11.08.2017, 20:37. Показов 2500. Ответов 14 Метки нет (Все метки) День добрый! Извините за сложное название темы))) Фантазии хватило только на это) А вопрос в следующем: --есть ф-ция из построителя выражений =Sum([Count]). --Как её описать на VBA? --На форме есть какое-то кол-во полей с данными из таблицы с столбцом Count. --И есть вычисляемое поле с этой функцией, вычисляющей сумму полей. 0

@Вячеслав Я 2835 / 1377 / 215 Регистрация: 13.05.2011 Сообщений: 4,217
	11.08.2017, 20:56
	Z51, а пример показать можно? Условностей много, а в чем ее описать и где показать? 1

@Z51 6 / 4 / 2 Регистрация: 29.08.2016 Сообщений: 83
	12.08.2017, 18:46 [ТС]
	Спасибо, модератор! Поправил вопрос) На форме есть энное кол-во полей. Данные из этих полей берутся из таблицы со столбцом Count. Использую ф-цию =Sum([Count]), чтобы посчитать сумму этих полей. Итог исполнения этой ф-ции - в свободном поле Total на той же форме. Но требуется описать эту ф-цию на VBA. Как это сделать? 0

@Z51 6 / 4 / 2 Регистрация: 29.08.2016 Сообщений: 83
	12.08.2017, 21:45 [ТС]
	Спасибо! А как высчитать сумму ПОЛЕЙ ФОРМЫ без обращения к таблице? 0

@Z51 6 / 4 / 2 Регистрация: 29.08.2016 Сообщений: 83
	12.08.2017, 23:22 [ТС]
	Что-то не заладилось) Считает кол-во полей (к примеру, 4), потом берёт данные из первого поля (1000) и вычисляет сумму (10004). Значения других полей не замечает) Добавлено через 57 минут* Уточнение: происходит по событию "После обновления". Причём сумму берёт того поля, в котором наступило событие "После обновления". Например, 4 поля и, соответственно, суммы: 1000, 2000, 3000, 4000. Если события наступило в первом поле, то выдаст сумму 4000, если в четвёртом, то - 16000. 0