multicritère et case à cocher

**laurent00** · 30/07/2009, 13h39

Bonjour
j'ai un annuaire des plus simples une table organisme et une table compétences
chaque compétences est approuvée par une case à cocher Vrai/faux

je souhaite créer un formulaire recherche qui permette de faire des annuaires par compétences à la demande, en gros si je coche une compétence, une liste dans un sous formulaire m'affiche les organismes qui possèdent cette compétence ... si je coche deux cases les organisme qui ont les deux compétences s'affichent etc...

je pense pas que cela soit compliqué mais je n'ai pas trouvé de tuto la dessus

merci LJ

**Sefrou** · 30/07/2009, 14h05

Bonjour,

Je te propose une solution: faire 2 ListBox sur ton formulaire principal.

1) Une ListBox1 (en multiselection) avec comme source la table Compétences (comme ça tu peux en rajouter sans avoir à refaire le formulaire et rajouter des cases à cocher).
2) Une autre ListBox2 basée sur les annuaires avec les champs qui t'intéressent.

La première sert à filtrer la deuxième. C'est à dire que sur AfterUpdate de ListBox1 tu parcours itemselected de ListBox2 pour créer une clause WHERE sql.

Tu insères ensuite cette clause dans la requête source de ListBox2 que tu mets à jour aussitôt.

J'ai fait ça pour une base de Contacts classée par types de contacts:

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
Private Sub ListeType_AfterUpdate()
 
 
    Dim CriteriaType As String
    Dim i As Variant
 
    CriteriaType = ""
    For Each i In Me![ListeType].ItemsSelected
       If CriteriaType <> "" Then
          CriteriaType = CriteriaType & " OR "
       End If
       CriteriaType = CriteriaType & "[RequêteContacts].[IDType]=" & Me![ListeType].ItemData(i)
    Next i
       Dim TypeRS As String
    TypeRS = "SELECT [RequêteContacts].[IDContact], [ContactType].[Type], [Titre].[Titre], [RequêteContacts].[Prénom], [RequêteContacts].[Nom] , [RequêteContacts].[VillePerso] FROM (RequêteContacts LEFT JOIN Titre ON [RequêteContacts].[IDTitre]=[Titre].[IDTitre]) LEFT JOIN ContactType ON [RequêteContacts].[IDType]=[ContactType].[IDType] WHERE (" & CriteriaType & ")"
 
Liste48.RowSource = TypeRS
Liste48.Requery
DoCmd.GoToControl IDContact.Name
End Sub

Après tu peux faire en sorte qu'en cliquant sur ListBox2 le formulaire se place sur le bon enregitrement...