События окна Form1 Option Explicit Событие происходит когда пользовате

'События окна Form1
Option Explicit

'Событие происходит, когда пользователь меняет вкладку
Private Sub MultiPage1_Change()
    Dim tasks As Task
    Set tasks = New Task
    
    'Вставляются данные в выпадающие списки
    tasks.insertCountriesInComboBox
    tasks.insertLegalsInComboBox Form.legals_comboBox
    tasks.insertActivitiesInComboBox
    tasks.insertLegalsInComboBox Form.companies_comboBox
    tasks.insertTaxTypesInComboBox Form.listOfTaxTypes_comboBox
    tasks.insertTaxTypesInComboBox Form.add_taxTypes_comboBox
    tasks.insertLegalsInComboBox Form.add_companies_comboBox
End Sub

'подпрограмма исполняется, когда мы нажимаем на кнопку "Открыть файл"
Private Sub selectData_Click()
    Dim tasks As Task
    Set tasks = New Task
    
    'вызов функции, которая открывает файл базы данных с данными
    tasks.selectData
    
    'делаем активными вкладки для работы с данными
    Form.MultiPage1.Pages.Item("Page2").Enabled = True
    Form.MultiPage1.Pages.Item("Page3").Enabled = True
End Sub

'подпрограмма исполняется, когда мы нажимаем на кнопку "Получить список организаций"
Private Sub getListOfLegals_button_Click()
    Dim tasks As Task
    Set tasks = New Task
    Dim funcs As Functions
    Set funcs = New Functions
    
    'ускоряем макрос (отключаем перерисовку таблиц и прочее)
    funcs.speedUp True
    'печатаем список компаний
    tasks.printListOfLegals
    'возвращаем Excel в исходное состояние
    funcs.speedUp False
End Sub

'событие нажатия на кноку, чтобы получить список деятельностей для компании
Private Sub getCompanyActivities_button_Click()
    Dim tasks As Task
    Set tasks = New Task
    Dim funcs As Functions
    Set funcs = New Functions
    
    funcs.speedUp True
    'печатаем список
    tasks.printListOfCompanyActivities
    funcs.speedUp False
End Sub

'событие нажатия на кноку, чтобы получить список компаний для заданной деятельности
Private Sub getListOfLegalsForActivity_button_Click()
    Dim tasks As Task
    Set tasks = New Task
    Dim funcs As Functions
    Set funcs = New Functions
    
    funcs.speedUp True
    'печатаем список
    tasks.printLegalsForActivity
    funcs.speedUp False
End Sub

'событие нажатия на кноку, чтобы получить полную информацию о налогах для заданной компании
Private Sub printInfoAboutCompany_button_Click()
    Dim tasks As Task
    Set tasks = New Task
    Dim funcs As Functions
    Set funcs = New Functions
    
    funcs.speedUp True
    tasks.printInfoAboutCompany
    funcs.speedUp False
End Sub

'событие нажатия на кноку, чтобы получить все налоги для заданного вида налога
Private Sub printInfoAboutTaxType_button_Click()
    Dim tasks As Task
    Set tasks = New Task
    Dim funcs As Functions
    Set funcs = New Functions
    
    funcs.speedUp True
    tasks.printTaxesForTaxType
    funcs.speedUp False
End Sub

'событие нажатия на кноку, чтобы получить список налогов, которые не были оплачены вовремя
Private Sub printNotPaidCompanies_button_Click()
    Dim tasks As Task
    Set tasks = New Task
    Dim funcs As Functions
    Set funcs = New Functions
    
    funcs.speedUp True
    'печатаем список
    tasks.printNotPaidCompanies
    funcs.speedUp False
End Sub

'событие нажатия на кноку, чтобы получить список проверок, которые были пройдены с результатом не удовлетворительно
Private Sub printListOfFailedCheck_button_Click()
    Dim tasks As Task
    Set tasks = New Task
    Dim funcs As Functions
    Set funcs = New Functions
    
    funcs.speedUp True
    'печатаем список
    tasks.printListOfFailedCheck
    funcs.speedUp False
End Sub

'событие нажатия на кноку, чтобы добавить новый налог для выбранной компании
Private Sub add_tax_button_Click()
    Dim tasks As Task
    Set tasks = New Task
    Dim funcs As Functions
    Set funcs = New Functions
    
    funcs.speedUp True
    'добавляем налог
    tasks.addTax
    funcs.speedUp False
End Sub