Add new item to table name

Amin

You've added to your first (inadequately-defined) Question in its Discussion but I'm answering only the question of adding a new item (since the Update button already does any record editting).

In the attached revised code, I've added a new variable cl (for first column of a chosen table) then created n new code number for the new item in a similar way to how you have done elsewhere in the UserForm code. See bold items.

Private Sub cmdAdd_Click()

    Const PW As String = "8521" 'using const for fixed values

    Dim allTables(), lo As ListObject, rw As ListRow, tName
    Dim cl As Long


     allTables = Array("T_Food", "T_Beverage", "T_Shisha")


    If Me.comDepartment.Text = "" Or Me.txtItemName.Text = "" Or _
       Me.txtPrice.Text = "" Or Me.comUnit.Text = "" Then
        MsgBox "Please enter data  ", vbCritical, "Inventory program "
         Exit Sub
    End If

    new_name = Me.txtItemName.Text

     'see if the new name already exists in any of the tables

     If Not AnyTableRowMatch(allTables, "Item Name", new_name) Is Nothing Then

          MsgBox "The new name '" & new_name & "' already exists  ", _
                vbCritical, "Inventory Program "

         Exit Sub

     End If

    'select the correct table

    Select Case Me.comDepartment.Value

        Case "Food": tName = "T_Food"
        Case "Beverage": tName = "T_Beverage"
        Case "Shisha": tName = "T_Shisha"
        Case "Other": tName = "T_Other"

    End Select

    With Data
        .Unprotect PW
        ' add a new record at the end of correct table
        Set rw = .ListObjects(tName).ListRows.Add
        With rw
            ' get first column of table
            cl = .Range.Columns(1).Column
            ' set the code as highest in first column + 1
            Me.txtCode.Text = WorksheetFunction.Max(Range(Cells(7, cl), Cells(2000, cl))) + 1
            ' write the values to new record
            .Range.Value = Array(Me.txtCode.Text, new_name, Me.comUnit.Text, _
                            Me.txtPrice.Text, Me.TxtSalePrice.Text, _
                            "", "", Me.CbSubCategory.Text)
        End With
        .Protect Password:=PW
    End With


    ' update the userform
    Call CbSubCategory_Change

End Sub

Hope this is what you need. If so, please mark this Answer as Selected.