Тема: «Создание макросов» Практическая работа №18. Тема: «Создание макросов»
Выполнение работы:
Для работы создайте с помощью Мастера форму по таблице «Сотрудники», форму по таблице «Клиенты», отчет по таблице «Клиенты»!
Создадим макрос, открывающий 2 формы одновременно и упорядочивающий окна форм на экране.
Создайте макрос.
Упорядочите окно макроса и базы данных на экране слева направо и переместите в макрокоманды форму Сотрудники и Клиенты.
Для формы Клиенты задайте Режим Просмотр.
Чтобы свернуть окно базы данных, добавьте строку перед первой и задайте команду Свернуть.
Чтобы упорядочить, она на экране выберите макрокоманду Выполнитькоманду TileVertically (упорядочить по вертикали).
Сохраните макрос под именем Открытие.
Запустите макрос, для этого выберите ! на панели инструментов или Запуск в меню.
Задайте запуск по шагам, для этого выберите Запуск –По шагам и запустите макрос ещё раз.
Объединение макросов в макрогруппу.
Добавим в наш макрос ещё один для открытия таблиц и объединим их в макрогруппы.
Добавьте в макрос столбец Имя макроса и задайте для первого макроса имя формы.
Для второго макроса задайте команды открыть таблицы «Заказы», «Заказано» и «Товары» в режиме Конструктор и упорядочите окна по горизонтали.
В столбце Имя макроса задайте таблицы
Запустите макрос открытия таблиц, для этого выберите Сервис, Макрос, Запуск макроса.
Связывание макросов командами меню.
Создадим макрос «Поиск» для поиска данных таблицы «Клиенты» по полю должность
Создайте новый макрос, задайте макрокоманду Открыть Таблицу Клиенты.
Чтобы окно таблицы развернулось на весь экран, задайте команду развернуть.
Для выбора поля задайте команду КэлементуУправления, имя элемента должность
Для поиска задайте ВыполнитьКоманду Find(найти).
Сохраните макрос под именем Поиск и запустите.
Для поиска значений можно воспользоваться ещё командой Найтизапись, но в этом случае запись ищется однозначно
отредактируйте макрос - замените последнюю команду на НайтиЗапись и задайте Образец поиска Менеджер, совпадение с любой частью
Проверьте работу макроса.
Но лучше, чтобы при открытии таблицы в диалоговое окно можно было ввести образец нужных данных и на экране выводились все соответствующие записи, для этого можно воспользоваться фильтром.
Вместо команды Найтизапись выберите команду Применитьфильтр и в строке Условие отбора задайте [должность]=[введите должность]
Проверьте работу макроса.
Выполнение макроса с условиями.
Порядок выполнения макрокоманд определяется условиями, задаваемыми в столбце Условие.
Создадим макрос, выводящий на экран сообщение при переходе на запись клиента в форме «Клиенты» из Германии.
Создайте новый макрос.
Добавьте в окно макроса столбец Условие и введите [страна]="Германия"
В строке Сообщение введите Нужный клиент!, тип информационное и заголовок Информация о клиенте.
Сохраните макрос под именем Сообщение.
Откройте форму Клиенты в режиме Конструктор, вызовите свойства всей формы и на вкладке События в строке Текущая запись выберите макрос Сообщение.
Проверьте работу, перемещаясь по записям формы.
Создайте сообщение, предупреждающее о том, что дата найма должна быть раньше сегодняшней даты после обновления данных.
Связывание макроса с кнопкой.
Создайте новую форму в режиме конструктор, вызовите свойства всей формы и задайте источник записей- из таблицы «Клиенты» поля должность и страна. Закройте окно запроса.
Добавьте в область данных эти 2 поля.
В заголовок формы добавьте 2 кнопки, назовите их «Открыть форму Клиенты», «Открыть форму Заказы». В область данных 2 кнопки напротив добавленных полей с названиями -«Открыть Клиенты».
В примечание добавьте 2 кнопки- «Запуск Word” и «Закрыть форму».
В форму Клиенты добавьте кнопку «Открыть Отчет».
Сохраните форму под именем «Главная».
Создайте новый макрос «Для главной», задайте вывод имен макросов.
Имя макроса
|
Макрокоманда
|
Аргументы
|
Кнопка1
|
Открыть форму
|
Клиенты
|
Кнопка2
|
Открыть форму
|
Заказы
|
Кнопка3
|
Закрыть
|
Главная
|
Кнопка4
|
Открыть форму
|
Клиенты
|
Кнопка5
|
Открыть форму
|
Клиенты
|
Кнопка6
|
ЗапускПриложения
|
WinWord
|
Кнопка7
|
ОткрытьОтчет
|
Клиенты (просмотр)
|
Для кнопок 4, 5и 7 необходимо задать Условие Отбора(в соответствии с выбранной должностью форма Клиенты должна открываться с соответствующим значением).
Для этого в аргументах макрокоманды в строке Условие отбора введите для кнопки4 - [должность]=[Forms]![главная]![должность]; для кнопки 5- [страна]=[Forms]![главная]![страна]; для кнопки 7- [кодклиента]=[Forms]![клиенты]![кодклиента]
Для связывания кнопки нужно открыть форму в режиме Конструктор, вызвать свойства кнопки, на вкладке события выбрать Нажатие Кнопки и задать соответствующий макрос.
Проверьте работу макросов.
Связывание макросов с событиями.
Свяжем предыдущий макрос с событием - Открытие базы данных
Создайте новый макрос.
Добавьте команды Свернуть (окно базы данных),
Открытие Формы - Главная.,
Развернуть (развернуть окно на весь экран).
Сохраните макрос под именем AutoExec.
Закройте базу данных и запустите её.
Присоединение макросов.
Создадим макрос, открывающий формы «Заказы» и «Клиенты», выбрав для этого переключатель. Для этого:
Создайте новую форму «Главная2», добавьте в неё группу из 2х переключателей (без помощи Мастера) и кнопку.
Задайте надпись для группы –Открытие форм.
Задайте надпись для 1го переключателя - Заказы, для 2го –Клиенты.
Задайте подпись для кнопки -Открыть.
Создайте новый макрос «Для главной2 »
 Добавьте в макрос макрокоманды –открыть форму «Заказы» и «Клиенты».
Добавьте в окно макроса столбец Условие и введите в него для первого условия:[Forms]![главная2]![группа0]=1
для второго условия: [Forms]![главная2]![группа0]=2
Для работы макроса откройте форму в режиме Конструктор и на вкладке События свяжите нажатие кнопки с макросом «Для главной2»
Оформление собственной строки меню.
Первый этап создания меню- разработка макросов, которые будут применяться в качестве команд меню. Мы будем использовать макрос Поиск ( Для поиска значений), Открытие форм (для открытия форм сотрудники и Клиенты одновременно) и Выход (для закрытия базы данных).
У нас необходимые макросы уже есть!
Второй этап- создание макрогруппы, включающей макросы для выполнения команд меню:
Создайте новый макрос и добавьте столбец имена макросов
Имя макроса
|
макрокоманда
|
Аргументы
|
Поиск записей
|
Запускмакроса
|
Поиск
|
Открытие форм
|
Запускмакроса
|
Открытие
|
выход
|
Закрыть
|
|
Сохраните макрос под именем «Первое меню».
Создайте макрос для второго пункта меню(выполняющего действия Вырезать, копировать, Вставить и Отмена).
Имя макроса
|
макрокоманда
|
Аргументы
|
Копировать
|
ВыполнитьКоманду
|
Copy
|
Вырезать
|
ВыполнитьКоманду
|
Cut
|
Вставить
|
ВыполнитьКоманду
|
Paste
|
Отменить
|
ВыполнитьКоманду
|
Undo
|
Сохраните макрос под именем «Второе меню».
Для создания меню для формы «Главная»
Создайте ещё один макрос.
Выберите команду ДобавитьМеню- для аргумента задайте имя макроса Первое меню
Выберите команду ДобавитьМеню- для аргумента задайте имя макроса Второе меню
Сохраните макрос под именем Моё меню.
Откройте форму Главная в режиме Конструктор и выберите вкладку Другие в строке Строка меню задайте Моё меню.
Перейдите в режим формы и проверьте работу макроса.
Самостоятельная работа.
По базе данных "Заказы товаров" создайте макрос, открывающий формы "Заказчики" и "Товары" при выборе переключателя и нажатия соответствующей кнопки.
Создайте для новой формы свое меню.
Практическая работа №19. Тема: Макросы, связанные с событиями форм»
Выполнение работы:
Создадим макрос, подтверждающий удаление с помощью события Удаление.
Создайте макрос, добавьте столбец Условие в окно макроса и введите в его первую ячейку
MsgBox("Вы действительно хотите удалить запись";273;"удаление")<>1
для вывода предупреждающего диалогового сообщения, если пользователь нажимает на Отмена(1), то события должно отмениться, если да(0), то выполниться.
Выберите макрокоманду ОтменитьСобытие.
Во вторую строку столбца Условие введите …(троеточие используется для указания условия выполнения нескольких макрокоманд).
Выберите макрокоманду ОстановитьМакрос
В третью строку введите макрокоманду КомандыКлавиатуры, в аргумент Клавиши введите {Enter}.
Сохраните макрос под именем Удаление.
Откройте форму Заказы в режиме Конструктор и задайте для события Удаление макрос Удаление.
Проверьте работу макроса, для этого перейдите в режим формы и выберите команду Правка, Удалить запись.
Создадим макрос, выполняющий фильтрацию данных на форме с помощью группы выключателей.
Создайте форму в режиме Конструктор по таблице Клиенты. Задайте режим формы - Ленточный, используя свойство формы Режим по умолчанию.
В область данных добавьте поля Название, ОбращатьсяК, телефон, факс, надписи полей вырежете, и добавьте в заголовок формы. Расположите элементы по горизонтали соответственно.
В примечание формы добавьте без мастера группу переключателей, задайте ей имя - Отбор.
Добавьте в группу 5 выключателей, задайте им подписи - A, B, C, D и Все (значения параметров 1,2, 3, 4 и 5 соответственно).
Сохраните форму под именем Телефоны клиентов.
Создайте новый макрос, добавьте столбец Условие.
Введите первое условие для кнопки с буквой А - [отбор]=1, выберите соответствующую макрокоманду - ПрименитьФильтр, в аргументы условия отбора фильтра введите
[название] Like "a*", для выбора всех названий, начинающихся на А.
Введите соответствующие макрокоманды для остальных букв.
Для кнопки Все выберите макрокоманду ПоказатьВсеЗаписи.
Сохраните макрос под именем Телефоны.
Откройте форму Телефоны клиентов в режиме Конструктор, для события После обновления группы Отбор задайте макрос Телефоны. Проверьте работу макроса.
Макросы, связанные с событиями отчетов.
Создадим макрос, выделяющий данные в отчете.
Создайте Автоотчет: ленточный по таблице Заказано. Добавьте под полем Количество линию и назовите её Линия. Сохраните отчет под именем Заказано.
Создайте новый макрос. В столбец Условие введите [количество]>20, выберите соответствующую макрокоманду ЗадатьЗначение, выберите аргумент Элемент и введите [линия].[Visible], выберите аргумент Выражение , введите значение Да.
В следующую строку Условия введите выражение: Not [количество]>20, выбрите макрокоманду ЗадатьЗначение, выберите аргумент Элемент и введите [линия].[Visible], выберите аргумент Выражение, введите значение Нет.
Сохраните макрос под именем Для отчета.
Откройте отчет Заказано в режиме Конструктор и для события области данных Форматирование выберите макрос Для отчета.
Сам.работа. создайте макрос для этого же отчета (добавьте его в предыдущий!), выделяющий полужирным цены, превышающие значения 40000 (используя свойство FontBold поля цена).
Присоединение макросов.
Создадим макрос, открывающий формы «Заказы» и «Клиенты», выбрав для этого переключатель:
Создайте новую форму «Главная2», добавьте в неё группу из 2х переключателей (без помощи Мастера) и кнопку.
Задайте надпись для группы –Открытие форм.
Задайте надпись для 1го переключателя - Заказы, для 2го –Клиенты.
Задайте подпись для кнопки -Открыть.
Создайте новый макрос «Для главной2 »
 Добавьте в макрос макрокоманды –открыть форму «Заказы» и «Клиенты».
В столбец Условие и введите для первого условия: [Forms]![главная2]![группа0]=1
для второго условия: [Forms]![главная2]![группа0]=2
Для работы макроса откройте форму в режиме Конструктор и на вкладке События свяжите нажатие кнопки с макросом «Для главной2»
Назначение макроса комбинации клавиш.
Создайте копию макроса прошлого занятия Открытие1 под именем AutoKeys
Откройте его в режиме Конструктор, введите вместо имени первого макроса таблиц имя - ^f, вместо имени форм -^t.
(для команд клавиатуры используется следующий синтаксис - Ctrl-^, Shift-+, {Fi}-любая функциональная клавиша).
Закройте макрос и проверьте работу макроса, нажав комбинацию клавиш Ctrl+f.
Оформление собственной строки меню.
Первый этап создания меню- разработка макросов, которые будут применяться в качестве команд меню. Мы будем использовать уже созданные макросы: Поиск (Для поиска значений), Открытие1 (для открытия таблиц и форм) и макрокоманду Выход (для закрытия базы данных).
Второй этап- создание макрогруппы, включающей макросы для выполнения команд меню:
Создайте новый макрос и добавьте столбец имена макросов
Имя макроса
|
Макрокоманда
|
Аргументы
|
Поиск записей
|
Запускмакроса
|
Поиск
|
Открытие таблиц
|
Запускмакроса
|
Открытие1.таблиц
|
Открытие форм
|
Запускмакроса
|
Открытие1.форм
|
выход
|
Закрыть
|
|
Сохраните макрос под именем «Первое меню».
Создайте макрос для второго пункта меню (выполняющий действия Вырезать, Копировать, Вставить и Отмена).
Имя макроса
|
Макрокоманда
|
Аргументы
|
Копировать
|
ВыполнитьКоманду
|
Copy
|
Вырезать
|
ВыполнитьКоманду
|
Cut
|
Вставить
|
ВыполнитьКоманду
|
Paste
|
Отменить
|
ВыполнитьКоманду
|
Undo
|
Сохраните макрос под именем «Второе меню».
Для создания меню для формы «Главная2»
Создайте ещё один макрос.
Выберите команду ДобавитьМеню - для аргумента задайте имя макроса Первое меню
Выберите команду ДобавитьМеню - для аргумента задайте имя макроса Второе меню
Сохраните макрос под именем Моё меню.
Откройте форму Главная2 в режиме Конструктор и выберите вкладку Другие в строке Строка меню задайте Моё меню.
Перейдите в режим формы и проверьте работу макроса.
|
