Discussion :

[Nanille]

Bonjour,
Je crée une base access et dans mon formulaire de recherche, j'ai des listes déroulantes en cascades qui me permettent de faire ma recherche.
Les enregistrements obtenus s'affichent dans une zone de liste mais je n'arrive à avoir le résultat que lorsque je choisi dans ma dernière liste, j'aimerais que ma zone de liste s'actualise à chaque choix et que du coup ma recherche s'affine au fur et à mesure.
J'ai essayé avec

Code :

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

Me.zonedeliste.Requery

Mais cela ne fonctionne pas.
Est ce quelqu'un a déjà rencontré le problème ?
Merci de votre aide

[zoom61]

Salut,

Il y a aussi le Me.Refresh.

@+.

[Nanille]

Salut Zoom61,
J'ai également testé ce code mais il ne fonctionne pas non plus, a moins que je ne les mette pas au bon endroit.
J'ai testé dans après MAJ, sur perte Focus, sur changement. Rien n'a fonctionné.

[zoom61]

As-tu essayé sur après MAJ des listes :

Code :

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

1
2
3
Me.refresh
Me.zonedeliste.Requery
Me.refresh

@+.

[Nanille]

Je n'avais pas testé,mais cela ne fonctionne pas non plus.
Ma mise à jour de liste se fait grâce à une macro intégrée à ma zone de liste.
Dans propriétés, Données, Contenu j'ai :

Code :

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

SELECT Table_Espèce.Clé_espèce, Table_Espèce.Embranchement, Table_Espèce.Classe, Table_Espèce.Famille, Table_Espèce.[Genre] & " " & Table_Espèce.[Espèce] AS Expr1 FROM Table_Espèce WHERE (((Table_Espèce.Genre)=[Forms]![Recherche]![cboGenre])) ORDER BY Table_Espèce.Embranchement, Table_Espèce.Classe, Table_Espèce.Famille, Table_Espèce.[Genre] & "" & Table_Espèce.[Espèce];

Et il me semble que c'est le :

Code :

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

Table_Espèce.Genre)=[Forms]![Recherche]![cboGenre]

qui permet à l'enregistrement d'être affiché dans la zone de liste.
J'ai essayé aussi de mettre cette même expression avec les nom de mes autres listes en plus mais cela ne fonctionne pas non plus.

[zoom61]

Tu n'as qu'un filtre donc un filtre qui est actif, c'est pour cela que les données ne s'actualisent pas sur les autres listes...

@+.

[Nanille]

Oui ( désolée je ne m'y connais pas encore beaucoup avec access..)
Mais même en l'enlevant cela ne fonctionne toujours pas.
J'obtiens du coup tous mes enregistrements dans ma zone de liste sans qu'ils ne soient triés au fur et à mesure de mes choix.
Et donc même en mettant d'autre filtres sur la macro, seul le dernier était pris en compte.

[zoom61]

Peux-tu envoyer une maquette de ta table ?

@+.

[Nanille]

Je voulais te joindre ma base réduite au maximum avec ma table et mon formulaire de recherche. ( Je ne voyais pas trop ce que tu demandais comme maquette) mais je n'arrive pas à la mettre en pièce jointe (erreur de l'upload) Du coup qu'entends tu par maquette ?

En fait réussi (à joindre le fichier, pas à résoudre mon problème malheureusement)

Je cherche de nouvelles pistes mais pour l'instant rien.
Donc toujours besoin d'aide. Mais si jamais je trouve la réponse j'en ferais part ici.

[Nanille]

Je suis toujours sur le même problème.
Si d'autres personnes ont des idées, elles sont les bienvenues !
Merci encore

[Lyysis]

Un truc surement bête mais essaie de remplacer Forms par Formulaires ^^
Perso dans mes recherches j'utilise ça et ça fonctionne

[Nanille]

Salut Lyysis,
Cela ne change rien dans mon cas, mais merci quand même !

[madefemere]

Bonsoir,

Je te propose ce code sur les évènements AfterUpDate de tes listes déroulantes :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
 
Option Compare Database
Option Explicit
Const SQLFiltre As String = "SELECT Table_Espèce.Clé_espèce, Table_Espèce.Embranchement," _
            & "Table_Espèce.Classe, Table_Espèce.Famille, Table_Espèce.Genre" _
            & " FROM Table_Espèce"
Private Sub cboClasse_AfterUpdate()
Me.lstEspèce.RowSource = SQLFiltre _
                        & " WHERE (((Table_Espèce.Embranchement) = [Formulaires]![Recherche]![cboEmbranchement])" _
                        & " And ((Table_Espèce.Classe) = [Formulaires]![Recherche]![cboClasse]))" _
                        & " ORDER BY Table_Espèce.Embranchement, Table_Espèce.Classe, Table_Espèce.Famille"
Me.lstEspèce.Requery
Me.cboFamille = "Choisissez une Famille"
Me.cboGenre = "Choisissez un Genre"
Me![cboFamille].Requery
[Compte] = "Nombre d'Espèces : " & lstEspèce.ListCount
End Sub
Private Sub cboEmbranchement_AfterUpdate()
Me.lstEspèce.RowSource = SQLFiltre _
                    & " WHERE (((Table_Espèce.Embranchement) = [Formulaires]![Recherche]![cboEmbranchement]))" _
                    & " ORDER BY Table_Espèce.Embranchement, Table_Espèce.Classe, Table_Espèce.Famille"
Me.lstEspèce.Requery
Me.cboClasse = "Choisissez une Classe"
Me.cboFamille = "Choisissez une Famille"
Me.cboGenre = "Choisissez un Genre"
Me![cboClasse].Requery
[Compte] = "Nombre d'Espèces : " & lstEspèce.ListCount
End Sub
 
Private Sub cboFamille_AfterUpdate()
Me.lstEspèce.RowSource = SQLFiltre _
                        & " WHERE (((Table_Espèce.Embranchement) = [Formulaires]![Recherche]![cboEmbranchement])" _
                        & " And ((Table_Espèce.Classe) = [Formulaires]![Recherche]![cboClasse])" _
                        & " And ((Table_Espèce.Famille) = [Formulaires]![Recherche]![cboFamille]))" _
                        & " ORDER BY Table_Espèce.Embranchement, Table_Espèce.Classe, Table_Espèce.Famille"
Me.lstEspèce.Requery
Me.cboGenre = "Choisissez un Genre"
Me![cboGenre].Requery
[Compte] = "Nombre d'Espèces : " & lstEspèce.ListCount
End Sub
 
Private Sub cboGenre_AfterUpdate()
Me.lstEspèce.RowSource = SQLFiltre _
                        & " WHERE (((Table_Espèce.Embranchement) = [Formulaires]![Recherche]![cboEmbranchement])" _
                        & " And ((Table_Espèce.Classe) = [Formulaires]![Recherche]![cboClasse])" _
                        & " And ((Table_Espèce.Famille) = [Formulaires]![Recherche]![cboFamille])" _
                        & " And ((Table_Espèce.Genre) = [Formulaires]![Recherche]![cboGenre]))" _
                        & " ORDER BY Table_Espèce.Embranchement, Table_Espèce.Classe, Table_Espèce.Famille"
Me.lstEspèce.Requery
[Compte] = "Nombre d'Espèces : " & lstEspèce.ListCount
End Sub
 
Private Sub Form_Open(Cancel As Integer)
Me.cboEmbranchement = "Choisissez un Embranchement"
Me.cboClasse = "Choisissez une Classe"
Me.cboFamille = "Choisissez une Famille"
Me.cboGenre = "Choisissez un Genre"
End Sub

Bonne continuation

[Nanille]

Merci beaucoup !!
Ça fonctionne parfaitement !