Comment recuperer la valeur d'une case d'une requete en VBA access

Bonjour a tous , j ai fait le tour de la faq et je crois pas que se probleme a été deja provoqué ici

bon voila j ai une requete qui me donne le temps de production de chaque machine , ce que je veus savoir moi c est le temps de production moyen de tout l atelier pour cela il me faudra acceder au valeur de chaque case de ma requete
voici ma requete

Code:

---

SELECT Tableau.TRP From Tableau WHERE Tableau.machine = zonetext.text and Tableau.semaine = zonetext2.text

---

merci à vous dans l attente d une reponse mes salutations les plus distinguées

Voila pour la requête d'une moyenne tu mets avg devant le champ que tu désires.
Après je ne suis pas sur que c'est exactement ce que tu veux mais ca peut t'éclairer
Après au niveau des conditions de la requête j'en ai pas mis parce que je sais pas à quoi correspond ta table tableau.
J'ai donc considéré ici que le tableau contenait toutes les machines et que celle-ci étaient toutes dans le meme atelier

Select avg(Tableau.TRP) FROM Tableau

Bonjour Kalvin,
regarde du côté de la fonction moyenne en SQL : AVG()

La fonction VBA qui permet d'avoir aussi un résultat est DAvg().

Regarde l'aide en ligne pour les syntaxes possibles.

Merci probleme de moyenne regler à l aide de la fonction AVG() merci à vous

1-maintenant dans la meme table je veux faire la meme chose mais au lieu de calculer la moyenne je veux la somme de toutes les cases de ma requete merci

je precise que tableau c'est une table de données qui regroupe toutes les informations concernant mon atelier en gros c'est ma vraie base de données

2-j ai une autre petite question svp, dans la faq j ai trouvé la fonction la CurrentDb.OpenRecordset qui permet d'executer une requete, mais faudra un petit peu nous expliquer comment sa marche exemple : l execution de ma requete est associer au click sur un bouton, sur le generateur de code de mon bouton j ai mis CurrentDb.OpenRecordset("nom de ma requete") mais sa me renvoi une erreur d execution 3061 "trop de parametres.1attendu" est ce que sa veut dire que sa me retourne quelque chose et je dois metre sa result = CurrentDb.OpenRecordset("nom de ma requete") si oui je dois declaré mon result sous quel forme svp ("recordeset,string, tabl.......) sinon expliquez moi svp la sinification de mon erreur et si possible la solution

dans l attente de vos reponses je vous remercie, et je precise que la faq m a trop aider à avancer dans mon projet :king:

Salut,
il ne faut pas oublier qu'en plus de la fameuse FAQ, des sources et d'autres informations sont disponibles un peu partout.

Concernant la somme, je te redirige vers ce paragraphe du cours de SQL Pro : http://sql.developpez.com/sqlaz/select/#L4.6

Pour le OpenRecordset, un long article sur la manipulation de données avec DAO par Warin est aussi à ta disposition : http://warin.developpez.com/access/dao/
et plus particulièrement http://warin.developpez.com/access/d...=partie_5#L5.2

Bonne lecture :king:

merci je m y met de suite et exuse moi si je te derange c est mon deuzieme jour sur ce forum alors forcement je connais pas toutes les sections , je vous tiens au courant de mon evolution allez c partie pour une bonne lecture:king:

Pour la somme c est bon j ai reussi à avoir les resultats que je voulais merciiiiiiiiiii

pour le RecordSet j ai pas bien compris sa sera sympa si vous repondez à mes questions parceque je suis pas assez balaise en access

voila ma requete

Code:

---

SELECT Taleau.semaine FROM Tableau WHERE Tableau.semaine = 10

---

je sais que pour executer une requete on utilise : CurrentDb.OpenRecordset
sa serai plu simple si vous me donnez un exemple de requete appelé dans un formulaire et est ce que c est necessaire de mettre une macro pour l executer ou pas ?
le syntaxe excat? ce qu'elle renvoie?

Merci de me repondre clairement

merci a vous et dsl si je suis un peu chiant :oops:

Salut,

pour le CurrentDb.OpenRecordset :

Je te donne un exemple pour mon cas (je découvre plus ou moins les requetes SQL en VBA et donc vu comment j'ai galéré je veux bien donner mon exemple, si ça peut servir à des gens !)

Code:

---

1 2 3 4 5 6 7 8 9

Dim Variable As String, requeteSQL As String, ValeurChamp1 As Variant Dim rst As Recordset   Variable = "Code02" requeteSQL = "SELECT NomChamp1 FROM NomDeLaTable " _ & " WHERE (((NomChamp2)='" & Variable & "')); " Set rst = dbs.OpenRecordset(requeteSQL) ValeurChamp1 = rst.Fields("NomChamp1")

---

Par contre, si ton résultat de requete contient plusieurs réponses, ou si tu n'es pas sur qu'elle en contienne au moins une il faut absolument faire des tests (par exemple If NOT rst.EOF then ...)

Autre remarque, tout ce qui suit entre le nom de la table et le WHERE correspond à un saut de ligne dans ton code VBA.

Bon voilà,
je ne sais pas si c'était vraiment ça ta réponse mais bon.. Ca peut toujours servir je pense.

Secco