Discussion :

[cedricle2905]

Bonjour

J'aimerai diminuer le nombre de requête dans ma base de données. Pour cela, je souhaite en placer quelques unes dans un module mais je ne sais pas comment m'y prendre.

Explication pour supprimer 4 requêtes
Base de données :
tblRecette (recetteID | NomRecette)
tblIngredient (IngredientID | Ingredient)
tblRecetteComposition (RecetteCompositionID | RecetteID | IngredientID | Quantite|
tblIngredientPrix (IngredientPrixID | IngredientID |DatePrix | Prix)

Requêtes
1 : Calcul poids total des ingrédients dans la recette
2 : Calcul du pourcentage des ingrédients dans une recette de 100 grammes (je souhaite connaitre, pour toutes les recettes le prix aux 100g)
3 : Sélection du prix en fonction de la dernière date qui est elle même inférieure à celle retournée par le formulaire
4 : Calcul du prix en combinant les différents résultats des requêtes.

Objectif
Supprimer ces 4 requêtes, ci cela est possible et les mettre dans un module (je trouve cela plus professionnel et plus compréhensible avec le commentaire du code)

Pourrirez vous m'indiquer les étapes à suivre ou un exemple de code ?

Merci

[Jean-Philippe André]

Bonjour,

tu peux lire un peu de tuto a ce sujet :
http://warin.developpez.com/access/dao/?page=partie_5

ainsi que dans la
http://access.developpez.com/faq/?page=SQL

[cedricle2905]

Bonjour

en faisant une recherche précédente, j'avais pris connaissance de ces cours.

J'arrive à récupérer des résultats d'un requête mais si celle ci n'est pas liée à un formulaire.
Or la mienne à un critère provenant d'un formulaire.

erreur d'exécution 3061. trop peu de paramètres. 1 attendu.

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
20
21
22
23
24
 
Public Function RequeteListe()
Dim qdf As DAO.QueryDef
Dim rcs As DAO.Recordset
 
  ' Référence à la requête
Set qdf = CurrentDb.QueryDefs("rcritere")
  Set rcs = qdf.OpenRecordset
' récupération de la première colonne de la requete 'rcritere'
If Not rcs.EOF Then
      'S'il n'est pas vide on va au premier enregistrement
      rcs.MoveFirst
      'Tant qu'on est pas arrivé à la fin du recordset
      While Not rcs.EOF
           Ingredient = Ingredient & rcs.Fields(0).Value & " "
          'On passe à l'enregistrement suivant
          rcs.MoveNext
      Wend
End If
MsgBox Ingredient
Set res = Nothing
Set qdf = Nothing
 
End Function

merci de votre aide

[cedricle2905]

J'ai réussi. Le problème venait de ma requête qui elle même avait un résultat de requête.