Access vba recupérer les données de la requete vers une table

Bonjour,

J'aimerais récuperer les valeurs de ma variable sql dans une table

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 strSelect = "PARAMETERS Date_F DateTime, Date_A DateTime;" & vbCrLf & _
                "SELECT T_CALENDRIER.JOUR_CALEND AS RES_DATEF" & vbCrLf & _
                "FROM T_CALENDRIER" & vbCrLf & _
                "WHERE (((T_CALENDRIER.JOUR_CALEND) Between [Date_F] And [Date_A]) AND ((T_CALENDRIER.FILTRE_JOUR)=True))" & vbCrLf & _
                "ORDER BY T_CALENDRIER.JOUR_CALEND DESC;"


            Set db = CurrentDb
            Set qdf = db.CreateQueryDef(vbNullString, strSelect)
            qdf.Parameters("Date_F").Value = Me.Date_retraite.Value
            qdf.Parameters("Date_A").Value = Me.Date_jour.Value
            Set rs = qdf.OpenRecordset
            DATE_FIN = rs.RES_DATEF
            Date_depart_offi.Value = DATE_FIN