Discussion :

[argyronet]

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

[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

[OtObOx]

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

Merci,

JM

[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

[loufab]

Bonjour et bravo !

Certains n'auront plus d'excuses maintenant !

Cordialement,

[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

[Dolphy35]

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

On est impatient

[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.

En tout cas d'autres tutos sur le sujet seront bienvenue.

[lu.rz]

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

[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,

[ooO_qO_Op_Ooo]

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

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

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

Code :

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

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.

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.Meuh !

à cause que j'ai fait une boulette quelque part mais ja trouve pas
et merci d'avance,

[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 :

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

SELECT * FROM MaTable WHERE MonChampNum = 1234 ;

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

Code :

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

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

[informer]

Bonjour argyronet,

Super boulot

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

[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é.

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

[argyronet]

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

[ooO_qO_Op_Ooo]

Bonjour Argy & Cie,

Le comportement est celui là :


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 :

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
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

[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

[argyronet]

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 :

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
 
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