Discussion :

[Shinoda00]

Bonjour,

J'ai un problème de listes déroulantes liées (malgré le tuto disponible sur le site).

Voici à quoi ça ressemble:


Une liste déroulante nommée "Type" contient des valeurs 1 (pour l'étiquette Produit) et 2 (pour l'étiquette Menu).

Suivant le choix effectué, la liste déroulante "Produit_vendu" se met à jour en n'affichant que les produits si Type vaut 1 ou que les menus si Type vaut 2.

Problème, ça ne marche pas!

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Type_AfterUpdate()
Dim Valeur As Long
Dim SQL As String
If Not IsNumeric(Me!Type) Then Exit Sub
Valeur = Me!Type
If Valeur=1 Then
SQL="SELECT [Produit].[id_produit], [Produit].[nom_produit] FROM [Produit]"
Else
SQL="SELECT [Menu].[id_menu], [Menu].[nom_menu] FROM [Menu]"
Produit_vendu.RowSource = SQL
Produit_vendu.Enabled = True
Produit_vendu.SetFocus
Produit_vendu.Dropdown
End Sub

Qu'est-ce qui cloche ? Merci pour vos réponses.

[Marc_27]

Bonjour,
Il me semble qui t'as oublié le "End If":

Code :

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

1
2
3
4
5
If Valeur=1 Then
    SQL="SELECT [Produit].[id_produit], [Produit].[nom_produit] FROM [Produit]"
Else
    SQL="SELECT [Menu].[id_menu], [Menu].[nom_menu] FROM [Menu]"
End If

[fgiambelluco]

Bonjour
..et peut être rajouter un Requery

Code :

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

1
2
Produit_vendu.RowSource = SQL
Produit_vendu.Requery

[Marc_27]

C'est vrai...
Je me suis arreté au "End If".

[miamou]

Bonjour;

Une liste déroulante nommée "Type" contient des valeurs 1 (pour l'étiquette Produit) et 2 (pour l'étiquette Menu).

Suivant le choix effectué, la liste déroulante "Produit_vendu" se met à jour en n'affichant que les produits si Type vaut 1 ou que les menus si Type vaut 2.

Personnellement je procèderai de la manière suivante (que je crois plus simple ):
* je créerai la liste type où le contenu provient de la table des types (en utilisant l'assistant)
* Pour la deuxième liste "Produit_vendu" je vais sur la propriété Données--> Contenu et je metterai la requete suivante (tjr avec l'assistant):
je selectionnerai la table des produits vendus, les champs à afficher c'est le Id de la table et le nom des produits vendus et un champ caché c'est le Id du type (la clé étrangère).dans le critère de ce dernier je metterai :[Forms]![NomFormulaire]![Produit_vendu] et dans l'évènement Après MAJ mettreoCmd.Requery
c'est un peu long mais c'est très facile à mettre en oeuvre

[Shinoda00]

Ca ne marche toujours pas.

Je me permets de poster mon fichier (épuré au maximum) car je ne vois vraiment pas le problème.

TELECHARGER

Merci pour votre aide

[fgiambelluco]

Re

Ben....chez moi ça marche très bien.

Quand je choisis Menu j'ai produit3
Quand je choisis Produits j'ai produit1 et produit2

Les symptomes chez toi c'est quoi ??

[Shinoda00]

Rien ne change dans la 2ème liste déroulante.

Problème de configuration d'Access ?

EDIT: problème résolu, macros désactivées en fait!

Merci pour vos différentes aides.

[BW7541]

Bonjour Miamou, j'ai appliqué ta solution mais ça ne fonctionne pas sur un formulaire de type Tableau (une ligne par enregistremet) car la deuxième liste
affiche systématiquement les enregistrements liés à la table de la première ligne et non celle sur laquelle je clique.

D'ou vient ce problème?

Merci d'avance

[miamou]

alors là je suis perdu et j'arrive pas à comprendre
j'ai besoin de plus de détail stp BW7541