Discussion :

[alexkickstand]

Bonjour, j'ai fais une requete SQL en VBA sur une table

je fais un select sur 2 champs dont le premier champs avec MAX
mais mon select max ne fonctionnes pas

si j'enleve le deuxieme champs ca fonctionnes ([TBL_SOLID_SOUS_PIECE].[MP])

il me dit que l'item nest pas trouvé
merci d'avance pour de l'aide

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
Dim dbs As Database
 Dim rst As Recordset
 Dim SORT_VAR, SORT_VAR1, SORT_VAR2
 
 
   SORT_VAR1 = "SELECT MAX([TBL_SOLID_SOUS_PIECE].[SP]), [TBL_SOLID_SOUS_PIECE].[MP] FROM [TBL_SOLID_SOUS_PIECE]"
   SORT_VAR2 = " WHERE ((([TBL_SOLID_SOUS_PIECE].[MP]) = '" & test & "'))"
   SORT_VAR = SORT_VAR1 & SORT_VAR2
 
   Set dbs = CurrentDb
   Set rst = dbs.OpenRecordset(SORT_VAR)
 
   With rst
      Item = ![SP]
 
.Close
   End With 'rst
 
msgbox(Item)

Alex

[Demco]

Lorsque tu construis ta requête en VBA, vérifies toujours le résultat de ta concaténation par un :

Code :

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

Debug.Print SORT_VAR

Mets cette ligne avant "Set dbs = CurrentDb", ça permettra d'afficher dans la fenêtre d'exécution le contenu de SORT_VAR.

Puis crée une requête vide où tu colles le code SQL qui se trouve dans la fenêtre d'exécution.
Access te dira alors d'où vient l'erreur.

Je pense qu'il te manque un GROUP BY.

En espérant t'aider.

[alexkickstand]

Lorsque tu construis ta requête en VBA, vérifies toujours le résultat de ta concaténation par un :

Code :

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

Debug.Print SORT_VAR

Mets cette ligne avant "Set dbs = CurrentDb", ça permettra d'afficher dans la fenêtre d'exécution le contenu de SORT_VAR.

Puis crée une requête vide où tu colles le code SQL qui se trouve dans la fenêtre d'exécution.
Access te dira alors d'où vient l'erreur.

Je pense qu'il te manque un GROUP BY.

En espérant t'aider.

Salut merci pour ta réponse

l'erreur est la suivante :

runtime erreur '3122' :
Vous avez essayé d'exécuter une requête ne comprenant pas l'expression spécifiée <MP> comme une partie de la fonction d'agrégat

mise a jour :

j'ai contourné mon problème j'ai enlevé le SELECT MAX et j'ai rajouté un group by "champs" DESC

pour récupérer les dernieres valeurs du champs



Alex