Option Explicit

Dim ShSales As Worksheet ' Лист продажи
Dim SalesListObj As ListObject
Dim SalesListRow As ListRow

Sub ShowSales() ' Показать форму продажи
    Sales.Show
End Sub

Sub AddSales() ' Добавить продажу

    Set ShSales = ThisWorkbook.Worksheets("Продажи")
    Set SalesListObj = ShSales.ListObjects("Продажи_tb")
    
    If Sales.tbx_date.Value = "" Then
        Sales.label_info.Caption = "Заполните поле - Дата!"
        Exit Sub
    End If
    If Sales.cbx_manager.Value = "" Then
        Sales.label_info.Caption = "Заполните поле - Менеджер!"
        Exit Sub
    End If
    If Sales.tbx_client.Value = "" Then
        Sales.label_info.Caption = "Заполните поле - Наименование клиента!"
        Exit Sub
    End If
    If Sales.cbx_servise.Value = "" Then
        Sales.label_info.Caption = "Заполните поле - Услуга!"
        Exit Sub
    End If
    If Sales.tbx_income.Value = "" Then
        Sales.label_info.Caption = "Заполните поле - Доход за месяц!"
        Exit Sub
    End If
    
    Set SalesListRow = SalesListObj.ListRows.Add
    
    SalesListRow.Range(2) = CDate(Sales.tbx_date.Value)
    SalesListRow.Range(5) = Sales.cbx_manager
    SalesListRow.Range(8) = Sales.tbx_client
    SalesListRow.Range(9) = Sales.tbx_INN
    SalesListRow.Range(10) = Sales.tbx_personalAcc
    SalesListRow.Range(11) = Sales.tbx_contract
    SalesListRow.Range(12) = Sales.cbx_servise
    SalesListRow.Range(13) = CDate(Sales.tbx_DNUP.Value)
    SalesListRow.Range(14) = CDate(Sales.tbx_forecasrDNUP.Value)
    SalesListRow.Range(15) = Val(Sales.tbx_RP.Value)
    SalesListRow.Range(16) = Val(Sales.tbx_EP.Value)
    SalesListRow.Range(17) = Val(Sales.tbx_income.Value)
    
    Sales.label_info.Caption = "Запись: ИНН № " & Sales.tbx_INN.Value & " добавлена!"
End Sub

Option Explicit

Dim ShConn As Worksheet ' Лист подключения
Dim ConnListObj As ListObject
Dim ConnListRow As ListRow


Sub ShowConnection()
    connection.Show
End Sub

Sub AddConnection() ' Добавить новое подключение

    Set ShConn = ThisWorkbook.Worksheets("Подключения")
    Set ConnListObj = ShConn.ListObjects("Подключенияÿ_tb")

    Set ConnListRow = ConnListObj.ListRows.Add
    
    ConnListRow.Range(2) = connection.tbx_date
    ConnListRow.Range(3) = connection.tbx_dateOrder
    ConnListRow.Range(4) = connection.tbx_dateConn
    ConnListRow.Range(5) = connection.tbx_newDateConn

    ConnListRow.Range(7) = connection.tbx_№order
    
    ConnListRow.Range(10) = connection.cbx_manager
    
    If connection.chbx_plan.Value Then
        ConnListRow.Range(11) = "1"
    End If
    
    If connection.chbx_fact.Value Then
        ConnListRow.Range(12) = "1"
    End If
    
    ConnListRow.Range(14) = connection.cbx_cause
    
    ConnListRow.Range(17) = connection.cbx_locality

End Sub