5. Создать макрос Макрос2.

5.1. Добавить в макрос Макрос!, после второй команды еще две команды:

• для выдачи информационного сообщения ПА УЗА после появлениятаблицы с результатом запроса;

• для закрытия окна с результатом выполнения запроса.

5.2. Сохранить макрос под новым именем Макрос2.

6. Выполнить "Макрос2^у>. Убедиться в правильности выполнения.

7. Преобразовать макрос в модуль vba.

1. Перейти на вкладку Макросы и выделить Макрос2.

2. Осуществить преобразование макроса Макрос2 в модуль VBA (меню"Сервис"- "Макрос"- "Преобразовать макросы"), отметив все предлагаемыефлажки.

3. Открыть преобразованный макрос в режиме Конструктора ипроанализировать его структуру.

4. Запустить созданный модуль из режима Конструктора (клавиша F5).

8. Создать две командные кнопки в заголовке формы Студенты с подписями"Родители" и "Оценки", нажатие на которые вызовет открытие соответствующих форм(рис. 14.2).

8.1. Создать макросы Родители и Оценки, обеспечивающие открытие соответствующих форм.

8.1.1. На вкладке Макросы перейти в режим создания макросов.

Рис. 14.2 ft

8.1.2. Перетащить из вкладки Формы окна базы данных форму Родители в область Макрокоманда и проверить заполнение аргументов макрокоманды.

3. Сохранить макрос под именем Родители.

4. Проверить работоспособность макроса.

5. Повторить п.8.1.1-8.1.4 для формы Оценки.

8.2. Создать командные кнопки с надписями "Родители" и "Оценки", к которым присоединить соответствующие макросы.

\

1. Открыть форму Студенты в режиме конструктора иактивизировать в ней область заголовка.

2. Перетащить с вкладки Макросы окна базы данных макросыРодители и Оценки в область заголовка формы Студенты.

3. Отформатировать кнопки, пользуясь меню "Формат"-"Размер"-"По размеру данных".

4. Проверить работоспособность кнопок.

9. Сохранить базу данных на диске для дальнейшего использования.

Задание 15. Макросы с условиями

Цель: Использование групп макросов и макросов с условиями для автоматизации работы базы данных.

1. Для базы данных База№13, создать макрос МакАдр!, который выполняет следующие действия:

• выдает информационное сообщение о начале работы;

• открывает форму Адреса;

• вьщает об этом информационное сообщение и приостанавливает работу до нажатияКнопки;

• открывает отчет Девушки;

• выдает информационное сообщение об окончании работы. \^

1.1. Дать этому макросу имя МакАдр_1 и сохранить его.

• Выполнить макрос МакАдр_1 несколько раз и попытаться проследить последовательность действий. Обратить внимание на то, что форма Адреса и отчет Девушки остаются открытыми после работы макроса.

2. Создать макрос МакАдр_2, выполняющий следующие действия:

• выдачу сообщения о начале работы;

• открытие формы Адреса;

• подачу звукового сигнала;

• выдачу информационного сообщения о предстоящем закрытии формы Адреса;

• закрытие формы Адреса;

• открытие отчета Девушки;

• выдачу предупреждающего сообщения о предстоящем закрытии отчета;

• закрытие отчета Девушки.

1. Дать этому макросу имя МакАдр_2 и сохранить его.

2. Выполнить макрос МакАдр_2 в пошаговом и в автоматическомрежимах.

3. Создать макрос МакУсл! с командой безусловного перехода.

3.1. Для макроса МакАдр_1, пользуясь кнопками Панели инструментов Макрос, открыть столбец Имя Макроса (рис. 15.1) и для каждой строки (команды) задать имена ааа, bbb, ccc, ddd, eee и т.д.

Рис. 15.1

2. Вставить после первой команды Сообщение команду Запуск макроса спараметром еее, которая обеспечивает безусловный переход к команде ееепосле выполнения первой команды. Выполнить макрос и убедиться вправильности его работы.

3. Дать этому макросу имя МакУсл_1 и сохранить его.

4. Добавить в окне работы с макросами столбец Условие с помощью кнопок Панелиинструментов Макросы.

5. Создать макрос МакУсл_2 (рис. 15.1) с командой условного перехода, выполняющийследующие действия:

• выдачу стартового сообщения;

• открытие формы Адреса;

• переход к элементу управления - полю ПочтКад, представленному в формеАдреса;

• закрытие формы Адреса;

• подачу звукового сигнала;

• выдачу сообщения о завершении работы.

6.1. В качестве условдм для выполнения закрытия формы Адреса определить значение функции М8еВох("Закрыть ?"";!)=!. (Значение 1 функция MsgBox() принимает при нажатии кнопки, Представленной в диалоговом окне, отображаемом этой функцией).

6.2. Каждой группе команд дать имена ааа, bbb, ссс (рис. 15.1). Сохранить созданный макрос, не выполняя его.

6.3.Вызвать форму Адреса и добавить в область примечания формы кнопку с надписью "Продолжение макроса", как показано на рис. 15.2.

1. Для созданной кнопки в контекстном меню выбрать пунктСвойства и вкладку События. В разделе Нажатие кнопки указатьнеобходимость выполнения команды bbb макроса МакУсл_2.

2. Закрыть все вкладки и сохранить созданную форму.

Рис. 15.2

4. Выполнить макрос МакУсл_2 в пошаговом режиме. Убедиться, чтологика работы макроса верна и все его команды выполняются в нужнойпоследовательности. Если макрос выполняется неправильно,проанализировать все сообщения, получаемые на каждом шаге, выявитьпричину и внести в макрос необходимые изменения.

5. Дополнить созданный макрос еще одной командой (с именем ссс),

. . которая обеспечит открытие отчета Девушки и вьщачу итогового сообщения об окончании работы.

7. Сохранить базу данных на диске для дальнейшего_использования

Задание 16. Гиперссылки и объекты OLE

Цель: Изучение методов работы с гиперссылками и объектами, созданными внешними приложениями.

1. Открыть базу данных База№13 и убедиться в наличии таблицы Студенты,содержащей в себе не менее шести записей.

2. Создать в таблице Студенты новое поле ДопИнформ, имеющее тип Гиперссылка.

3. Заполнить попе ДопИнформ следующими данными:

1. Для первого студента в режиме таблицы ввести в поле ДопИнформссылку на университет - http://www.sut.ru/.

2. Для второго студента создать гиперссылку на факультет ЭиУ.

3.2.1. В диалоговом окне Изменение гиперссылки (меню "Вставка"-"Гиперссылка") в поле Текст ввести "Факультет", а в качестве имени web-страницы ввести адрес - http://www.fem-sut.spb.ru/.

3.3. Для третьего студента разместить ссылку на отчетОтчетСтудентыРодители.

3.3.1. В диалоговом окне Изменение гиперссылки выбрать вкладку Связать с объектом базы данных и указать отчет ОтчетСтудентыРодители. В качестве имени гиперссылки ввести "Студенты и Родители", а в качестве всплывающей подсказки -"Ссылка на отчет".

3.4. Создать для следующих трех студентов файлы с визитными карточкамии установить на них гиперссылки.

3.4.1. В текстовом редакторе MS Word создать три документа с именами Визитка1, Визитка2 и ВизиткаЗ по приведенному на рис. 16.1 образцу.

3.4.2.Для каждой из трех записей в диалоговом окне Изменение гиперссылки в поле Текст ввести "Визитка ", а ссылку на файл создать, воспользовавшись окном Связать с файлом (кнопка Файл).

4. Убедиться в работоспособности всех шести созданных гиперссылок (рис. 16.2),поочередно обратившись к сайтам, к отчету и к документам Word.

5. Создать в таблице Студенты новое поле Визитка, имеющее тип поле объекта OLE.

Рис. 16.1

Рис. 16.2

6. Заполнить поле Визитка файлами Визитка!, Визитка2 и ВизиткаЗ для четвертой, пятой и шестой записей соответственно.

1. Открыть окно Вставка объекта, воспользовавшись меню "Вставка"-"Объект", выбрать создание объекта из файла и указать путь к файлуBusuniKal.doc (кнопка Обзор).

2. Повторить аналогичные действия для файлов Визитка2 и Визитка 3.

3. Последовательно открыть внедренные объекты двойным щелчком нанадписи Документ Microsoft Word (рис. 16.3) и убедиться в ихработоспособности.

Рис. 16.3

7. Изменить форму Студенты добавив в нее поле ДопИнформ и поле Визитка всоответствии с рис. 16.4.

8. Просмотреть содержимое созданных полей через форму.

9. Открыть файл Визитка! через гиперссылку и изменить для соответствующегостудента дату рождения. Пронаблюдать, отобразились ли изменения в поле Визитка.

7. Рис. 16.4

   Сделать вывод о возможностях и сферах применения полей гиперссылок и полейобъектов OLE.