Here is a sample bit of code to split the larger table into single-field tables. I did a quick test and it works.
Have your sponsors considered what they will get if the original table column contains a lot of blanks?
Code:
Sub Split_table()
Dim fld As Field, SQL As String, rst As Recordset, ColumnName As String
Set rst = CurrentDb.OpenRecordset("Main_Data_Summary")
For Each fld In rst.Fields
ColumnName = fld.Name
On Error Resume Next 'Ignores error that would occur if the table does not exist
'
' Delete current version of the table (if there is one)
'
DoCmd.DeleteObject acTable, ColumnName
On Error GoTo ErrProc ' Reset error trapping
'
' Create SQL to create the new table (a make-table query)
'
SQL = "Select [" & ColumnName & "] Into [" & ColumnName & "] from Main_Data_Summary "
Debug.Print SQL
CurrentDb.Execute SQL, dbFailOnError
Next
rst.Close
Exit Sub
ErrProc:
MsgBox Err.Description
rst.Close
Exit Sub
End Sub