Разработка учетного приложения совместного автоматического заполнения документов, прилагаемых к договору: акт выполненных работ и отчёт по процедуре исполнения заказа

На рисунке синим обозначены компоненты Textbox с именами:
txtAct – номер акта, выбирается с листа “ActN” книги;
txtDate – дата акта;
txtCust – фирма заказчика, выбирается с листа “ActN” книги;
txtCustName – ответственное лицо заказчика, выбирается с листа “ActN” книги.
Фиолетовым обозначен ComboBox “cbDoer” – исполнитель, которого можно выбрать из выпадающего списка исполнителей с листа “Agents” книги Excel.
Красным обозначены компоненты кнопок CommandButton, к которым в дальнейшем будут привязаны действия.
Кнопка “Список работ” позволяет перейти на форму управления работами.
Кнопка “Сгенерировать акт” создает документ с готовым для печати актом выполненных работ.
В списке будет отображаться список работ, добавленных в акт.
Для добавления и редактирования списка работ создана форма frmJob, макет которой отображен на рисунке 3.

Рисунок 3 – форма frmJob
Блок ввода в синем прямоугольнике позволяет задать свойства выполненной работы для внесения в акт. В ней содержиться наименование работы, единица измерения, количество работ, а также цена за единицу работы. Итоговая сумма будет вычислена автоматически.
Блок кнопок в красном прямоугольники позволяет добавить работу в список, удалить работу из списка и изменить значения свойств работы. Кнопки изменить и удалить не работают, если не выбрана работа в списке.
Кнопка “закрыть” закрывают текущую форму и переводит на главную форму.


3. Создание программного кода обработчиков события
Весь код VBA располагается в обработчиках событий.
После открытия документа автоматически открывается форма frmUser, для чего создан обработчик открытия книги:
Private Sub Workbook_Open()
frmUser.Show
End Sub

Для инициализации формы frmUser используется обработчик UserForm_Initialize(), в котором происходит заполнение полей формы. Нумерация актов производиться автоматически.
Соответствующие действия привязаны к обработчикам кнопок:
• btnAct_Click() – сгенерировать акт;
• btnExit_Click() - выход;
• btnJob_Click() – перейти к списку работ.
Программный код обработчиков приведен ниже: