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