Discussion :

[kimar]

Bonjour, je débute tout juste sur access et travaille actuellement sur mon premier projet. Je suis actuellement blocké sur la chose suivante: je cherche à créer un champ de recherche sur mon formulaire. En selectionnant plusieurs critères parmi des liste déroulantes où des cases à cochées, je souhaite voir s'afficher la liste des utilisateurs correspondant à ces critères dans une zone de liste. Ceci en temps réel si possible.
Je voudrais donc qu'initialement tous les utilisateurs entrés dans la bdd soit présents dans la zone de liste, et qu'en cochant des cases ou autre, cette liste s'affine.
J'espère avoir été clair, et surtout que quelqu'un saura me mettre sur la bonne voie.
Merci d'avance.

[Invité]

Bonjour, Kimar

Il faut ajouter à ta liste l'évènement On_GotFocus
Dans ta procédure il faut redéfinir le contenu de ta liste suivant les différends choix effectués.

Me.ListeUtil.RowSource = "SELECT * FROM TableUtil WHERE Condition1 AND/OR Condition2 AND/OR Etc...."
'Ne pas poublié de recalculer ta liste
me.ListeUtil.Requery

J'espère avoir été clair

[WyLLoU]

Pour ma part, je sais pas si c'est la meilleur solution, mais ce que je fais c'est que je met des conditions If imbriqué dans le code VBA, du genre,

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
If zonedetext1 = "" alors
    if zonedetext2 = "" alors
      là tu met ta requete et tout le tralala ( je sais pas si tu sais faire)
       endif
      if zonedetext2<>"" alors
  requete....
    endif
endif

If zonedetext1 <>""alors
    if zonedetext2 = "" alors
      là tu met ta requete et tout le tralala ( je sais pas si tu sais faire)
       endif
      if zonedetext2<>"" alors
           requete....
    endif
endif

C'est répétitive, faudrait tenter avec une select case, mais faut faire ta structure sur papier avant,pour ne pas oublier aucun cas.

[kimar]

Merci bien ! La première solution me semble la moins laborieuse. Reste à étudier un peu le SQL pour apprendre à écrire mes conditions. J'y cours...

[Invité]

Pour les conditions, il suffit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim Cond(6) ' Pour 6 conditions
' *** PREMIERE CONDITION = ZONE DE LISTE (1 colonne)
' Le critère est alphanumérique
Cond(1) = "[LeChampPourCritère1]= '" & Me.ListeDéroulante.Column(0) &"'"
' Le critère est numérique
Cond(1) = "[LeChampPourCritère1]= " & Me.ListeDéroulante.Column(0)
' *** DEUXIEME CONDITION = CASE A COCHER
Cond(2) = "[LeChampPourCritère2]= " & Me.CaseACocher.value
' Etc...
' Ensuite on créé la requète de ListeUtil
Me.ListeUtil.RowSource = "SELECT * FROM TableUtil WHERE " & Cond(1) & " AND " & Cond(2) & " OR " & Etc...
Me.ListeUtil.Requery

J'espère être clair

[kimar]

Si j'ai bien compris, je dois créer une nouvelle table (disons TableCritere) où seront stockés les critères selon ce qu'on choisis dans le formulaire. Et le code donnerait à peu près ceci:

Code :

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

1
2
3
4
 
Private Sub ListeUtil_On_GotFocus(Cancel As Integer)
Me.ListeUtil.RowSource = "SELECT * FROM TableUtil WHERE TableUtil.Champ1 LIKE TableCritere.Critere1 AND TableUtil.Champ2 LIKE TableCritere.Critere2;"
Me.ListeUtil.Requery

Edit: J'avais pas vu la réponse. Merci !

[kimar]

Je n'arrive pas à mes fins. Voilà mon code:

Code :

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

1
2
3
4
5
6
7
 
Private Sub ListeUtil_On_GotFocus(Cancel As Integer)
Dim Cond(2)
Cond(1) = "Main.Site= '" & Me.Listederoulante.Column(0) & "'"
Cond(2) = "Main.Logxact= " & Me.Caseacocher.Value
Me.ListeUtil.RowSource = "SELECT * FROM Main.Last_Name WHERE " & Cond(1) & " AND " & Cond(2)
Me.ListeUtil.Requery

Quand je cré les élements Listederoulante, Caseacocher et ListeUtil, dois je sélectionner "Je taperai les valeurs souhaités" ?

Merci d'avance ...

[Mahefasoa]

Salut Kimar, salut à tous

Mieux vaut un exemple qu'un long bla bla

Je joint une fichier MDB et vois ce que tu veux dedans. J'espère tout simplement que cela va t'aider.

A +

[kimar]

C'est plus que sympathique de ta part. J'arrive enfin à ce que je veux . Pour ceux que ca aiderait aussi, il y a ce tutorial dans le même style: http://cafeine.developpez.com/access...echerchemulti/