Discussion :

[1tsiMat]

Vous allez commencer à me connaitre avec tous mes posts
Une petit détail m'avait échappé ...
Voici mon travail, tout a été créé (mais petit rappel )

Ma base de données :
- un produit correspond à 1 ou plusieurs accessoires,
- un produit correspond aussi à 1 ou plusieurs packs,
- un pack = plusieurs accessoires,
- un accessoire peut appartenir à plusieurs packs.

J'ai donc créer 4 tables :
- produit(code_produit, libelle_produit),
- accessoire (ref_accessoire nom_accessoire prix_accessoire commentaire code_produit#),
- pack(ref_pack nom_pack prix_pack commentaire code_produit#),
- pack_accessoire (ref_pack#, ref_accessoire#).

Je dispose d'un formulaire principal, un sous-formulaire accessoire, un autre sous-formulaire pack, un sous-formulaire accessoire_pack qui se situe dans le sous-formulaire pack (un sous-sous-formulaire quoi )

Arborescence :
- produit (formulaire principal)
- accessoire
- pack
- pack_accessoire

J'ai une liste déroulante dans pack_accessoire, qui prend les accessoire situés dans la table accessoire.
Problème : la liste contient TOUS les accessoires, or je voudrais seulement les accessoires qui se situent dans le formulaire accessoire?
Vous êtes toujours là?
Si c'est pas très clair pour vous dites-le moi, s'il est question de code VBA n'hésitez pas j'commence à comprendre
Merci à ceux qui pourront m'éclairer

P.S.: Désolé si c'est pas très clair

[LedZeppII]

Bonsoir,

J'essairai de modifier le contenu de la liste à chaque changement de produit.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
strSQL = "SELECT * FROM Accessoire WHERE code_produit=" & Me.code_produit & ";"
Me.Pack.Form.accessoire_pack.Form.listeAccessoire.RowSource=strSQL
Me.Pack.Form.accessoire_pack.Form.listeAccessoire.Requery

Pack = sous-formulaire du formulaire principal (Me)
accessoire_pack = sous formulaire du sous-formulaire Pack
listeAccessoire = la liste déroulante

Je n'ai pas testé mais je crois l'idée c'est ça.
A+

[1tsiMat]

Rien ne se passe ... peut être ai-je mal placé le code ... je l'ai mis dans beforeupdate sur ma liste déroulante ... donc soit c'est pas bon, soit j'ai mal placé le code

Le code donne (mes modifications sont soulignées) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub ref_accessoire_BeforeUpdate(Cancel As Integer)
    
    strSQL = "SELECT ref_accessoire FROM accessoire WHERE code_produit=" & Me.code_produit & ";"
    Me.Pack.Form.accessoire_pack.Form.ref_accessoire.RowSource = strSQL
    Me.Pack.Form.accessoire_pack.Form.ref_accessoire.Requery
    
End Sub

Edit :

Euh petite question (bete ) dans les propriétés de ma liste je laisse

Origine source : Table / Requete
Contenu : SELECT ref_accessoire FROM accessoire;?

[1tsiMat]

Plus personne pour m'aider ?????

[LedZeppII]

Bonjour

Le code que j'avais mis en exemple était écrit au niveau du formulaire principal.
J'ai supposé que code_produit était dans le formulaire principal et que la liste ne devait lister
que des références d'accessoires associées à ce code_produit.

Je mettrai le code dans l'évènement Form_Current du formulaire principal, pour la liste s'actualise quand tu changes d'enregistrement.

Réponse à la deuxième question:
Oui tu laisse ces propriétés.

Bon courage

[1tsiMat]

Ca y est j'ai enfin trouvé
Merci LedZeppII pour ton aide précieuse et j'ai rajouté un peu de code de la faq En bref un beau mix, mais le résultat est là
Mais je vous avoue que j'étais au bord de


EDIT :

Je viens de faire le ménage dans le codage et en fait j'utilise même pas le code LedZeppII mais merci quand même de t'être investi
J'ai seulement utilisé le code donné dans la FAQ, mais comme avant je comprenais rien au code VB (1ère fois que je le voyais ) et vu que j'ai un peu plus de connaissance sur ce code (du moins comment l'utiliser ) et bien j'ai réussi à l'utiliser ...