Boucle pour parcourir les enregistrements d'une requête dynamique

Version imprimable

12/01/2018, 21h05
adama13

1 pièce(s) jointe(s)

Boucle pour parcourir les enregistrements d'une requête dynamique

Bonjour chère membre. Je sollicite votre aide en VBA ACCESS

En effet j’ai un formulaire de recherche basé sur une requête dynamique.

Le formulaire propose une liste déroulante qui comprend le nom des clients.
Lorsqu’on choisit le nom du client le formulaire se rafraîchit et affiche uniquement les info de ce client.

Mon but est par la suite (Après l’évènement mise a jour de cette liste déroulante) parcourir le champ numero_commande et les stocker dans une variable. J’ai pensé a utiliser une boucle mais il me stocke que le premier numero_commande, or moi je souhaiterais parcourir tous les numero_commande qui s’afficheront.

Je joins ma base pour de plus ample info, elle au format ACCESS 2000. Le formulaire en question est fHistoriqueCommande

Pièce jointe 342155

Donc je resume : Comment parcourir les enregistrements d’un formulaire a l’aide d’une boucle et les stocker dans une variable pour une utilisation ultérieure ?

Merci d'avance pour votre aide :D

Bonjour.

Stocker les résultats d'une requête dans une variable ne me parait pas la meilleur chose à faire.

Ceci dit pour répondre à ta question, tu peux utiliser un objet de type Collection.

Ici un exemple de code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
public function LireListeCommande(prmForm as form) as collection
   dim result as new Collection
   dim r as dao.recordset: set r=prmForm.recordsetclone 'Accède à une copie des données
 
   '=== Parcoure les enregistrements du formulaire
   do while not r.eof
      call result.add(r![numero_commande])
      r.movenext
   loop
   '--- Parcoure les enregistrements du formulaire
 
   set r=nothing
   set LireListeCommande=result:set result=nothing
end function

Pour l'utiliser

Code:

1
2
3
4
5
6
dim listeCommande as collection
set listeCommande=LireListeCommande(me) 'Lit les commandes du formulaire où s'éxécute ce code.
dim numCommande as variant: for each numCommande in listeCommande
   debug.print numCommande
next numCommande
set listeCommande=nothing

La collection accepte n'importe quel type donc tu pourrais passer quelque chose de plus complexe qu'un simple numéro de commande.

A+

13/01/2018, 08h40
adama13

Bonjour Marot content de vous revoir😁, sa faisait un moment👋

Citation:

Envoyé par marot_r

Stocker les résultats d'une requête dans une variable ne me parait pas la meilleur chose à faire.

Je me suis mal exprimé on dirait....
Mon but est de récupérer ces numéro de commande et pouvoir ensuite effectuer des actions spécifiques. Il s'agit d'additionner la quantité d'un même articles présent dans ces numéro de commandes
Ex: si le numéro commande 2 à pour détail commande 4 citron, 3 ananas et le numéro de commande 5 à pour détail commande 2 citron, 4 ananas. Je souhaiterais avoir dans le même formulaire le résultat suivant
citron 6
ananas 7

Si je pouvais récupérer ces numéro de commande qui s'affiche dans le formulaire grâce à une boucle alors j'executerais une requête sélection qui selectionnerais le détail de la commande et m'additionnerais la quantité en fonction du produit

J'ai placer le code de la fonction LireListeCommande juste après l'option explicit puis sur
l'événement after-update de ma liste déroulante FiltreNomClient qui me liste le nom des clients j'ai placé le reste du code c'est à dire
dim listeCollection as Collection
Set listeCommande = LireListeCommande(me)
.........

Mais après mise à jour de cette liste déroulante un message d'erreur se déclenche
Aucun enregistrement en cour

C'est sûrement moi qui ne c'est pas ou place votre code.

Si vous ne comprenez pas toujours ce que je veux obtenir comme résultat alors dite le moi, je ferais des captures d'ecran de ce je je veux
15/01/2018, 01h41
marot_r
Bonjour.

OK, compris.

Remplace donc ton code par une requête de regroupement et un sous-formulaire.
Access va faire tout le boulot pour toi.
1. Pour faire une requête de regroupement faire une requête de sélection (une requête "ordinaire") avec les champs qui t'intéresse (ici la commande et le code produit 2 fois).
2. Verifie que ta requête donne bien ce que tu attends.
3. Reviens en mode création et appuis sur l'icône Total (celle avec le sigma majuscule qui ressemble à un 3 à l'envers).
4. Access affiche une ligne "Regoupement".
5. Pour la commande tu choisis "Refroupement"
6. Pour le 1er code produit tu choisis "Refroupement".
7. Pour le 2nd code produit tu choisis "Compter" (ou quelque chose comme cela).
8. Vérifie que ta requête donne bien ce que tu attends, c-à-d : la commande, le code produit et le nombre de produits de ce type dans la commande.
9. Pour éviter d'avoir un champ nommé du genre "Nombre de CodeProduit", tu peux utiliser un alias en mettant devant le 2nd codeProduit quelque chose comme NbProduit:.
Pour l'erreur, est-ce qu'il y a bien des enregistrements dans le formulaire ?

A+
22/01/2018, 12h02
adama13

Bonjour
Ok superbe:D c'est exactement ce que je voulais.
Merci infiniment d'être toujours la, Marot :lol::lol::lol: