There are a couple of errors I found:
Code:
' Build criteria string for Instructors
For Each varItem In Me.lst_Instructors.ItemsSelected
strInstructors = strInstructors & ", " & Me.lst_Instructors.ItemData(varItem)
Next varItem
If Len(strInstructors) = 0 Then
strInstructors = "Like '*'"
Else
strInstructors = Right(strInstructors, Len(strInstructors) - 1)
strInstructors = "IN(" & strInstructors & ")"
End If
' Build criteria string for CourseType
For Each varItem In Me.lst_Course_Type.ItemsSelected
strCourseType = strCourseType & ", " & Me.lst_Course_Type.ItemData(varItem)
Next varItem
If Len(strCourseType) = 0 Then
strCourseType = "Like '*'"
Else
strCourseType = Right(strCourseType, Len(strCourseType) - 1)
strCourseType = "IN(" & strCourseType & ")"
End If
' Build criteria string for Date From and Date To One day maybe :\
' Build SQL statement
strSQL = "SELECT q_jt_MCR_Instructor_Roles.* FROM q_jt_MCR_Instructor_Roles" & _
" WHERE q_jt_MCR_Instructor_Roles.[InstructorID] " & strInstructors & _
" AND q_jt_MCR_Instructor_Roles.[Course_TypesID] " & strCourseType & ";"
A space is missing before the WHERE
AND is missing before the second part of the WHERE clause
Instructor_ID is Numeric so no quotes around the number, plus you are referring to last name but putting in the number (I used the number)
Query Q_Parameter_Form uses the field Course_Type_Abbreviation, but it has a number (as text) in the criteria. The abbreviations don't have numbers there. Change it to the ID, and don't use the quotes.
This should help a bit - I can get it to give me the report.