БД адресного хранения на складе. Значение из запроса в поле формы

@Voland512 · Регистрация: 16.10.2015

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

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

SQL
1
2
3
SELECT [Остатки].[Код места], SUM([Остатки].[Масса]) AS Масса
FROM Остатки
GROUP BY [Остатки].[Код места];

В форме, соответственно, у каждого места есть значение "Масса" со следующей формулой:

Code
1
=DLookUp("[МассаМест].[Масса]";"[МассаМест]";"[МассаМест].[Код места]=form![Код места]")

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

Вот и возникло подозрение, что мое решение задачи через функцию DLookUp - не самое рациональное. Подскажите, возможно ли решить эту задачу иным путем?

@Kiriver · 30.01.2020, 19:21

Voland512, может стоит сделать форму на основе запроса дабы уйти от Dlookup`а?

@ltv_1953 · 30.01.2020, 19:50

Быстрее будет работать пользовательская функция в созданном модуле, к которой лучше обращаться в запросе - источнике записей формы.

Visual Basic
1
2
3
4
5
6
7
Public Function МассаМест(ByVal КодМеста As Variant) As Variant
    If IsNull(КодМеста ) Then
        МассаМест = Null
    Else
        МассаМест= CurrentDb.OpenRecordset("SELECT SUM(Масса) FROM Остатки WHERE [Код места]=" & КодМеста).Fields(0)
    End If
End Function

Аналогичная функция в запросе из более 100000 записей у меня не тормозит.
Если форма только для чтения - то можно сделать и запрос с группировкой с вычислением веса в нем. Как и предлагает Kiriver.

@Voland512 · 31.01.2020, 07:08 **[ТС]**

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

Voland512, может стоит сделать форму на основе запроса дабы уйти от Dlookup`а?

Решение работает отлично, данные не запаздывают. Однако в некоторые поля формы все-таки необходимо вносить изменения, при попытке это сделать всплывает сообщение "Объект Recordset не является обновляемым".

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

Быстрее будет работать пользовательская функция в созданном модуле, к которой лучше обращаться в запросе - источнике записей формы.

Вставил данную конструкцию в событие загрузки формы:

Visual Basic
1
2
3
4
5
6
7
Private Sub Form_Load()
   If IsNull(Me.[Код места]) Then
        МассаМест = Null
    Else
        МассаМест = CurrentDb.OpenRecordset("SELECT SUM(Масса) FROM Остатки WHERE [Код места]=" & Me.[Код места]).Fields(0)
    End If
End Sub

Результат тот же, данные запаздывают. Как можно обратиться к функции из запроса?

@ltv_1953 · 31.01.2020, 07:30

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

Как можно обратиться к функции из запроса?

Написано же - функция в созданном модуле. Создаете модуль, вставляете эту функцию, компилируете, сохраняете. В запросе создаете поле Масса с обращением к ней.

SQL
1
МассаМест([Код места]) AS Масса

Не по теме:

Сто раз писали, имена без пробелов должны быть. Сомнительное удовольствие ставить в SQL квадратные скобки, а в VBA смотреть, как преобразовались такие имена ... .

@Voland512 · 31.01.2020, 10:07 **[ТС]**

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

Написано же - функция в созданном модуле. Создаете модуль, вставляете эту функцию, компилируете, сохраняете. В запросе создаете поле Масса с обращением к ней.

Спасибо, сразу не сообразил. Работает быстро, без запаздываний. Хоть и не люблю проводить подобные вычисления с помощью VBA - другого решения, видимо, нет.

Поскольку форма все-таки должна быть редактируемой, пришлось создать ее на основе правил.
Обойти эти правила, кроме как Вашей функцией, мне так и не удалось.

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

Не по теме:

Сто раз писали, имена без пробелов должны быть. Сомнительное удовольствие ставить в SQL квадратные скобки, а в VBA смотреть, как преобразовались такие имена ... .

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

@ltv_1953 · 31.01.2020, 10:19

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

Хоть и не люблю проводить подобные вычисления с помощью VBA - другого решения, видимо, нет

Угу. И понятия люблю/не люблю в этом ремесле не применимы. Все определяется эффективностью решения. Например, для выборки из таблицы по индексу, ничего быстрее SEEK в табличном наборе данных нет.

@alvk · 31.01.2020, 15:21

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

на более каноничные.

Это что ещё за зверь? С префиксами что-ли?

@dix001 · 12.05.2022, 13:51

Voland512, Добрый день. Хотел бы посмотреть на вашу базу по адресному хранению. За ранее спасибо.

shanemac51 · 12.05.2022, 14:23

dix001,
уточните свой статус
-студент
-производственник

от этого зависит макет создания базы и механизм поиска

@dix001 · 12.05.2022, 14:40

shanemac51, Добрый день. -производственник

shanemac51 · 12.05.2022, 15:15

dix001,
может у вас есть прототип в виде ексель-таблицы

конечно нужны справочники
- материалов/деталей, возможно с габаритами
- единиц измерения, типов операций
- стеллажей
- размер ячеек в стеллаже, например высота места и допустимый вес

также возможно понадобятся
- справочник клиентов(от кого получено, кому отгружено)
- сотрудники - кто отпускал или получал

и конечно оперативная таблица1 -реестр движения
- код1 (счетчик)
- дата операции
- тип операции
- код сотрудника
- код клиента
- данные по автотранспорту(например)

оперативная таблица2 - накладные
- код2
- код1
- код материала
- код единицы измерения
- количество мест
- количество единиц(они не всегда совпадают)
- стеллаж-ячейка, хотя возможно нужна и таблица связи, если поступивший товар займет несколько мест да и на разных стеллажах, или покупатель заберет не все 300 упаковок *9 бутылей пива, а некое дробное количество, причем с разных стеллажей или детали мелкие и на 1 место влезет несколько разных деталей, возможно и с по-штучным отпуском(значит надо знать остатки в начатой коробке)

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

это пока все, что пришло в голову

@SDKU · 12.05.2022, 17:19

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

мое решение задачи через функцию DLookUp - не самое рациональное

стесняюсь спросить: а в чем разница? В чем выражается "не рациональность"?
Dlookup("ctl","tbl","условие") и "SELECT ctl FROM tbl WHERE условие"
Не правильнее будет озаботиться логикой работы БД и\или таблицами?

@ltv_1953 · 12.05.2022, 17:26

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

стесняюсь спросить: а в чем разница?

В быстродействии на реальных объемах данных.
DLookup начинает существенно тормозить при количестве записей большим 100. И самый быстрый вариант (как написано ранее) - Seek на табличном наборе.

@SDKU · 12.05.2022, 17:36

ltv_1953, А Вы проведите тест по быстродействию обоих вариантов при количестве записей порядка 200-500 и уже после этого делайте категоричные утверждения

@Eugene-LS · 12.05.2022, 17:43

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

при количестве записей большим 100

Ну это сильно преувеличено! (про торможение DlookUp() на сотнях ...)
Мои скромные наблюдения с вашими сильно не совпадают, мягко говоря ...

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

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

при количестве записей порядка 200-500

Если поиск по индексированному полю - и это далеко не предел ....

@Capi · 12.05.2022, 18:23

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

стесняюсь спросить: а в чем разница? В чем выражается "не рациональность"?

В теме же всё было сказано.

Сначала (про вариант ТС с DLookup):

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

при прокрутке списка мест в форме значения масс "запаздывают",
данные прогружаются примерно через полсекунды после прокрутки

Потом (про вариант с предложенной ltv_1953 функцией):

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

работает быстро, без запаздываний.

@SDKU · 12.05.2022, 21:47

Прошу прощения-изначально прочел не внимательно и не "вкурил" что ТСу нужен набор записей,а не значение поля в какой-то одной записи.Короче для значения поля в одной записи Dlookup вполне годится,а для набора-конечно Seek

Новые блоги и статьи Все статьи Все блоги /
Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@Kiriver 431 / 239 / 86 Регистрация: 09.04.2018 Сообщений: 1,023
	30.01.2020, 19:21
	Voland512, может стоит сделать форму на основе запроса дабы уйти от Dlookup`а? 1

@dix001 0 / 0 / 0 Регистрация: 07.11.2021 Сообщений: 11
	12.05.2022, 13:51
	Voland512, Добрый день. Хотел бы посмотреть на вашу базу по адресному хранению. За ранее спасибо. 0

shanemac51 Модератор 12231 / 5078 / 814 Регистрация: 07.08.2010 Сообщений: 14,934 Записей в блоге: 4
	12.05.2022, 14:23
	dix001, уточните свой статус -студент -производственник от этого зависит макет создания базы и механизм поиска 0

@dix001 0 / 0 / 0 Регистрация: 07.11.2021 Сообщений: 11
	12.05.2022, 14:40
	shanemac51, Добрый день. -производственник 0

shanemac51 Модератор 12231 / 5078 / 814 Регистрация: 07.08.2010 Сообщений: 14,934 Записей в блоге: 4
	12.05.2022, 15:15
	dix001, может у вас есть прототип в виде ексель-таблицы конечно нужны справочники - материалов/деталей, возможно с габаритами - единиц измерения, типов операций - стеллажей - размер ячеек в стеллаже, например высота места и допустимый вес также возможно понадобятся - справочник клиентов(от кого получено, кому отгружено) - сотрудники - кто отпускал или получал и конечно оперативная таблица1 -реестр движения - код1 (счетчик) - дата операции - тип операции - код сотрудника - код клиента - данные по автотранспорту(например) оперативная таблица2 - накладные - код2 - код1 - код материала - код единицы измерения - количество мест - количество единиц(они не всегда совпадают) - стеллаж-ячейка, хотя возможно нужна и таблица связи, если поступивший товар займет несколько мест да и на разных стеллажах, или покупатель заберет не все 300 упаковок 9 бутылей пива, а некое дробное количество, причем с разных стеллажей или детали мелкие и на 1 место влезет несколько разных деталей, возможно и с по-штучным отпуском(значит надо знать остатки в начатой коробке) а отслеживать придется не только, что и где* лежит, но и - свободные места - может придется что-то переместить, чтобы вместить линолеум 5м длины, а мест подходящей длины нет в наличии - иногда требуется заранее собрать заказ в доступном месте, т.к. покупатель попросил ускорить отгрузку это пока все, что пришло в голову 0

@SDKU 598 / 404 / 51 Регистрация: 06.03.2022 Сообщений: 2,129
	12.05.2022, 17:36
	ltv_1953, А Вы проведите тест по быстродействию обоих вариантов при количестве записей порядка 200-500 и уже после этого делайте категоричные утверждения 1

@SDKU 598 / 404 / 51 Регистрация: 06.03.2022 Сообщений: 2,129
	12.05.2022, 21:47
	Прошу прощения-изначально прочел не внимательно и не "вкурил" что ТСу нужен набор записей,а не значение поля в какой-то одной записи.Короче для значения поля в одной записи Dlookup вполне годится,а для набора-конечно Seek 0