Discussion :

[marcoO]

Bonjour,

je dispose de 2 tables:

- DOMAINE ( N°_Domaine, Nom_Domaine)
- MATIERE ( N°_Matiere, Nom_Matiere, N°_Domaine)

Ces deux tables sont liées par la clée primaire N°_Domaine.DOMAINE et la clée étrangère N°_Domaine.MATIERE.

Je cherche à réaliser un formulaire dans lequel j'aurais:
- une zone de liste modifiable où s'afficherait le champ Nom_Domaine (facile).
_ une autre zone de liste modifiable où s'afficherait UNIQUEMENT les Champs Nom_Matiere ayant la clée étrangère identique à l'option choisie dans la première liste modifiable. Je souhaiterais que celà soit dynamique.

Il m'a semblé qu'un sous formulaire était la solution mais rien n'y fait il m'affiche tous les enregistrements du champ Nom_Matiere et se moque éperdument de la donnée Nom_domaine.

Je me doute bien que j'en suis le fautif mais je ne sais pas comment m'y prendre.

En substance la question est:

comment afficher un ou plusieurs enregistrements dans une liste modifiable lorsque cette dernière dépend d'une option préalablement définit par une zone de liste modifiable ou des boutons radio ou que sais-je encore ?

Quelqu'un peut-il m'aider ? Par avance merci MarcoO !

[zEndymion]

Bonjour,

Tu peux mettre sur l'evenement Afterpdate de ta première liste :

Code :

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

1
2
me.MaListe2.RowSource = "SELECT Zone1, Zone2 FROM MaTable Where CleEtrangere = '" & me.MaListe1 & "'"
me.MaListe2.Requery

[marcoO]

Merci, cependant j'espérais bien me passer du code VB.

Bon j'ai besoin d'explications complémentaires.

- suis-je obligé de travailler avec un sous formulaire ?

- dans le code :

Code :

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

1
2
 me.MaListe2.RowSource = "SELECT Zone1, Zone2 FROM MaTable Where CleEtrangere = '" & me.MaListe1 & "'"
me.MaListe2.Requery

Que sont Zone1 et Zone 2 ?

Par avance merci MarcoO!

[zEndymion]

Bonjour,


Qui a parler de sous-formulaire ?

Zone1 & 2 sont le nom des champs de ta table ou de ta requète que tu veux afficher dans ta liste.

Pour info liste1 & 2 sont tes 2 zone de liste

A+

[marcoO]

Bonjour,

Merci à toi MacGiver pour l'intérêt que tu portes à mon petit problème.

Ta réponse ne m'enchante pas car c'est exactement ce que je pensai et après avoir modifié la première zone modifiable, lors de l'intervention sur la deuxième une erreur s'affiche "type de données incompatibles avec le critère"

En regardant la requête que tu m'offres je m'aperçois que Clée étrangère (numérique)= Nom_Domaine (Texte).

Je pense que le problème se situe là.

Je te redonne l'énoncé :

- DOMAINE ( N°_Domaine, Nom_Domaine)
- MATIERE ( N°_Matiere, Nom_Matiere, N°_Domaine)

Ces deux tables sont liées par la clée primaire N°_Domaine.DOMAINE et la clée étrangère N°_Domaine.MATIERE.

Je cherche à réaliser un formulaire dans lequel j'aurais:
- une zone de liste modifiable où s'afficherait le champ Nom_Domaine (facile).
_ une autre zone de liste modifiable où s'afficherait UNIQUEMENT les Champs Nom_Matiere ayant la clée étrangère identique à l'option choisie dans la première liste modifiable. Je souhaiterais que celà soit dynamique.

Peux-tu m'aider pour la réécriture du code

Code :

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

me.MaListe2.RowSource = "SELECT Zone1, Zone2 FROM MaTable Where CleEtrangere = '" & me.MaListe1 & "'"

[zEndymion]

Bonsoir,

Il suffit de l'enlever les cotes :

Code :

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

1
2
me.MaListe2.RowSource = "SELECT Zone1, Zone2 FROM MaTable Where CleEtrangere = " & me.MaListe1

Pour rappel :

• Filtre = '" & Val(String) & "'" --> Pour du texte
• Filtre = " & Val(Numéric) --> Pour du numeric
• Filtre = #" & Format(Val,"MM/DD/YYYY") & "#" --> Pour les dates

En espérant t'avoir aidé

[marcoO]

Bonjour MacGiver, et tout à chacun

J'avance grace à tes conseils, je touche au but mais je rencontre une nouvelle difficulté, je l'expose :

2tables
- DOMAINE ( N°_Domaine, Nom_Domaine)
- MATIERE ( N°_Matiere, Nom_Matiere, N°_Domaine)

Ces deux tables sont liées par la clée primaire N°_Domaine.DOMAINE et la clée étrangère N°_Domaine.MATIERE.

Lorsque je réalise la requête imbriquée suivante dans l'application requête d'ACCESS elle fonctionne et me renvoie les deux enregistrements voulus:

Code :

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

1
2
3
SELECT [Nom_Matiere]
FROM MATIERE
WHERE [N°_Domaine]=(SELECT [N°_ Domaine] FROM DOMAINE WHERE [Nom_Domaine]="Transversalité");

Mais quand je l'insère dans mon code liée à ma zone de liste modifiable la deuxième liste m'affiche tous les enregistrement et non les deux voulus:

Code :

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

1
2
3
4
Private Sub Zone_Liste_Domaine_AfterUpdate()
Me.Zone_Liste_Matiere.RowSource = "SELECT [Nom_Matiere] FROM MATIERE WHERE [N°_Domaine]=(SELECT [N°_Domaine] FROM DOMAINE WHERE [Nom_Domaine]='Transversalité')"
Me.Zone_Liste_Matiere.Requery
End Sub

Pour Quelle raison ?

[zEndymion]

Bonjour,

Remplace le "=" par un "In" dans

Code :

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

SELECT [Nom_Matiere] FROM MATIERE WHERE [N°_Domaine] In (SELECT [N°_Domaine] FROM DOMAINE WHERE [Nom_Domaine]='Transversalité')

[marcoO]

Merci MacGiver

Eh bien Non ça ne marche pas, mais ça ne m'étonne pas: les requêtes fonctionnent hors d'un code VB mais dans un sub le fonctionnement est différent.

Je me demande si je ne devrais pas passer par Recordset peux-tu m'aider?

Merci MarcoO !

[Tofalu]

Bonjour

http://access.developpez.com/sources...s#FiltrerListe

[marcoO]

Merci pour la redirection mais je ne perçois pas en quoi mon code est incorrect même après avoir lu ce lien. Pourtant ça coince....

2tables
- DOMAINE ( N°_Domaine, Nom_Domaine)
- MATIERE ( N°_Matiere, Nom_Matiere, N°_Domaine)

Ces deux tables sont liées par la clée primaire N°_Domaine.DOMAINE et la clée étrangère N°_Domaine.MATIERE.

Code :

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

1
2
Private Sub Zone_Liste_Domaine_AfterUpdate() Zone_Liste_Matiere.RowSource = "SELECT [Nom_Matiere] FROM MATIERE WHERE [N°_Domaine]=(SELECT [N°_Domaine] FROM DOMAINE WHERE [Nom_Domaine]='"& Zone_liste_Domaine &"')" 
Zone_Liste_Matiere.Requery End Sub

Merci d'avance

[Tofalu]

Le filtre devrait plutot être appliqué à N° Domaine plutot que nom_domaine non ?

[marcoO]

En fait je ne pense pas car:

Zone_Liste_1 affiche le nom d'un domaine (Mathématiques,.....) et non un identifiant car pour l'utilisateur cela ne représente rien.

Je récupère L'Identifiant correspondant au nom sélectionné par

Code :

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

(SELECT [N°_Domaine] FROM DOMAINE WHERE [Nom_Domaine]='"& Zone_liste_1 &"')"

et recherche toutes les matières (calcul, problèmes, géométrie...) afférentes au domaine choisi et ce sont ces matières qui s'affichent dans Zone_Liste_2 grace à la première partie de la requête :

Code :

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

"SELECT [Nom_Matiere] FROM MATIERE WHERE [N°_Domaine]=( l'identifiant trouvé dans la requete du dessus

Mais je réitère mon constat ça marche Lorsque je réalise la requête imbriquée dans l'application requête d'ACCESS mais pas issu du code VBA:

Pourquoi ? je n'en sais rien

[marcoO]

Merci à chacun d'entre-vous

Ne cherchez plus en bidouillant ça marche mais la logique m'échappe

j'ai écrit:

Code :

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

1
2
3
4
Private Sub Zone_Liste_Domaine_AfterUpdate() 
Me.Zone_Liste_Matiere.RowSource = "SELECT [Nom_Matiere] FROM MATIERE WHERE [N°_Domaine]="&Zone_Liste_Domaine&";"
Me.Zone_Liste_Matiere.Requery 
End Sub

Car N°_Domaine est un numérique et Zone_Liste_Domaine est un texte ????

Peut-être ai-je joué sur les propriétés de Zone_Liste_Domaine et qu'il ne renvoie pas une chaine de caractère mais l'identifiant ?????

@ Bientôt MarcoO