Voila je dois afficher les résultat de ma requête dans un dbgrid relier a un datacontrole mais rien ne s'affiche !!!!

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
Public Sub PROCEDURE_AFFICHE_DATE_COURS_ABSENCE(int_num_eleve As Integer)
'affiche les cours et dates des absences
Dim str_req_sql_absence As String
 
'str_req_sql_absence = "SELECT Detail_absence_tbl.Date_absence, Absence_cours_tbl.Denomination_FROM Absence_cours_tbl INNER JOIN (Eleves_tbl INNER JOIN Detail_absence_tbl ON Eleves_tbl.Id_eleve = Detail_absence_tbl.Num_eleve) ON Absence_cours_tbl.Id_module = Detail_absence_tbl.Cours WHERE (((Detail_absence_tbl.Num_eleve) =" & str_num_eleve & "))"
'str_req_sql_absence = "SELECT Detail_absence_tbl.Date_absence, Absence_cours_tbl.Denomination_FROM Absence_cours_tbl INNER JOIN (Eleves_tbl INNER JOIN Detail_absence_tbl ON Eleves_tbl.Id_eleve = Detail_absence_tbl.Num_eleve) ON Absence_cours_tbl.Id_module = Detail_absence_tbl.Cours WHERE (((Detail_absence_tbl.Num_eleve) =" & "7" & "))"
str_req_sql_absence = "SELECT Detail_absence_tbl.Date_absence, Absence_cours_tbl.Denomination FROM Absence_cours_tbl INNER JOIN (Eleves_tbl INNER JOIN Detail_absence_tbl ON Eleves_tbl.Id_eleve = Detail_absence_tbl.Num_eleve) ON Absence_cours_tbl.Id_module = Detail_absence_tbl.Cours WHERE (((Detail_absence_tbl.Num_eleve)=7))"
MsgBox str_req_sql_absence
data_sql_absence.RecordSource = str_req_sql_absence
data_sql_absence.Refresh
End Sub

Merci d'avance de votre aide