Discussion :

[meriem.alaooui]

Bonjour,
j’espère cette fois ci que quelqu'un m'aide à résoudre ce problème qui me bloque totalement
ma petite base se compose des tables suivantes :
Table : T_series Champs : codeseri (clé) , serie
table : T_matieres Champs : ID(clé) , codeseri , codemati, matiere
table : T_listeproff Champs : PPR , NOM & PRENOM ; serie (liste déroulante baseé sur la Table T_series) , matiere (liste déroulante basée sur la Table T_matieres).
un formulaire : FT_listeproff basé sur la table listeproff
je voudrais que dans mon formulaire quand je choisi une serie de champ serie et je passe au champ matiere il me filtre seulement les matieres de cette serie choisie
Merci beaucoup d'avance.

[jimbolion]

meriem bonsoir

La réponse est ici:

http://access.developpez.com/faq/?page=zdl#DepZdl

jimbolion

[meriem.alaooui]

Rebonjour jimbolion,
tout d'abord Merci pour la réponse.
je dis que peut être je me suis mal exprimé voila : les listes dont j'ai parlé je les ai crée au départ dans la table (T_listeproff) donc se sont deux champs qui contiennent des lites déroulantes extraient de deux table : (T_matieres) et ( T_series) alors quand j'ai mis les codes VB comme dans le tuto :

Code :

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

1
2
3
SELECT T_matieres.ID, T_matieres.matiere, T_matieres.codeseri
FROM T_matieres
WHERE (((T_matieres.codeseri)=[Formulaires]![FT_listeproff]![serie]));

et

Code :

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

1
2
3
Private Sub serie_Change()
Me.matiere.Requery
End Sub

je reçois le message suivant :
Merci je suis vraiment perturbée.

[jimbolion]

meriem re-

J'avais bien compris ton message je pense. La nature de ton message j'avoue me laisse perplexe. J'ai donc procédé à partir de ton exemple à l’alimentation de la deuxième liste déroulante. La requête de la zone de liste devenant donc :

Code :

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

SELECT T_matieres.ID, T_matieres.codeseri, T_matieres.codemati, T_matieres.matiere FROM T_matieres WHERE (((T_matieres.codeseri)=[Forms]![FT_listeproff]![serie]));

Afin de rafraîchir cette liste, j'ai utilisé la propriété AfterUpdate sur le champ serie ce qui nous donne :

Code :

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

1
2
3
Private Sub serie_AfterUpdate()
    Me.matiere.Requery
End Sub

Le fonctionnement de ces deux zones fonctionnent parfaitement. Ci-joint ton exemple corrigé.

jimbolion

[meriem.alaooui]

Salut jimbolion,
Très reconnaissante je suis auprès de vote collaboration,
mais je tiens à vous informer que je reçois le message suivant dés que je fais un choix de liste serie:

est ce une question de version d'Access?
Merci.

[jimbolion]

Meriem,

oui ou d'une référence manquante !

dans un module VBA outils puis références

Jimbolion

[meriem.alaooui]

Bonjour à tous et à toutes,
dans ce weekend j'ai désinstallé le Windows et le Office et je les ai installé à nouveau pour savoir c'est le problème vient d'Access mais le problème persiste .
j’espère que quelqu’un m'aide pour en sortir Merci

[Renardo]

Bonjour,
Quand tu es dans le VBA tu clic sur l'onglet Outil et tu sélectionne référence
regarde si dans la liste des sélectionnés il n'y en a pas un qui est manquant

[meriem.alaooui]

Bonsoir à tous et à toutes
Merci beaucoup c'est parfait c'est vraiment question d'office après avoir installer un office complet de 1.23 G ça marche très bien
Merci jimbolion et Renardo les professionnels restent toujours des professionnels.