Vba access envoyer toutes les valeurs d'une requete sur une
Résolu
kyller_4432
Messages postés
45
Date d'inscription
Statut
Membre
Dernière intervention
-
xHaMaz Messages postés 120 Date d'inscription Statut Membre Dernière intervention -
xHaMaz Messages postés 120 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Vba access envoyer toutes les valeurs d'une requete sur une
- Comment envoyer une invitation sur facebook - Guide
- Envoyer un sms groupé sans que les destinataires apparaissent - Forum Samsung
- Impossible d'envoyer messenger - Forum Facebook Messenger
- Faites afficher avec un fond coloré les cellules qui contiennent une valeur comprise entre 250 et 350. quel nombre est dessiné en surbrillance ? ✓ - Forum Excel
- Incompatibilité de type vba ✓ - Forum Programmation
1 réponse
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.