A family of Microsoft relational database management systems designed for ease of use.
OK, I was able to reporduce the error so I changed the code behind the Generate Report button to:
Private Sub Command41_Click()
'DoCmd.OpenReport "frmSimpleUsingCrosstabasSource", acViewPreview, , "CenterCode= " & Combo15
Dim strSQL As String
strSQL = "DELETE * FROM tmpProgress;"
CurrentDb.Execute strSQL, dbFailOnError
' strSQL = "INSERT INTO tmpProgress (CenterCode, StudentID, GradeScore, CourseName) " & _
' "SELECT CenterCode, StudentID, GradeScore, CourseName " & _
' "FROM qryStudentProgress_FIRST_SIMPLE_QUERY; "
strSQL = "INSERT INTO tmpProgress (CenterCode, StudentID, GradeScore, CourseName) " & _
"SELECT tblStudentProgress.CenterCode, tblStudentProgress.StudentID, tblStudentProgress.GradeScore, tblCourse.CourseName " & _
"FROM tblCourse INNER JOIN tblStudentProgress ON tblCourse.CourseID = tblStudentProgress.CourseID " & _
"WHERE tblStudentProgress.CenterCode = " & Me.CenterCode & " And tblStudentProgress.GradeMonth = '" & _
Me.Text37 & "' " & _
"ORDER BY tblStudentProgress.StudentID;"
' Debug.Print strSQL
CurrentDb.Execute strSQL, dbFailOnError
DoCmd.OpenReport "frmSimpleUsingCrosstabasSource", acViewPreview, , "CenterCode= " & Me.Combo15
End Sub
Copy and paste that into the code module.
This worked for me.