Discussion :

[RudyWI]

Bonjour,

J'ai une table Genre avec :
id (cle primaire)
nom
...

Et une table Musique avec :
id (cle primaire)
titre
artiste
id_genre (cle etrangère reprenant l'id du Genre auquel la musique appartient)
...

Je veux faire un formulaire avec une liste déroulante des Genres, et que lorsque j'en sélectionne un, il m'affiche la liste des musiques lui appartenant.

Donc j'ai créé un formulaire vide.
J'y ais inséré une liste déroulante sur une requete

Code :

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

Select * From Genre Order By Genre.Nom

donc j'obtiens une liste des genres que je peux sélectionner.

Je bloque sur le reste, c'est à dire l'affichage de la liste des musique en fonction du genre sélectionné.

Vous pouvez m'aider svp ?

Merci.

[Jean-Philippe André]

Bonjour RudyWI,
une solution est disponible dans la FAQ :
http://access.developpez.com/faq/?page=zdl#DepZdl
Si des points te paraissent encore obscurs n'hésite pas à nous poser des quesions.

Bonne lecture.

[RudyWI]

Merci jpcheck, j'ai suivi la FAQ et écris ce code :

Propriétés de la liste déroulante "Genre", contenu :

Code :

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

SELECT [Genres tries].Nom FROM [Genres tries];

sachant que "Genre tries est une requete" :

Code :

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

SELECT Genre.id, Genre.Nom FROM Genre ORDER BY Genre.Nom

Evènement si modification sur la liste déroulante :

Code :

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

1
2
3
Private Sub Genre_Dirty(Cancel As Integer)
    Me.ListeMusiques.Requery
End Sub

Propriétés de la liste "Musique", contenu :

Code :

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

SELECT Musique.Titre FROM Musique WHERE Musique.id_genre=Forms![Liste des musiques par genre].Genre.id;

Le pb c'est que ça ne marche pas : la liste des musiques reste vide, peu importe le Genre que je sélectionne :s

[Falcdyr]

Je pense qu'il vaut mieux faire un Evenement "Après Maj" sur ton genre:

Code :

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

1
2
3
4
 
Dim SQL As String
SQL = "SELECT Musique.Titre FROM Musique WHERE Musique.id_genre= '" & Me.TonChampIdGenre & "' "
Me.TonChampMusique.RowSource = SQL

En esperant que ca t'aide

[RudyWI]

Oki, ça marche, merci.

Y'avait un autre pb qui faisait que ça marchait pas : les champs "id" de mes table étaient de type "Texte".
C'est normal ?


Sinon, juste pour savoir, quelle est la différence entre Me.monChamps et Me!monChamps ?

[Jean-Philippe André]

Salut,
on utilise habituellement un champ numérique pour les ID de tables.

Pas de réelle différence entre Me. et Me!

[RudyWI]

Oki. ben merci bien pour votre aide.

@Bientôt.