Ok, I found several things. Try this:
Private Sub Form_AfterInsert()
DoCmd.SetWarnings (False)
DoCmd.RunSQL "INSERT INTO t_Training_Association ([Employee ID],[Class ID]) select " & Me.txtID & ", [Class ID] from t_Class_Name;"
DoCmd.SetWarnings (True)
End Sub
I ran it on a copy...