Discussion :

[AAEGRET]

Bonjour

Je voudrais récupérer via requête ou VBA tous les jours du mois en cours.
Sous forme de table par exemple
Nous sommes le 09/06/21, je voudrais qu'Access me sorte la liste de toutes les dates de juin 2021.

Je voulais me baser sur la date système mais je débutante en VBA et en requête je n'y arrive pas

Merci

[Jean-Philippe André]

Salut,

il y a quelques années on avait eu un défi de ce style à traiter :
https://www.developpez.net/forums/d7...registrements/

[marot_r]

Bonjour.

Je te suggère le code suivant en VBA

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
dim db as dao.database: set db=currentdb
dim r as dao.recordset: set r=db.openrecordset("tblJourMois", dbOpenDynaset)
dim dt as date
 
for dt=DateSerial(year(Date()), month(Date()), 1) to DateSerial(year(Date()), month(Date())+1, 0) 'Le 0ième jour du mois suivant est le dernier jour du mois courant.
   r.addnew
   r![DateJour]=dt
   r.update
next dt
 
r.close: set r=nothing
db.close: set db=nothing

A+

[AAEGRET]

J'ai créé ma table tblJourMois avec 1 champ DateJour. il me dit

Erreur d'exécution, argument non valide

en me surlignant Dim r As dao.Recordset: Set r = db.OpenRecordset("tblJourMois", dbOpendDynaset).

Je dois surement mal faire les choses

[Gado2600]

Bonjour,

Un check des options sur la "OpenRecordset" et tu pourras voir qu'il y a un "d" en trop sur le dbOpenDynaset.

Cordialement,