Вывод справки в Access

12.11.2011, 16:06. **Показов** 2089. **Ответов** 3

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

Есть база данных нужно сделать Вывод справки вида:

Предприятие Продукция Макс. кв. выпуск Номера кварталов с макс.выпуском

@Ameli · 12.11.2011, 17:12

Структура не правильная. Должны быть отдельные таблицы Предприятия, Продукция и Выпуск продукции предприями (КодПредприятия, КодПродукции, Номер квартала, Выпущ кол-о).
Затем в запросе легко рассчитать максимальное кол-о выпущенной продукции, сгруппировав данные по предприятию и по продукции, а в поле Кол-о подсчитывать Max.
Для того чтобы вывести названия полей, а также номер квартала в приложении создан еще один запрос (Итоговый).

12.11.2011, 17:37

че-то я не понимаю почему структура неправильная?

вот мое тз.

Структура записей таблиц:
Предприятие Продукция Выпуск1кв Выпуск2кв Выпуск3кв Выпуск4кв Цена
.

Предприятие Адрес Дата основания

В первой таблице содержатся данные о выпуске продукции в каждом из четырех кварта-лов года. Одно предприятие может выпускать различную продукцию, одна и та же продукция может выпускаться разными предприятиями.
Состав меню:
1. Просмотр и корректировка данных первой таблицы.
2. Просмотр и корректировка данных второй таблицы.
3. Вывод справки:

Предприятие Продукция Макс. кв. выпуск Номера кварталов с макс.выпуском

Использовать средства VBA.
4. Вывод справки:

Предприятие Продукция Динамика выпуска Годовой выпуск

В графе «Динамика выпуска» должен быть помещен один из вариантов текста: «Рост», «Падение», «Колебание», «Отсутствует».
5. Вывод справки с итоговыми данными по видам продукции. В каждой строке справки
должна присутствовать следующая информация: продукция, стоимость годового выпус-
ка, количество выпускающих ее предприятий.
6. Вывод итоговых данных по предприятиям, основанным в произвольно заданный период
времени. Даты начала и окончания этого периода вводятся с клавиатуры. По каждому из
таких предприятий вывести: предприятие, дата основания, адрес, суммарная стоимость
выпуска (всех видов продукции).
7. Вывод формы:

Предприятие

Продукция

Годовой выпуск Цены
При щелчке по кнопке «Цены» должна выводиться информация о максимальной и мини-мальной цене данной продукции среди всех выпускающих ее предприятий.
8. Увеличение с помощью запроса цены произвольно заданной продукции на 10%.
9. Вывод отчета:

ПРОИЗВОДСТВЕННАЯ ДЕЯТЕЛЬНОСТЬ ПРЕДПРИЯТИЙ
Предприятие Адрес Продукция Годовой выпуск Цена Стоимость
. . . . . . . . . . . . . . . . . .
Итого по предприятию . . .
. . . . . . . . . . . .
Итого по предприятию . . .
Итого по всем предприятиям . . .
10. Закрытие базы данных, выход из ACCESS.

@Ameli · 13.11.2011, 09:53

С тз и надо было начинать.
Если исходить из задания, то надо определить максимальное значение из 4 в VBA.
Просто проверяем каждое, больше ли оно трех остальных, максимальное значение записываем в поле на форме. Этот код можно повесить на Текущую запись формы (См. приложение)

Visual Basic

If Me![Выпуск 1 кв] > Me![Выпуск 2 кв] And Me![Выпуск 1 кв] > Me![Выпуск 3 кв] And Me![Выпуск 1 кв] > Me![Выпуск 4 кв] Then
Max = Me![Выпуск 1 кв]
ElseIf Me![Выпуск 2 кв] > Me![Выпуск 1 кв] And Me![Выпуск 2 кв] > Me![Выпуск 3 кв] And Me![Выпуск 2 кв] > Me![Выпуск 4 кв] Then
Max = Me![Выпуск 2 кв]
ElseIf Me![Выпуск 3 кв] > Me![Выпуск 1 кв] And Me![Выпуск 3 кв] > Me![Выпуск 2 кв] And Me![Выпуск 3 кв] > Me![Выпуск 4 кв] Then
Max = Me![Выпуск 3 кв]
ElseIf Me![Выпуск 4 кв] > Me![Выпуск 1 кв] And Me![Выпуск 4 кв] > Me![Выпуск 2 кв] And Me![Выпуск 4 кв] > Me![Выпуск 3 кв] Then
Max = Me![Выпуск 4 кв]
End If
Me!Максимум = Max

biach007
	12.11.2011, 17:37	3
	че-то я не понимаю почему структура неправильная? вот мое тз. Структура записей таблиц: Предприятие Продукция Выпуск1кв Выпуск2кв Выпуск3кв Выпуск4кв Цена . Предприятие Адрес Дата основания В первой таблице содержатся данные о выпуске продукции в каждом из четырех кварта-лов года. Одно предприятие может выпускать различную продукцию, одна и та же продукция может выпускаться разными предприятиями. Состав меню: 1. Просмотр и корректировка данных первой таблицы. 2. Просмотр и корректировка данных второй таблицы. 3. Вывод справки: Предприятие Продукция Макс. кв. выпуск Номера кварталов с макс.выпуском Использовать средства VBA. 4. Вывод справки: Предприятие Продукция Динамика выпуска Годовой выпуск В графе «Динамика выпуска» должен быть помещен один из вариантов текста: «Рост», «Падение», «Колебание», «Отсутствует». 5. Вывод справки с итоговыми данными по видам продукции. В каждой строке справки должна присутствовать следующая информация: продукция, стоимость годового выпус- ка, количество выпускающих ее предприятий. 6. Вывод итоговых данных по предприятиям, основанным в произвольно заданный период времени. Даты начала и окончания этого периода вводятся с клавиатуры. По каждому из таких предприятий вывести: предприятие, дата основания, адрес, суммарная стоимость выпуска (всех видов продукции). 7. Вывод формы: Предприятие Продукция Годовой выпуск Цены При щелчке по кнопке «Цены» должна выводиться информация о максимальной и мини-мальной цене данной продукции среди всех выпускающих ее предприятий. 8. Увеличение с помощью запроса цены произвольно заданной продукции на 10%. 9. Вывод отчета: ПРОИЗВОДСТВЕННАЯ ДЕЯТЕЛЬНОСТЬ ПРЕДПРИЯТИЙ Предприятие Адрес Продукция Годовой выпуск Цена Стоимость . . . . . . . . . . . . . . . . . . Итого по предприятию . . . . . . . . . . . . . . . Итого по предприятию . . . Итого по всем предприятиям . . . 10. Закрытие базы данных, выход из ACCESS.

	13.11.2011, 09:53