Discussion :

[spitfire26]

Bonsoir,

Je suis debutant en Access, j'ai un Formulaire Facture avec 3 zones à listes déroulantes (ID_Familles, ID_Sous Familles, ID_Produit) qui sont dépendantes entre elles.

Des produits appartiennent à une Sous Famille, et plusieurs sous Familles appartiennent à une Famille, bien sur.

Dans ce Formulaire lorsque je crée un nouvel enregistrement, je peux choisir uniquement dans la liste déroulante ID_Famille, mais elle ne met pas à jour ID_Sous_Famille, et ID_Produit ainsi je ne peux plus choisir ni ID_Sous Famille ni ID_Produit à facturer.

Seul les choix correspondants au premier enregistrement sont présents dans tous les autres enregistrements


Voici mon Formulaire


Merci Pour votre aide

[ClaudeLELOUP]

Bonjour,

qui sont dépendantes entre elles.

Vérifie que le code qui rend ces zones de liste interdépendantes est bien situé dans l'événement « Sur activation » de ton formulaire.

C'est-à-dire qu'il se déclenche à chaque lecture d'un enregistrement.

[spitfire26]

Bonsoir,

Merci pour l"astuce de l'activation du formulaire.

Mais je ne suis pas arrivé à trouver la solution depuis 2 jours.

Voici ce que J'obtiens avec le code que j'ai essayé.



Comme vous voyez, pour les controles ID_Sous_Famille et ID_Produits, Si je selectionne un enregistrement il se remet en blanc dans l'autre enregistrement.

Voici le code que j'ai tapé.

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
Private Sub Form_Current()
Me![ID_Famille].RowSource = "SELECT T_Liste_Produits.ID_Famille, T_Liste_Produits.Famille FROM T_Liste_Produits GROUP BY T_Liste_Produits.ID_Famille, T_Liste_Produits.Famille ORDER BY T_Liste_Produits.Famille;"
Me.[ID_Sous_Famille].RowSource = "SELECT T_Liste_Produits.ID_Sous_Famille, T_Liste_Produits.Sous_Famille, T_Liste_Produits.ID_Famille FROM T_Liste_Produits GROUP BY T_Liste_Produits.ID_Sous_Famille, T_Liste_Produits.Sous_Famille, T_Liste_Produits.ID_Famille, T_Liste_Produits.Famille HAVING (((T_Liste_Produits.Famille) = [Formulaires]![S/F_Factures_New2]![Famille])) ORDER BY T_Liste_Produits.ID_Famille;"
Me![ID_Produit].RowSource = "SELECT T_Liste_Produits.ID_Sous_Famille, T_Liste_Produits.Produit, T_Liste_Produits.ID_Produit FROM T_Liste_Produits WHERE (((T_Liste_Produits.Sous_Famille) = [Formulaires]![S/F_Factures_New2]![Sous_Famille])) GROUP BY T_Liste_Produits.ID_Sous_Famille, T_Liste_Produits.Produit, T_Liste_Produits.ID_Produit ORDER BY T_Liste_Produits.Produit;"
End Sub
 
Private Sub ID_Famille_AfterUpdate()
Me![Famille] = Me![ID_Famille].Column(1)
End Sub
 
Private Sub ID_Sous_Famille_AfterUpdate()
Me![Sous_Famille] = Me![ID_Sous_Famille].Column(1)
End Sub
 
Private Sub ID_Produit_AfterUpdate()
Me![Produit] = Me![ID_Produit].Column(1)
End Sub

Merci pour votre aide.

[ClaudeLELOUP]

Bonjour,

Quand tu postes du code, tu dois l'insérer dans les balises !

http://dolphy35.developpez.com/images/Balises.gif


Pour comprendre ce qu'il se passe quand tu changes d'enregistrement regarde ici : http://claudeleloup.developpez.com/t...s7jours/#LVIII