Как определить Max нескольких полей

@garik8000 · Регистрация: 09.12.2009

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

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

@Елена · 11.12.2009, 08:25

мне тоже твой топик помог

19.03.2013, 20:43

Спасибо. Мне это пригодилось.

@alvk · 20.03.2013, 07:18

А правильный ответ на изначальный вопрос: нормализовать структуру в БД и вопрос отпадёт сам собой.

@Rikozenit · 20.10.2016, 10:08

Всем доброго дня!
Подскажите, если мне необходимо всё тоже самое, только для дат, то я поменял тип переменной "а" на Date.
Но так как я делаю это не форме/отчёте, а в запросе, то у меня эта функция может быть прописана только в отдельном модуле, так?
Я прописал и ничего не происходит... Видимо т.к. не прописаны имена "родителей", но я не смог найти, как это сделать! Подскажите плиз!

Visual Basic
1
2
3
4
5
6
7
8
9
10
Public Function vbMAX()
Dim a As Variant
a = Финиш_сбор
If a < Финиш_уч2 Then a = Финиш_уч2
If a < финиш_монт Then a = финиш_монт
If a < финиш_регулир Then a = финиш_регулир
If a < финиш_упак Then a = финиш_упак
'may be continue
vbMAX = a
End Function

@ltv_1953 · 20.10.2016, 10:51

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

Не по теме:

Нужно всегда в модулях ставить Option Explicit и компилировать. Все сразу станет видно ... .

@Rikozenit · 20.10.2016, 11:07

ltv_1953, а как это сделать?

@ltv_1953 · 20.10.2016, 11:25

Visual Basic
1
2
3
4
5
6
7
8
9
Public Function FMAX(ByVal A1 As Variant, ByVal A2 As Variant, ByVal A3 As Variant, ByVal A4 As Variant, ByVal A5 As Variant) As Variant
    Dim A As Variant
        A = A1
        If A < A2 Then A = A2
        If A < A3 Then A = A3
        If A < A4 Then A = A4
        If A < A5 Then A = A5
        FMAX = A
End Function

Обращение в запросе (поле в конструкторе)
Выражение1:FMAX(Финиш_сбор; Финиш_уч2; финиш_монт; финиш_регулир; финиш_упак)

@Rikozenit · 20.10.2016, 12:35

ltv_1953, потрясающе! Работает! Спасибо большое)) И я даже понял как это работает

Добавлено через 32 минуты
ltv_1953, только некоторые позиции не просчитывает (остаются пустыми)... видимо если ячейка пуста и в ней может храниться какой-то "мусор", он при сравнении вместо максимума берёт этот мусор что ли?...

@ltv_1953 · 20.10.2016, 12:40

Ну так используйте Nz, заменяя Null нулем (не "мусор" там, о отсутствие значения).
Выражение1:FMAX(Nz(Финиш_сбор;0); Nz(Финиш_уч2;0); Nz(финиш_монт;0); Nz(финиш_регулир;0); Nz(финиш_упак);0)
Будет работать, если значения неотрицательные. Если могут быть все отрицательные, то в Nz не 0, а минимальное соответствующего типа.

@Rikozenit · 20.10.2016, 13:46

ltv_1953, да что ж я постоянно забываю про NZ?! ((

Сделал всё так, как Вы сказали:

SQL
1
2
3
FMAX(Nz([Финиш_сбор];0);
 Nz([Финиш_уч2];0);Nz([финиш_монт];0);
 Nz([финиш_регулир];0);Nz([финиш_упак];0))

а для поиска минимума поставил текущую дату:

SQL
1
2
3
4
FMIN(Nz([старт_сбор];
 DATE());Nz([Старт_уч2];
 DATE());Nz([старт_монт];
 DATE());Nz([старт_регулир]; DATE());Nz([старт_упак]; DATE()))

Всё супер!

Новые блоги и статьи Все статьи Все блоги /
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .

@garik8000 47 / 47 / 3 Регистрация: 09.12.2009 Сообщений: 154

	Как определить Max нескольких полей 09.12.2009, 12:21. Показов 21829. Ответов 29 Метки нет (Все метки) День добрый уважаемые! Не знаю как в Access определить максимальное значение нескольких полей. За ранее благодарен. 1

@Елена 2454 / 797 / 24 Регистрация: 18.08.2009 Сообщений: 1,697
	11.12.2009, 08:25
	мне тоже твой топик помог 0

Fovaxus
	19.03.2013, 20:43
	Спасибо. Мне это пригодилось.

@alvk 7459 / 4592 / 302 Регистрация: 12.08.2011 Сообщений: 14,380
	20.03.2013, 07:18
	А правильный ответ на изначальный вопрос: нормализовать структуру в БД и вопрос отпадёт сам собой. 0

@ltv_1953 17536 / 7288 / 1663 Регистрация: 21.06.2012 Сообщений: 13,957
	20.10.2016, 10:51
	Приведенная, как пример, функция работает в модуле формы, к полям которой в функции есть доступ. В запросе нужно передавать их в функцию как параметры ... . Не по теме: Нужно всегда в модулях ставить Option Explicit и компилировать. Все сразу станет видно ... . 0

@Rikozenit 3 / 3 / 0 Регистрация: 03.08.2015 Сообщений: 156
	20.10.2016, 11:07
	ltv_1953, а как это сделать? 0

@Rikozenit 3 / 3 / 0 Регистрация: 03.08.2015 Сообщений: 156
	20.10.2016, 12:35
	ltv_1953, потрясающе! Работает! Спасибо большое)) И я даже понял как это работает Добавлено через 32 минуты ltv_1953, только некоторые позиции не просчитывает (остаются пустыми)... видимо если ячейка пуста и в ней может храниться какой-то "мусор", он при сравнении вместо максимума берёт этот мусор что ли?... 0

@ltv_1953 17536 / 7288 / 1663 Регистрация: 21.06.2012 Сообщений: 13,957
	20.10.2016, 12:40
	Ну так используйте Nz, заменяя Null нулем (не "мусор" там, о отсутствие значения). Выражение1:FMAX(Nz(Финиш_сбор;0); Nz(Финиш_уч2;0); Nz(финиш_монт;0); Nz(финиш_регулир;0); Nz(финиш_упак);0) Будет работать, если значения неотрицательные. Если могут быть все отрицательные, то в Nz не 0, а минимальное соответствующего типа. 1