Discussion :

[Jeamgja]

Bonjour,

J'ai crée un formulaire avec en son sein une zone de liste. Dans cette zone de liste apparaissent les lignes correspondantes au résultat d'une recherche par cochage ou non de checkbox. En cochant une case et en sélectionnant le choix dans une petite liste déroulante, un filtre s'opère sur l'ensemble des résultats.

Mon souhait serait d'effectuer un filtre en proposant à l'utilisateur de rentrer un ensemble de caractères dans une case texte puis de cliquer sur filtrer.
En exemple, si l'utilisateur rentre le mot "pomme" il faudrait alors filtrer l'ensemble des lignes de la zone de liste contenant le mot pomme.


Par défaut, la zone de liste affiche l'ensemble des enregistrements d'une base de données.
A l'heure je continue les recherches mais je ne vois pas comment faire avec une zone de liste.

Bien à vous

[hyperion13]

Salut
Une idée

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
Private Sub maTextbox_Change()
On Error GoTo Err_maTextbox_Change
Dim strSql As String
 
strSql = "SELECT *" _
    & " FROM maTable" _
    & " WHERE monChamp Like '*" & Me.maTextbox & "*'"
    Me.maLstbox.RowSource = strSql
    Me.maLstbox.Requery
 
Exit_maTextbox_Change:
    Exit Sub
Err_maTextbox_Change:
    MsgBox Err.Number & " " & Err.Description
    Resume Exit_maTextbox_Change
End Sub