1. Автоматически создайте новую табличную форму на основании таблицы Ведомость 1. Для этого в окне База данных выберите объект Формы и щелкните по кнопке Создать. В диалоговом окне Новая форма выберите способ создания - Автоформа: табличная, а в качестве источника данных - таблицу Ведомость 1. Щелкните по кнопке Ok. После появления на экране формы закройте ее и сохраните под именем Форма для макроса.
2. Для того, чтобы форма не зависела от таблицы Ведомость 1 замените имя источника записей в окне свойств формы на Ведомость 00. Для этого откройте форму в режиме конструктора и щелкните по кнопке Свойства, расположенной инструментальной панели Конструктор форм. Отредактируйте значение свойства Источник записей на вкладке Данные.
3. В окне База данных выберите объект Макросы и щелкните по кнопке Создать. Появится окно конструктора макросов. Добавьте в окне еще один столбец - Условия. Для этого выполните команду ВИД/Условия или щелкните по кнопке инструментальной панели с соответствующим названием.
4. Щелкните внутри ячейки первой строки и столбца Макрокоманда. Появится поле со списком макрокоманд. Выберите макрокоманду: УстановитьСообщения. В нижней части окна появится аргумент этой команды: Нет. Оставьте его без изменения. Введите в графу Примечание краткий комментарий: Отключение системных и предупреждающих сообщений.
5. Перейдите на следующую строку и выберите для нее макрокоманду ОткрытьЗапрос. Определите аргументы макрокоманды в нижней части окна. Раскройте список в поле Имя запроса и выберите в нем имя Запрос на создание экзаменационной ведомости. Сохраните значение аргументов Режим - таблица и Режим данных - изменение. Введите комментарий к этой макрокоманде: на создание экзаменационной ведомости. При выполнении данной макрокоманды будет создана таблица Ведомость 1.
6. После того, как запрос на создание ведомости отработал, его можно закрыть, поэтому в третьей строке выберите макрокоманду Закрыть. Определите аргументы макрокоманды: Тип объекта - Запрос, Имя объекта - Запрос на создание экзаменационной ведомости, Сохранение- Подсказка. Введите комментарий: Закрытие запроса.
7. Перед открытием созданной ранее Формы для макроса необходимо произвести копирование таблицы Ведомость1 в другую таблицу, которая и будет использована для открытия формы - Ведомость 00. Для этого выберите макрокоманду КопироватьОбъект. Определите аргументы макрокоманды: Новое имя - Ведомость 00, Тип объекта - таблица, Имя объекта - Ведомость 1. Введите комментарий: копирование таблицы Ведомость 1 в Ведомость 00.
Примечание. При определении для макрокоманды в качестве аргументов имен объектов совершенно не обязательно, чтобы соответствующие объекты существовали в базе данных в момент конструирования макроса. Важно, чтобы они были в базе данных к моменту выполнения этой макрокоманды.
8. В следующей строке выберите макрокоманду ОткрытьФорму. Определите аргументы макрокоманды: Имя формы - Форма для макроса, Режим - Форма, Режим окна - Обычное. Введите комментарий: Открыть форму на основе таблицы Ведомость 00.
9. Следующая макрокоманда должна осуществить переход на первую строку таблицы-формы для проверки значений полей N группы и Код дисциплины, введенных при выполнении запроса в диалоговые окна. Поэтому в очередной строке выберите макрокоманду НаЗапись. Выберите из списка для аргумента Запись значение Первая. Введите комментарий: Перейти на 1-ую запись табличной формы.
10. Выберите для следующей строки макрокоманду Переименовать для переименования ведомости для группы 851 и дисциплины с кодом 1. Определите аргументы макрокоманды: Новое имя - Ведомость 851_1, Тип объекта - Таблица, Старое имя - Ведомость 1. В графу Условие введите с помощью построителя для этой строки выражение :
[Формы]![Форма для макроса]![N группы]=851 And [Формы]![Форма для макроса]![Код дисциплины]=1
Введите комментарий: Переименовать Ведомость 1 в Ведомость 851_1
11. Введите следующую макрокоманду для переименования ведомости для группы 851 и дисциплины с кодом 2. Определите аргументы макрокоманды: Новое имя - Ведомость 851_2, Тип объекта - Таблица, Старое имя - Ведомость 1. Введите Условие:
[Формы]![Форма для макроса]![N группы]=851 And [Формы]![Форма для макроса]![Код дисциплины]=2
Примечание. Для ввода условий и комментариев к макрокомандам целесообразно использовать приемы копирования в буфер, а затем вставки с последующей корректировкой в окне области ввода, открываемом при нажатии сочетания клавиш SHIFT и F2.
12. Введите следующие строки макроса по аналогии с двумя предыдущими для переименования ведомости для группы 851 и дисциплины с кодом 3, а также для других групп и дисциплин. При 3-х дисциплинах должно быть 3 макрокоманды на одну группу студентов.
13. Введите последнюю макрокоманду Закрыть с аргументами: Тип объекта - Форма, Имя объекта - Форма для макроса, Сохранение - Подсказка. Окончательный вид макроса представлен на рис. 7.1
14. Сохраните макрос, щелкнув по кнопке Сохранить инструментальной панели, под именем Макрос для создания ведомостей. Запустите макрос на выполнение в пошаговом режиме. Для этого, находясь в режиме конструктора щелкните по кнопке инструментальной панели По шагам, а затем по кнопке Запуск. Проследите по шагам правильность исполнения макрокоманд. В случае неверного выполнения или аварийного завершения найдите ошибку и исправьте макрос.
Рис. 7.1. Окончательный вид макроса для создания экзаменационных ведомостей
15. После отладки макроса отключите пошаговый режим запуска, повторно щелкнув по кнопке По шагам, закройте макрос. Произведите запуск макроса из окна базы данных. Для этого в окне База данных выберите объект Макросы, выделите Макрос для создания ведомостей и щелкните по кнопке Запуск на инструментальной панели окна. Запустите макрос для формирования экзаменационных ведомостей по разным группам и дисциплинам.
Задание 3.Создайте макрос для автоматического формирования таблицы Общая ведомость. Макрос должен использовать Запрос на добавление записей в общую ведомость, который рассматривался ранее. Данные всех экзаменационных ведомостей должны добавляться в Общую ведомость за один запуск макроса. Поскольку запрос использует одну и ту же таблицу Ведомость 1, из которой записи добавляются в Общую ведомость, необходимо поручить макросу перед добавлением записи из очередной таблицы копировать все ее записи во вспомогательную таблицу Ведомость 1. При этом пользователь будет освобожден от необходимости переименовывать таблицы, как это было рассмотрено ранее.
Для того чтобы избежать лишних остановок при выполнении макроса, поручите макросу также не выводить вспомогательные служебные сообщения и сообщения-предупреждения.
