Dans le Formulaire principal (F_commande3), j’ai un sous formulaire (Formulaire1). Dedans, j’ai (entre autres) 2 zones de listes déroulantes.
* La première (C_Categorie), contient une liste de catégorie de produits que j’ai rentrés manuellement. La procédure événementielle de cette zone de liste déroulante après mise à jour est :
1 2 3
| Me.C_Produit = Null
Me.C_Produit.Requery
Me.C_Produit = Me.C_Produit.ItemData(0) |
* La seconde zone de liste déroulante (C_Produit) repose sur une table (T_Produit). La requête SQL de cette zone de liste déroulante est la suivante :
SELECT T_Produit.[nom produit] FROM T_Produit WHERE (((T_Produit.[catégorie])=Formulaires!F_commande3!Formulaire1!C_Categorie));
Ceci étant, je me permets de rappeler que code fonctionne parfaitement sur mon PC portable Dell, mais pas sur le PC portable HP de mon patron. Malgré les versions de Windows identiques, les mêmes services Pack 2, la même version de Access (2003), la même version de VBA (6.3).
De plus, autre bizzarerie, ce code et ces zones de liste déroulante fonctionnent parfaitement sur un ordinateur HP quand elles sont placées dans un formulaire, mais plus quand on est dans un sous-formulaire (ce qui est le cas ici).
Partager