Question : ACCESS 2007: Transfer information from one table to multiple tables depending on the ID

I have a excel table with all my data. One of the columns has the company ID.

What i want to accomplish is link this excel worksheet in a new Access2007 database and i want to evaluate the companyID column to segregate the data by CompanyID, then by using the companyID, create new table using for table name the companyID and append all the data related to that ID to that new table.

So if the Excel has data from 200 companies, i need to segregate the data, create 200 tables (each table will be named with the companyID) and place the correspondant data into it.

Why Access 2007? because Access has Sharepoint conectivity Built-In and i want to update table List information on a weekly basis.

Answer : ACCESS 2007: Transfer information from one table to multiple tables depending on the ID

I got the code figure out.

ExcelDataFile is the Excel linked table
The Values in the listbox are extracted from query where checks the CompanyIDs from the excel and Group them to avoid duplicates.

                       
         
           
           
              Dim SQL As String
 
   SQL = " INSERT INTO [Filtered " & [Forms]![ImportForm]![IDSelected] & " List]" & _
                           " SELECT ExcelDataFile.CompanyID, ExcelDataFile.Name," & _
                              " ExcelDataFile.Account, ExcelDataFile.invoice_no," & _
                            " ExcelDataFile.effective, ExcelDataFile.entry_date," & _
                                 " ExcelDataFile.Room, ExcelDataFile.trans_type," & _
                              " ExcelDataFile.bank_code, ExcelDataFile.SalesRep," & _
                                     " ExcelDataFile.paid, ExcelDataFile.amount," & _
                               " ExcelDataFile.commission, ExcelDataFile.duedate" & _
         " FROM ExcelDataFile Where ExcelDataFile.CompanyID = " & _
           [Forms]![ImportForm]![IDSelected] & ";"
DoCmd.RunSQL SQL

           
         

Open in New Window Select All