I cannot correct it now with
shows attached picture .. not again records inserted
Code:
Private Sub cmdAllAthletes_Click()
Dim s1 As String
s1 = ""
s1 = s1 & "INSERT INTO Tbl_CourseAttendances "
s1 = s1 & "(courseID, CourseDate, athleteID) "
s1 = s1 & " SELECT Parent.[courseID], " & Format(Parent.[CourseDate], "\#yyyy\/mm\/dd\#") & ","
s1 = s1 & " athleteID"
s1 = s1 & " FROM Tbl_CourseSessions"
s1 = s1 & " INNER JOIN Tbl_CourseAthletes"
s1 = s1 & " ON Tbl_CourseSessions.courseID = Tbl_CourseAthletes.courseID" ''''error
s1 = s1 & " WHERE Tbl_CourseSessions.courseID = " & Parent.[courseID]
Debug.Print s1
CurrentDb.Execute s1
End Sub
shows attached picture .. not again records inserted