Consider modification to your code:
Code:
Private Sub Break_Down_FileNameClip_Click()
Dim rstHB As DAO.Recordset
Dim db As DAO.DatabaseDebug.Print FileNameClip
Set db = CurrentDb()
Set rstHB = db.OpenRecordset("SELECT DISTINCT CO FROM JWA_19_15")
Do While Not rstHB.EOF
db.Execute "SELECT * INTO [" & rstHB![CO] & "] FROM [" & FileNameClip & "] WHERE [CO] = '" & rstHB![CO] & "'", dbFailOnError
rstHB.MoveNext
Loop
End Sub
However, why does your code reference JWA_19_15 when table in db is JWA_19_V6?
Also, using IN() can simplify SQL statement:
Code:
' Deletes all the rows in Field Row Type meeting key words, in this instance cleaning out shaded green, grey, red rows
DoCmd.RunSQL "DELETE FROM Temp WHERE [Row Type] IN('PH','TOE','PARA')"
DoCmd.RunSQL "DELETE FROM Temp WHERE [platform_shading] IN('AN','AU','MT','SM','RP')"
DoCmd.RunSQL "DELETE FROM Temp WHERE [materiel_shading] IN('AN','AU','MT','SM','RP')"