Discussion :

[py86acces]

Bonsoir à tous
Novice en cobe vba, je suis a la recherche d’info sur les liaisons entre champs et liste déroulantes pour un formulaire de devis.
J’ai une table avec une liste de bordereau de prix
IDbord NOMbord
1 BORD1
2 BORD2

+ une avec les articles de chaque bordereau avec liaison IDbord

IDart BORDart CODart DESart
1 1 xx Ehhkhskh
2 2 cc Hkjhhkjhj
3 1 vv kjhjkhjhjkh

Je voudrais dans mon formulaire de devis sélectionner dans une liste déroulante mon bordereau et que plus bas je ne puisse sélectionner que les articles correspondant à ce bordereau
Exemple : section du bord1 et avoir que les articles en CODart ( XX et VV )
Merci pour le coup pouce

[py86acces]

Bonjour à tous
J espère que j étais clair dans mon texte
Même un petit indice!!!

[madefemere]

Bonjour,

D'après ce que je comprends, ce que tu veux faire est filtrer des données (articles) par rapport à une valeur (Bordereau) d'un champ (zone de texte ou liste déroulante).
Normalement cela se fait à travers une requête filtrée qui va alimenter soit un formulaire, soit une zone de liste, soit une liste déroulante.
Après il y a plusieurs façons d'implémenter cela selon les besoins.

Considérons que ton formulaire a comme source et données les champs de ta table des articles.
Et tu as dans son en-tête une liste déroulante nommée "ZdlBordereau" qui te permet de choisir ton bordereau.

Il faut ajouter sur l'évènement après mise à jour de la zone de liste le code :

Code :

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

1
2
3
Me.filter = "BORDart=" & Me.ZdlBordereau
Me.Filter.On = True
Me.Requery

ou

Code :

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

1
2
3
strSQL = " SELECT * FROM T_articles WHERE BORDart=" & Me.ZdlBordereau
Me.Recordsource = strSQL
Me.Requery

La deuxième méthode est facilement adaptable au cas où tu veux filtrer une liste déroulante ou une zone de liste.

Cordialement.

[py86acces]

Bonsoir
Merci pour votre réponse,sympas
Je regard cela a tête reposer
J espère revenir prochainement avec une Bonne Nouvelle
Merci encore êt bonne soirée