The SQL and code
Here is the SQL:
INSERT INTO Individuals ( Company_Id, [Contact Number], [Mr/Ms], Initial, [First], [Last], Title, [Email address], [Area Code], [Bus Phone], Ext, [Main Contact] IN 'C:\EF Database\EF Main Dbase.mdb'
SELECT Individuals.Company_Id, Individuals.[Contact Number], Individuals.[Mr/Ms], Individuals.Initial, Individuals.First, Individuals.Last, Individuals.Title, Individuals.[Email address], Individuals.[Area Code], Individuals.[Bus Phone], Individuals.Ext, Individuals.[Main Contact]
FROM Companies LEFT JOIN Individuals ON Companies.ID = Individuals.Company_Id
The code is:
Private Sub CopiesAll_Click()
On Error GoTo Err_CopiesAll_Click
Dim stDocName As String
stDocName = "NS"
DoCmd.RunMacro stDocName
Exit_CopiesAll_Click:
Exit Sub
Err_CopiesAll_Click:
MsgBox Err.Description
Resume Exit_CopiesAll_Click
End Sub