1 2 3 4 5 6
|
Dim var_grade As String
var_grade = cbo_grade.Value
sSQL = "SELECT tbl_consultant.nom_complet, tbl_event.Date_debut, tbl_event.Date_fin, tbl_ecole.Nom_complet_Ecole, tbl_grade.Nom_grade, tbl_grade.ID_grade FROM tbl_grade INNER JOIN ((tbl_ecole INNER JOIN tbl_event ON tbl_ecole.ID_ecole = tbl_event.ID_Ecole) INNER JOIN (tbl_consultant INNER JOIN tbl_participation_event ON tbl_consultant.ID_consultant = tbl_participation_event.ID_consultant) ON (tbl_event.ID_event = tbl_participation_event.ID_event) AND (tbl_event.ID_event = tbl_participation_event.ID_event)) ON tbl_grade.ID_grade = tbl_consultant.ID_grade WHERE ((([tbl_participation_event]![Reponse_mail])=-1) AND ((tbl_grade.ID_grade)='" & var_grade & "'));"
DoCmd.OpenReport report_test, acViewPreview, ,[whereCondition] 'la je sais pas quoi mettre comme condition |
Partager