Discussion :

[Barzy]

Bonjour à tous,

Je suis nouveau sur le forum....

Je travaille sur Access 2013 ... et je m'arrache les cheveux...

Je pars de la requête suivante:

Code sql :

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

1
2
SELECT TOP 10 T_Date.Date
FROM T_Date

ET j'obtiens donc les 10 premiers enregistrements de la table.

Je souhaite inclure un paramètre dans cette requête et remplacer TOP 10 par un paramètre variable saisi dans une boite de dialogue.

Je vous remercie d'avance.

Meilleures salutations.

[marot_r]

Bonjour.

Je viens de faire un test et à priori ce n'est pas possible directement. Il va falloir modifier le SQL par code.

Exemple :

Code :

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

1
2
3
4
5
6
7
dim top as long:top=inputbox("TOP ?")
 
dim db as dao.database:set db=currentdb
dim q as dao.querydef:set q=db.querydefs("NomTaRequete")
q.sql="SELECT TOP " & top & " T_Date.Date FROM T_Date"
set q=nothing
db.close:set db=nothing

Une autre solution si tes dates sont ordonnées serait :

Code sql :

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

select [T_Date].[T_Date.Date] form [T_Date] order by [T_Date].[NomTonChampTri] where DCount("NomTonChampTri", "T_Date", "NomTonChampTri<" & [T_Date].[NomTonChampTri]) <= [prmTop]

Cela numérote les lignes et prend celles qui ont un numéro inférieur ou égale à prmTop.

A+

[Barzy]

Bonjour Marot,

Merci beaucoup pour ta réponse. Pour être franc je n'y arrive pas... Ça c'est dit !

J'ai créée La table "T_Date" qui contient 1 champ "Date". Les dates sont ordonnées dans l'ordre croissant.
Je crée une requête paramétrée qui me permet d’atteindre :
- Une date comme premier paramètre ;
- De compter via un second paramètre x enregistrements ;
- D'avoir comme réponse de ma requête la date via ces 2 paramètres.

J'ai repris ta solution. Ça va jusqu'à un certain point..

Code sql :

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

1
2
3
4
5
SELECT [T_Date].[T_Date.Date]
FROM [T_Date] 
ORDER BY [T_Date].[NomTonChampTri] 
'là je suis perdu.. [NomTonChampTri]  et toute la suite
WHERE DCount("NomTonChampTri", "T_Date", "NomTonChampTri<" & [T_Date].[NomTonChampTri]) <= [prmTop]

Merci encore pour ton aide.

Meilleures salutations.

[marot_r]

Désolé le SQL que j'ai posté précédement était un peu faux.

OK donc ta table a un seul champs ?

Je pense que le SQL devrait ressembler à

Code :

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

1
2
3
4
SELECT T_Date.Date, DCount("Date", "T_Date", "[Date]<=#" & [T_date].[Date] & "#") AS NbDate
FROM T_Date
WHERE (((DCount("Date", "T_Date", "[Date]<=#" & [T_date].[Date] & "#"))<=[prmTop]))
ORDER BY T_Date.Date;

NbDate n'est pas absolument nécessaire mais il facilite la vérification.

Attention si tu as plusieurs fois la même date, tu pourrais ne pas savoir quelle est laquelle.

Si c'est le cas, une possibilité est d'ajouter un champ pour le tri comme par exemple une clef primaire.

A+

[Barzy]

Bonjour Marot,

Merci à nouveau pour ton aide!

Je vais essayer.

Meilleures salutations.