Discussion :

[alx13]

Bonjour,

ma petite sœur ma posé une colle comment afficher tous les jours d'une période passé en paramètre.

bon sous oracle je sais faire, je suis de la partie

Code :

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

1
2
3
4
5
6
7
SELECT TO_DATE('01/01/2010', 'DD/MM/YYYY')+level-1 jours
FROM dual
connect BY level <= ( 
                      select to_number(TO_DATE('31/01/2010', 'DD/MM/YYYY') - TO_DATE('01/01/2010', 'DD/MM/YYYY')) nb_jrs
                      from dual
                    )
;

mais sous access ??????

je sais que le passage de paramètre dans une requête sous access c'est :

Code :

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

[ma question?]

que dual, on peut "l’interpréter" par n'importe quelle table puisque on ne recherche rien dedans proprement dit.

mais "connect by level" alors là je sèche.........

est-ce possible??

si quelqu'un à une solution je suis preneur.

Merci

[marot_r]

En SQL je ne pense pas que ce soit possible mais en VBA :

Code :

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

1
2
3
4
5
6
7
8
9
private sub AfficherDatePeriode(prmDateDebut as date, prmDateFin as date)
  dim dateCourrante as date:dateCourrante=prmDateDebut
 
  do while dateCourrante<=prmDateFin
     debug.print dateCourrante
     dateCourrante=dateadd("d",1,dateCourrante)
  loop
 
end sub

si tu as besoin de l'afficher dans un formulaire il suffit de remplir une table temporaire au lieu de faire un Debug.print.

A+

[alx13]

ok merci pour la réponse,
je lui demanderais de tester.

[Tofalu]

Sur du pur SQL, on peut aussi jouer avec les produits cartésiens d'un extrait des tables systèmes. L'idéal étant évidemment d'avoir une table numérotée de 0 à 9, mais si ce n'est pas le cas, voici un exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
PARAMETERS DATEMIN DATE, DATEMAX DATE;
SELECT DateMin+N AS LADATE FROM
( 
SELECT (C*100+D*10+U*1)As N
FROM
 
(SELECT (SELECT Count(ID) FROM MSysObjects WHERE id<T.Id) As C
FROM 
(SELECT TOP 10 ID FROM MSysObjects ORDER BY ID) T) T1,
 
(SELECT (SELECT Count(ID) FROM MSysObjects WHERE id<T.Id) As D
FROM 
(SELECT TOP 10 ID FROM MSysObjects ORDER BY ID) T) T2,
 
(SELECT (SELECT Count(ID) FROM MSysObjects WHERE id<T.Id) As U
FROM 
(SELECT TOP 10 ID FROM MSysObjects ORDER BY ID) T) T3
ORDER BY (C*100+D*10+U*1)
) Dictionnaire
WHERE DateMin+N<=DateMax

[alx13]

Merci Tofalu,
je testerai ta solution une prochaine fois.
on a finalement créé une table avec tous les jours via une macro (exemple de marot_r).

[micniv]

Jolie solution Tofalu