End Sub
Resume Кнопка18_Click_Exit
Exit Sub
End If
DoCmd.GoToRecord , , acNewRec
If Nz([Номер заказа]) = 0 Then
[Номер заказа] = Nz(DMax ( "[Номер заказа]" , "[Заказ]")) +1
[Дата заказа] = Date()
DoCmd.GoToControl "ПолеСоСписком11"
Кнопка18_Click_Exit:
Кнопка18_Click_Err:
MsgBox Error$
Создание кнопки оплата.
Следующим объектом, который нужно создать является кнопка «Оплата». Кнопка создается обычным путем. В появившейся серии окон нужно выбрать позиции, как показано на рисунках.
Окончание построения кнопки выполняется обычным путем. В результате появляется кнопка с внедрённым макросом, при нажатии которой открывается форма «Оплата». При этом в форме отображаются только записи об оплате для текущего заказа.
Создание поля с итоговой суммой.
И последним объектом, который необходимо создать в форме «Заказы», является поле с итоговой суммой по заказу. В подчиненной форме «Спецификация» такое поле было построено как скрытое (имя поля «Поле15» ). Для того, чтобы показать значение этого поля в форме «Заказы», необходимо создать несвязное поле и в его свойстве «Данные» создать с помощью построителя выражений ссылку на соответствующее поле в форме «Спецификация» следующего вида:
Выражение [Спецификация].Form![Поле15] попадет в свойство «Данные» построенного поля, если при выборе подсвеченных позиций построителя выражений нажать кнопку «Вставить», а затем «ОК».
После сохранения форма «Заказы» готова к работе. Ее конечный вид должен быть примерно таким.
В результате всей предыдущей работы были созданы ряд форм для ввода данных в базу. Однако выбор и открытие этих форм из вкладки «Формы» не удобен для конечного пользователя. Необходимо создать организующую форму с удобным интерфейсом, которая позволила бы работать с набором форм, вызывая их с помощью кнопок. Для создания таких форм в ACCESS предусмотрен механизм создания кнопочных форм.