Discussion :

[jehhej]

Bonjour,

Je découvre Access 2010 après avoir bidouillé sur 97 et 2003 et je découvre que les Zones de liste peuvent être multi-sélection. Et là je me dis que çà serait bien de pouvoir faire des requêtes de sélection en fonction des sélections multiples faites dans une Zone de liste. Cependant j'ai un doute sur la possibilité sans passer par VBA. Est ce possible svp ?

Exemple :
J'ai une table contenant la liste des départements, une autre la liste des communes.
J'ai un formulaire ayant comme source la table des communes (à coté des communes il y a le champs "id département") et contentant une zone de liste des départements.
A ce jour, via une requette, si je sélectionne par exemple le département 62, cela m'affiche la liste de toutes les communes du Pas de Calais.
Mais si je sélectionne à la fois le 62 et le 59, cela ne m'affiche pas toutes les communes de ces deux départements.

Si ce n'est possible directement, ce qui limite l'intérêt des Zone de sélection multiple, y a t'il une astuce sans VBA pour le faire svp ?

J'ai essayé avec la fonction "In" dans la requête mais çà ne fonctionne pas.

Merci d'avance pour vos éclaircissements.
Bon we.

[tee_grandbois]

Bonsoir,
Il n'est pas possible d'utiliser la collection ItemSelected sans passer par VBA. Mais le code est assez simple et peut s'exécuter sur clic d'un bouton, par exemple :

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
Dim ctl As Control
Dim varItm As Variant
Dim stSQL As String
 
Set ctl = Me.Liste0 ' Liste des départements
 
 If ctl.ItemsSelected.Count > 0 Then
    stSQL = "SELECT * FROM COMMUNES WHERE [id département] In ("
End If
' Pour lire la sélection multiple
   For Each varItm In ctl.ItemsSelected
        Me.Liste2.AddItem (ctl.ItemData(varItm))
        stSQL = stSQL & "'" & ctl.ItemData(varItm) & "',"
 
   Next varItm
 
' Pour enlever la dernière virgule de la boucle et terminer l'instruction
stSQL = Left(stSQL, Len(stSQL) - 1) & ");"
 
' Pour exécuter le code
DoCmd.RunSQL stSQL
' ou pour charger le source d'un formulaire
Me.RecordSource = stSQL

[jehhej]

Merci tee_grandbois Par contre peux tu me dire exactement où je mets quoi dans ma bdd stp ? Je dois suivre une formation en VBA sous access mais je ne sais encore quand (peut-être plusieurs mois) et j'ai besoin d'avancer sur ce point là de recherche.

J'aimerais appliquer cette recherche multi-sélection à plusieurs formulaire donc je vais donner un exemple :

J'ai un formulaire "GeocommuneForm" lié à la requête "GeocommuneReq".
Le formulaire a deux listes à multisélection "RegionFiltre" et "DepartementFiltre" qui ont chacune deux colonnes, la première est la clé de la table "RegionTabl" et la seconde la clé de la table "DepartementTabl".

Le but est lorsque je sélectionne plusieurs régions et/ou plusieurs département, le formulaire m'affiche les communes correspondantes à toutes ces sélections.

Je pense qu'avec cette exemple, je pourrais l'appliquer ensuite à l'ensemble de mes formulaire, ben je l'espère

[tee_grandbois]

Bonsoir,
je te propose ce code qui te permet d'afficher les régions ou les départements sélectionnés.
Tu as 2 listes à choix multiple : RegionFiltre et DepartementFiltre et un bouton btSelection, tu dois mettre le code dans l'évènement click de ton formulaire GeoCommuneForm :

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
59
Private Sub btSelection_Click()
 
Dim ctlReg As Control
Dim ctlDep As Control
Dim varItm As Variant
Dim stSQL As String
 
On Error GoTo hd_err
' Déclaration des objets liste à sélection multiple
Set ctlReg = Me.RegionFiltre
Set ctlDep = Me.DepartementFiltre
 
' Si au moins une sélection effectuée
If ctlReg.ItemsSelected.Count + ctlDep.ItemsSelected.Count > 0 Then
    stSQL = "SELECT * FROM GeoCommuneReq WHERE "
End If
 
' Lecture de la sélection Régions
If ctlReg.ItemsSelected.Count > 0 Then
    stSQL = stSQL & "([N°Region] In ("
 
    For Each varItm In ctlReg.ItemsSelected
        stSQL = stSQL & ctlReg.ItemData(varItm) & ","
    Next varItm
 
' Pour enlever la dernière virgule
    stSQL = Left(stSQL, Len(stSQL) - 1) & "))"
End If
 
' Départements
 
If ctlDep.ItemsSelected.Count > 0 Then
' Si au moins une région est sélectionnée
    If ctlReg.ItemsSelected.Count > 0 Then
        stSQL = stSQL & " OR "
    End If
    stSQL = stSQL & "([N°Dept] In ("
 
' Lecture de la sélection des département
        For Each varItm In ctlDep.ItemsSelected
            stSQL = stSQL & "'" & ctlDep.ItemData(varItm) & "',"
        Next varItm
 
' Pour enlever la dernière virgule
        stSQL = Left(stSQL, Len(stSQL) - 1) & "))"
End If
 
' Fin d'instruction SQL et chargement des données sélectionnées
If ctlReg.ItemsSelected.Count + ctlDep.ItemsSelected.Count > 0 Then
    stSQL = stSQL & ";"
    Me.RecordSource = stSQL
End If
 
Exit Sub
hd_err:
MsgBox "Erreur :" & Err.Number & " - " & Err.Description
Resume Next
 
End Sub

Dans cet exemple, l'identifiant de Région est numérique et celui de Département est de type Texte (les valeurs sont donc entre ' '). On pourrait aussi proposer de choisir 'OR' ou 'AND' à l'aide d'une case à cocher :

Code :

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

1
2
3
    If ctlReg.ItemsSelected.Count > 0 Then
        stSQL = stSQL & iif(Me.boAnd=True," AND "," OR ")
    End If

Mais dans ce cas, il faut noter que si on choisit "AND" cela risque de ne pas fonctionner correctement car un département ne peut appartenir qu'à une seule région et inversement, une région ne contient que certains départements.

[jehhej]

Bonjour tee_grandbois,

Désolé pour le retard, j'ai été occupé totalement à autre chose mais me revoilà sur ce projet de base Access. Je tenais tout d'abord te remercier pour ton aide.

Cependant, j'ai un souci avec le code. J'ai en surbrillance ".RegionFiltre" et le message "Erreur de compilation : Membre de méthode ou de données introuvable".

Je n'ai peut-être pas expliqué correctement comment était ma base de test et, du coup, le code ne correspond peut-être pas Ou bien j'ai oublié quelque chose. C'est pourquoi je joins à ce message une partie de ma base de test et la copie écran du message d'erreur.

Sur le coup, j'avais l'impression qu'il s'agissait d'un problème du nom de ma zone de liste mais apparemment ce n'est pas çà. Je n'ai pas trouvé d'où cela venait.

Si tu as le temps de regarder, j'en serais content

J'aime bien regarder un bout de base Access, Excel, etc qui marche pour voir comment çà fonctionne et essayer de l'adapter à mes besoins. Mais encore faut il que la base fonctionne . Donc si tu as le temps de regarder, ensuite je pourrais décortiquer tout çà pour l'adapter à l'ensemble de mes formulaires.

Bien à toi.

[CmzxNene]

Bonjour Jérôme,

Cependant, j'ai un souci avec le code. J'ai en surbrillance ".RegionFiltre" et le message "Erreur de compilation : Membre de méthode ou de données introuvable".


Sur le coup, j'avais l'impression qu'il s'agissait d'un problème du nom de ma zone de liste mais apparemment ce n'est pas çà. Je n'ai pas trouvé d'où cela venait.

Ton problème vient bien des noms de tes zones de listes ==> il y a un espace devant RegionFiltre et DepartementFiltre.
Supprime-le et tu n'auras plus le message d'erreur VBA.
En revanche, il faut approfondir un peu pour que le département sélectionné soit le seul affiché avec ta région sélectionnée.

Salutations