Concevoir une liste qui en alimente une autre

Version imprimable

08/11/2010, 12h53
argyronet

Concevoir une liste qui en alimente une autre

Bonjour à toutes et à tous,

Le forum offre depuis quelque temps déjà, un système qui permet de recueillir votre avis sur nos articles publiés pour vous ; aussi, pour satisfaire cette fonctionnalité, je prends l'inititive de ressortir cet article afin qu'il puisse en bénéficier...

Je vous rermercie de bien vouloir laisser vos commentaires / avis / remarques sur le tutoriel suivant :

Concevoir une liste qui en alimente une autre

Merci

Argy
11/09/2011, 06h16
Invité

Salut

Je dois dire que ce tuto est excellent, et je le conseil régulièrement sur le forum, car ce genre de questions revient plusieurs fois par semaine.

Philippe
11/09/2011, 08h42
OtObOx

Je connaissais la technique 8-) mais j'ai encore appris quelques trucs en lisant ton article :) Le code de mes prochaines listes sera plus simple désormais.

Merci,

JM
12/09/2011, 11h48
Vhalar

Ma première problématique lorsque j'ai commencé sous Accès fut justement de réaliser ce qui est illustré dans ce tuto.

Je n'étais pas tombé sur celui-ci, mais un autre un peu plus complexe. Et je dois dire que j'aurais préféré suivre celui d'Argyronet que je trouve bien expliqué et bien réalisé.

Selon moi, il devrait être l'un des premiers à être consulté lors de l'apprentissage de la conception de formulaire.

Merci :ccool:
12/09/2011, 12h08
loufab

Bonjour et bravo !

Certains n'auront plus d'excuses maintenant !

Cordialement,
12/09/2011, 15h28
argyronet

Avec de tels compliments, cela donne envie de vous faire partager d'autres approches tout aussi intéressantes. Je m'en vais de ce pas y réfléchir.

Argy
12/09/2011, 15h43
Dolphy35

Citation:

Envoyé par argyronet

Avec de tels compliments, cela donne envie de vous faire partager d'autres approches tout aussi intéressantes. Je m'en vais de ce pas y réfléchir.

Argy

:ccool:

On est impatient ;)
12/09/2011, 20h11
loufab

En effet il y a d'autres approches mais celle-là a le mérite d'être équilibrée (vba / sql) et d'être largement adaptable à tous les cas même les plus tordu. :ccool:

En tout cas d'autres tutos sur le sujet seront bienvenue.
11/06/2015, 17h28
lu.rz

Application à 3 listes déroulantes ?

Bonjour

Merci pour ce tuto très clair, novice dans la programmation sous access j'ai réussi à l'exécuter sans problèmes ! Cependant je souhaiterai l'appliquer à une 3ème liste déroulante (dont la MAJ dépend du choix fait dans la 2ème liste déroulante) et je n'y arrive pas.. Pouvez-vous m'aider ?

N'hésitez pas à me signaler si ma question manque de précisions, comme je l'ai dit je suis une novice dans la programmation :)

Merci d'avance pour votre aide !

LR
13/06/2015, 15h44
loufab

Bonjour,

Tu dois réitérer la partie 3.1.5 du tuto sur ta 2ème liste pour qu'elle alimente la liste 3.

Cordialement,
10/07/2020, 16h42
ooO_qO_Op_Ooo

Tambouille !

Bonjour,
Un grand merci pour ce tuto parce que je trouve cette méthode très élégante, mais je galère.:oops:

lngIDCat ne donnait rien, il a fallu que je passe par un lngIDCat = Me!cmbCategories.Value pour arriver à avoir une valeur numérique. :weird:

Ensuite j'ai eu droit à 3 heures de galères syntaxiques pour la commande SQL, qui finit par accepter un :

Code:

SQL = "SELECT Table.Champ1, Table.Champ2, Table.Champ3 FROM Table WHERE (Table.Champ3='" & longIDCat & "') ORDER BY Table.Champ2;"

Je dois dire que je me suis pris les pieds dans chaque plis du tapis, apostrophe, guillemets, point-virgule, parenthèses etc. :aie:

Et je termine sur une incongruité. Tout fonctionne si ce n'est que quel que soit l'élément sélectionné dans la deuxième liste, c'est systématiquement le premier élément qui est choisi.:calim2:Meuh !

:help: à cause que j'ai fait une boulette quelque part mais ja trouve pas:pleure:
et merci d'avance,
06/08/2020, 18h18
argyronet
Bonjour,

Dans l'absolu, lngIDCat est un LONG et dans la réalité au niveau SQL, c'est un STRING mais sans quote car au niveau table c'et un nombre.
Donc on écrit :

Code:

SELECT * FROM MaTable WHERE MonChampNum = 1234 ;

et si la clause WHERE sollicite un texte ça donne alors

Code:

SELECT * FROM MaTable WHERE MonChampText = 'A1234' ;

Donc dans le Tuto, Me!cmbCategories représente un nombre mais on l'écrit dans une chaîne et on quote ou non selon que le champ visé est un numérique ou un texte.

Concernant l'affichage du contenu, il s'agit de la longueur des colonnes que vous avez dû mal spécifier.
Relisez bien les parties :
- https://argyronet.developpez.com/off...listAB/#L3-1-1
- https://argyronet.developpez.com/off...listAB/#L3-1-2
Argy
11/08/2020, 14h40
informer

Bonjour argyronet,

Super boulot :ccool:

Pourrais-tu compléter ton tuto pour gérer le Tous qui permet de n'appliquer aucun filtre sur un formulaire par exemple.

Encore bravo :bravo:
11/08/2020, 15h29
ooO_qO_Op_Ooo
Bonjour,

Merci pour ces explications. Je vais me pencher dessus avec attention, la cible étant une combo catégorie 1 qui filtre une combo catégorie 2 qui filtre une combo catégorie 3 et plus si affinité.
Citation:
Envoyé par argyronet

Concernant l'affichage du contenu, il s'agit de la longueur des colonnes que vous avez dû mal spécifier.
Relisez bien les parties :

https://argyronet.developpez.com/off...listAB/#L3-1-1
https://argyronet.developpez.com/off...listAB/#L3-1-2

Argy
Je me suis mal exprimé, l'affichage de contenu de liste est juste et cohérent. Le seul soucis est que quelque soit l'élément sélectionné dans la liste déroulante, c'est au final le premier élément de la liste qui sera affiché. Exemple, si je déroule la liste, que j'y vois les éléments de 1 à 7, si je sélectionne le 5ème élément (multipass) ....c'est l'élément n°1 qui s'affiche dans la combo.

Encore merci
12/08/2020, 17h11
argyronet

Citation:

Envoyé par ooO_qO_Op_Ooo

Exemple, si je déroule la liste, que j'y vois les éléments de 1 à 7, si je sélectionne le 5ème élément (multipass) ....c'est l'élément n°1 qui s'affiche dans la combo.

Quelle combo, celle des catégorie ou celle des métiers ?

Pour ce qui est de la cascade entre 3 tables/liste ou plus, c'est possible.
Il suffit juste d'appliquer ce tuto à la troisième et selon l'exploitation finale il faudra deux conditions dans la clause WHERE pour la dernière liste.

@informer
Oui, c'est une idée.
Je vais tacher faire cela plus un petit brief sur l'ajout d'une troisième liste...
Merci

Argy

2 pièce(s) jointe(s)

Bonjour Argy & Cie,

Le comportement est celui là :
Pièce jointe 577167

A savoir quelque soit l'élément que je choisis dans la dernière combo (la deuxième quand je fais deux listes en cascade, la troisième quand j'en fais trois), c'est le premier élément qui s'affiche au final. En l'occurrence "Écran ordinateur".

En VBA j'ai repris comme ça :

Code:

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
Option Compare Database
 
Private Sub cmbCategorie1_AfterUpdate()
 
    Dim longIDCat As Long
    Dim SQL As String
 
         'Vérifie que l'on a cliqué sur une catégorie pour éviter le NULL
        If Not IsNumeric(cmbCategorie1) Then Exit Sub
 
        ' Affecte la valeur de IDCategorie1 à la variable longIDCat
        longIDCat = Me!cmbCategorie1.Value
 
        'Construit la chaine SQL avec la catégorie concernée. Pour rappel [...]'" & longIDCat & "'[...] doit se lire [...] ' " & longIDCat & " '[...]
        SQL = "SELECT TBLcategorie2.IDcategorie2, TBLcategorie2.Categorie2, TBLcategorie2.IDCategorie1 FROM TBLcategorie2 WHERE (TBLcategorie2.IDCategorie1='" & longIDCat & "') ORDER BY TBLcategorie2.Categorie2;"
 
        ' Affecte la chaîne SQL à la liste des catégories. Rowsource = contenu de la source
        cmbCategorie2.RowSource = SQL
 
        ' Déverrouille la liste des catégories 2
        cmbCategorie2.Enabled = True
 
        'Donne le focus la liste des catégories 2
        cmbCategorie2.SetFocus
 
        'Déroule la liste des catégories 2
        cmbCategorie2.Dropdown
 
End Sub

J'ai du merdoyer dans les propriétés des combo du formulaire sinon.

Xav

14/08/2020, 09h44
informer

argyronet

Il y a maintenant 4 ans j'avais posté ce blog "MS-Access - Industrialisation Zones listes (ListBox) - en cascade avec en 1ère ligne Tous (All)" ICI/
A voir si cela peut se combiner

Citation:

Envoyé par ooO_qO_Op_Ooo

Bonjour Argy & Cie,

Le comportement est celui là :
....

J'ai du merdoyer dans les propriétés des combo du formulaire sinon.

Eh bien sur la catégorie 2, il faut coder ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Private Sub cmbCategorie2_AfterUpdate()
 
Dim lngIDCat                                           As Long
Dim SQL                                                As String
 
    ' Affecte la valeur de IDCategorie2 à la variable longIDCat
    lngIDCat = Nz(Me!cmbCategorie2.Value, 0)
 
    If lngIDCat Then
 
        'Construit la chaine SQL avec la catégorie concernée
        SQL = "SELECT IDcategorie3, Categorie3, IDCategorie2 FROM TBLcategorie3 "
        SQL = SQL & "WHERE (IDCategorie2=" & lngIDCat & ") ORDER BY Categorie2;"
        ' Affecte la chaîne SQL à la liste des catégories. Rowsource = contenu de la source
        With Me.cmbCategorie3
            .RowSource = SQL
            .Enabled = True
            .SetFocus
            ' pas forcément .Dropdown
        End With
    End If
End Sub

Et si la liste #3 se fige sur la première valeur c'est parce qu'il doit y avoir un bout de ton code qui provoque cela...
N'y a t-il pas d'événement sur le combo #3 ou bien une propriété RecordSource ?
Au besoin, envoi moi un clone de ton appli sur ce seul formulaire, je regarderais...

Argy