Discussion :

[yapud]

Bonjour à tous !

Sous Access 2003, je dois modifier une requête qui pour l'instant est du style :

Code sql :

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

SELECT TOP 95 PERCENT champ1, champ2 FROM matable WHERE condition

Cette requête renvoi bien le résultat que je souhaite lorsque 95% est supérieur strict à 1. Par exemple, 95% de 47 = 44,65. La requête me renvoi donc 45 lignes. Ce que je souhaite.

Par contre, 95% de 9 = 8,55. La requête me renvoi donc 9 lignes.
Mais dans ce cas, je voudrais une exception, je voudrais que la requête ne me renvoi que 8 lignes et qu'elle laisse une ligne de côté.

J'ai donc essayé plusieurs méthodes.

• faire un SELECT TOP [parametre] champ FROM .... ou [parametre] était calculé du côté VBA
• SELECT TOP SELECT IIf(count(*)*95/100 < 1, si vrai, si faux) mais ceci est impossible
• En passant par une table intermédiaire qui me donne le résultat de 95% et ensuite faire appel à ce résultat dans un SELECT TOP SELECT

Mais aucune de ces solutions ne fonctionne. le SELECT TOP SELECT ne fonctionne pas sous Access à ce que je constate (je ne suis pas du tout un expert Access). Est-ce vraiment le cas ou est-ce moi qui ne sait pas l'utiliser ?
Il est impossible de passer un parametre après le TOP ? On ne peut passer des paramètres que dans la clause WHERE ?

Est-ce que vous avez une autre petite idée de méthode que je pourrais utiliser pour gérer mon exception ?

Je vous remercie d'avance pour l'aide que vous pourrez me fournir.

[LedZeppII]

Bonsoir,

une solution consisterait à créer la requête en vba.

Exemple basé sur la table [Détails Commandes] de la base exemples COMPTOIR.MDB comme point de départ:

Code vba :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Dim db As DAO.Database, qd As DAO.QueryDef
Dim strQueryName As String, strSQL As String, strWHERE  As String
Dim NbLig As Long, NbLig2 As Long
 
strQueryName = "MaRequete"
Set db = CurrentDb
On Error Resume Next
Set qd = db.QueryDefs(strQueryName)
On Error GoTo 0
 
' Si la requête n'existe pas, on la crée
If qd Is Nothing Then
   Set qd = db.CreateQueryDef(strQueryName)
End If
 
' Critère de sélection
strWHERE = "[Quantité]>110"
 
' Compte des lignes
NbLig = DCount("*", "Détails commandes", strWHERE)
' 95% des lignes
NbLig2 = 0.95 * NbLig
 
' Ajustement
If NbLig2 = NbLig Then NbLig2 = NbLig2 - 1
 
' Génération du SQL
strSQL = "SELECT TOP " & CStr(NbLig2) & " * FROM [Détails commandes]" & vbCrLf & _
         "WHERE " & strWHERE
 
' On met le SQL dans la requête
qd.SQL = strSQL
db.Close
 
DoCmd.OpenQuery strQueryName

A+

[yapud]

Merci beaucoup !

J'ai pu résoudre mon problème grâce à ta solution !!!

Un grand merci !