vba access envoyer toutes les valeurs d'une requete sur une Résolu

Question

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

Bonjour,

J'aimerais recupérer tous ceux qu'il y a dans ma balise entre sur une table RECUP

xHaMaz · Answer

Bonjour

'Créer une nouvelle table RECUP 
    Dim tdf As TableDef
    Set tdf = CurrentDb.CreateTableDef("RECUP")
    tdf.Fields.Append tdf.CreateField("RES_DATEF", dbDate)
    CurrentDb.TableDefs.Append tdf
    
    'Copier les résultats de la requête dans la nouvelle table
    Set rs = qdf.OpenRecordset
    CurrentDb.Execute "DELETE FROM RECUP"
    Do Until rs.EOF
        CurrentDb.Execute "INSERT INTO RECUP(RES_DATEF) VALUES ('" & rs!RES_DATEF & "')"
        rs.MoveNext
    Loop

Essaye ça, vérifie bien que le noms des champs correspondent bien à ceux que tu as dans ta requête, dans le cas contraire il faudra les adapter pour que le code fonctionne correctement.

Vba access envoyer toutes les valeurs d'une requete sur une

1 réponse

Discussions similaires

Newsletters