Private Sub Form_Open(Cancel As Integer)

Dim basa As Database, nabor As Recordset

Set basa = CurrentDb

Set nabor = basa.OpenRecordset("Промежуточная", dbOpenTable)

Me.исполнитель.Value = Null

Me.клиент.Value = Null

Me.№счета_клиента.Value = Null

Me.Итого.Value = Null

Me.Адрес_клиента.Value = Null

Me.телефон.Value = Null

With nabor

MoveFirst

Do

Edit

.Fields!Товар = Null

.Fields!Поставщик = Null

.Fields!Цена = Null

.Fields!количество = Null

.Fields!ставка_НДС = Null

.Fields!Сумма_с_НДС = Null

Update

MoveNext

Loop While Not IsNull(.Fields!Цена)

Me.Refresh

End With

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