Private Sub Кнопка18_Click()

On Error GoTo Err_Кнопка18_Click

DoCmd.GoToRecord,, acNewRec

If Nz([Номер заказа]) = 0 Then

[Номер заказа] = Nz(DMax ("[Номер заказа]", "[Заказ]")) +1

[Дата заказа] = Date()

End If

DoCmd.GoToControl "ПолеСоСписком11"

Кнопка18_Click_Exit:

Exit Sub

Кнопка18_Click_Err:

MsgBox Error$

Resume Кнопка18_Click_Exit

End Sub

Создание кнопки оплата.

Следующим объектом, который нужно создать является кнопка «Оплата». Кнопка создается обычным путем. В появившейся серии окон нужно выбрать позиции, как показано на рисунках.

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

Создание поля с итоговой суммой.

И последним объектом, который необходимо создать в форме «Заказы», является поле с итоговой суммой по заказу. В подчиненной форме «Спецификация» такое поле было построено как скрытое (имя поля «Поле15»). Для того, чтобы показать значение этого поля в форме «Заказы», необходимо создать несвязное поле и в его свойстве «Данные» создать с помощью построителя выражений ссылку на соответствующее поле в форме «Спецификация» следующего вида:

Выражение [Спецификация].Form![Поле15] попадет в свойство «Данные» построенного поля, если при выборе подсвеченных позиций построителя выражений нажать кнопку «Вставить», а затем «ОК».

После сохранения форма «Заказы» готова к работе. Ее конечный вид должен быть примерно таким.

В результате всей предыдущей работы были созданы ряд форм для ввода данных в базу. Однако выбор и открытие этих форм из вкладки «Формы» не удобен для конечного пользователя. Необходимо создать организующую форму с удобным интерфейсом, которая позволила бы работать с набором форм, вызывая их с помощью кнопок. Для создания таких форм в ACCESS предусмотрен механизм создания кнопочных форм.