Retranscrire une Requête avec calcul en VBA [Résolu]

[xargin]

bonjour,
j'ai une requête qui calcule une quantité totale, par matière.
dans l'analyseur de requête, la colonne ou se trouve le résultat, est correcte, c'est a dire que dans cette colonne le résultat est bien calcule et qu il n y a pas d erreur.

Mon problème, c'est que dans vba, quand j affiche le résultat, non seulement il n est pas bon, mais en plus, je ne sais pas a quoi il correspond.

voici mon code:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
selmptot = "select MPF.NomMP, QteDispo, round(sum(QtekgNecessaire),4) as qtetotmputilisee from MPF, MATIERE_PREMIERE as mp"
selmptot = selmptot & " where MPF.NomMP=mp.NomMP and RefFou='MPFT'"
selmptot = selmptot & " group by MPF.NomMP, QteDispo;"
Set rsmptot = CurrentDb.OpenRecordset(selmptot)
rsmptot.MoveFirst
Do Until rsmptot.EOF
Dim qtetotmp
Dim qtempstock
Dim nommp
qtetotmp = rsmptot.Fields("qtetotmputilisee").Value
nommp = rsmptot.Fields("NomMP").Value
MsgBox (nommp & ", " & qtetotmp)
Dim majbesoin As String
rsmptot.MoveNext
Loop

[loufab]

Bonjour,

Peux-tu poster la requête qui fonctionne ?

Cordialement,

[xargin]

voici ma requete:

Code :

1
2
3
select MPF.NomMP, QteDispo, round(sum(QtekgNecessaire),4) as qtetotmputilisee from MPF, MATIERE_PREMIERE as mp
where MPF.NomMP=mp.NomMP and RefFou='MPFT'
group by MPF.NomMP, QteDispo;

[loufab]

En effet il s'agit de la même requête.

Tu devrais typer tes variables.
Les déclarer avant la boucle et non dedans.

Il se peut que comme il s'agit d'une requete dans VBA elle ne soit pas optimisé. Crée une requete avec des inner join au lieu de la syntaxe WHERE.

Sinon passe par une requete sauvegardée via la méthode CreateQuerydef.

Plusieurs piste à tester comme tu le vois.

Cordialement,

[xargin]

en effet, merci pour ces pistes que je vais étudier

J'édite mon message pour vous dire que cela fonctionne, j'ai déclaré mes variables en dehors de ma boucle.