End Sub

Далее создадим панель инструментов с двумя кнопками с тем, чтобы бланк заказа был готов к печати для оплаты заказа и обратно: оформление заказа.

Выполняем следующие действия:

1.Сервис/Настройка/Панели инструментов/Создать

2. Меняем стандартное название Настраиваемая1 на Режимы работы

3. Вкладка Команды. Ставим две кнопки на нашу панель инструментов.

4. Даем им названия: Работа, Печать. Выбираем значки на кнопки.

Всё это делается в контекстном меню.

5. Далее назначаем выполняемое действие. Для этого пишем две функции

с использованием свойства Visible для всех кнопок в форме «Бланк».

Функция r() устанавливает все кнопки видимыми.

Public Function r()

Dim frm As Form_бланк

Set frm = Forms!бланк

frm.Клиенты.Visible = True

frm.Добавить_клиента.Visible = True

frm.Добавить_товар.Visible = True

frm.Сохранить.Visible = True

frm.итог.Visible = True

frm.Товары.Visible = True

End Function

Функция p() устанавливает все кнопки невидимыми.

Public Function p()

Dim frm As Form_бланк

Set frm = Forms!бланк

frm.Клиенты.Visible = False

frm.Добавить_клиента.Visible = False

frm.Добавить_товар.Visible = False

frm.Сохранить.Visible = False

frm.итог.Visible = False

frm.Товары.Visible = False