Discussion :

[harpyopsis]

Bonjour à tous !

J'utilise un certain nombre de boîtes-texte pour filtrer des enregistrements, ici d'articles en vente

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
Private Sub TextFilterByString_Change()
On Error Resume Next
 
    'Filtrer les enregistrements correspondants au contrôle.
    'Caution : the 'Text' property of any Textbox only 'exists' while the control has the focus !
                'We therefore have to save its volatile string
                'as a more persistant 'Value' inside another control
 
        Dim MyString As String
            MyString = Me.TextFilterByString.Text
        Me.TextFilterByString2.Value = MyString 
 
        SetMyFilters
 
    'Placer le curseur en fin de chaine
        Me.TextFilterByString.SetFocus
        Me.TextFilterByString.SelStart = Me.TextFilterByString.SelLength
 
End Sub

Le problème est que je n'arrive pas à faire passer une chaine comportant des espaces !

Avec ce code, MS Access / VB6 semble toujours trimmer l'espace final avant l'ajout de la lettre qui suit l'espace !

"anneau large" devient ainsi "anneaul" et ça plante !

Qu'est que j'ai mal foutu dans ce code ??? Comment faire persister les espaces ???

Merci d'avance !

phil

[Paraffine]

Regarde ce que fait SetMyFilters ? (shift+F2 pour se rendre sur le code de la procédure)

[tee_grandbois]

bonjour,
le problème avec l'évènement Change, c'est qu'il s'exécute à chaque frappe d'un caractère. Ne peux-tu pas à la place utiliser la valeur de ton texte saisi sur l'évènement After_Update de ton contrôle ?

[harpyopsis]

Bonsoir Paraffine et merci pour cette réponse !

"SetMyFilters" est une bête procédure de ma fabrication, qui pose tout simplement un filtre sur le recordset du sous-formulaire.

Ici elle pose entre-autres un élément de filtre avec LIKE

Code :

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

MyFilterStr = MyFilterStr & " AND Produits.DesignationArticle LIKE '*" & Me.TextFilterByString2.Value & "*'"

Pas de quoi fouetter un chat. Le filtre ne déplace pas non plus le focus.

La sélection se fait correctement et assez rapidement. Le temps de taper chaque lettre et le filtre a isolé les enregistrements correspondants sur une table de 20.000 lignes. A peine un sursaut.

A noter que le problème des espaces se reproduit à l'identique qu'il s'agisse de filtrer un sous-formulaire ou de modifier le RowSource d'une listBox...

[harpyopsis]

Bonsoir tee_grandbois !

Effectivement au début j'ai essayé avec After_Update, mais ça m'a posé encore plus de problèmes trop longs à décrire.

Les anglo-saxons utilisent aussi la propriété Text plutôt que After_Update

https://stackoverflow.com/questions/...-event-handler

Text est bien parce qu'il est super rapide et ne demande pas de saverecord.

Mais à défaut d'autre chose je repasserai bien encore deux heures à tester After_Update, qui sait ???

Je me demande ce que font les boîtes "Search" de windows...

1000 fois sur le métier... !

phil

[Paraffine]

Si tu vois les espaces disparaître dans le critère affiché , est-ce que cela pourrait être le :

Code :

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

Me.TextFilterByString.SelStart = Me.TextFilterByString.SelLength

J'imagine que SelLength renvoie une longueur, se pourrait-il que l' espace final ne soit pas compté (et soit donc systématiquement écrasé) ?
Il faudrait regarder avec les outils de débogage...

[harpyopsis]

Absolument ça vient de là !

Je suis en train d'essayer ceci qui semble couvrir tous les cas de figure...

https://social.msdn.microsoft.com/Fo...orum=accessdev

Réponse demain, car il est 22.30 ici et j'ai du sable dans les yeux !

Merci pour tout, je vous tiens au courant !

phil

[harpyopsis]

Voilà, il n'y a pas eu besoin d'attendre demain...!

Il suffisait d'utiliser Chr(32) comme 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
Private Sub TextFilterByString_Change()
'On Error Resume Next
 
    'Filtrer les enregistrements correspondants au contrôle.
    'Caution : the 'Text' property of any Textbox only 'exists' while the control has the focus !
                'We therefore have to save this volatile string
                'as a more persistant 'Value' in another control
 
        Dim MyString As String
            MyString = Me.TextFilterByString.Text
        Me.TextFilterByString2.Value = Me.TextFilterByString.Text
        If Right(Me.TextFilterByString.Text, 1) = Chr(32) Then Me.TextFilterByString.Value = Me.TextFilterByString.Value & " "
 
        SetMyFilters
 
    'Placer le curseur en fin de chaine
        Me.TextFilterByString.SetFocus
        Me.TextFilterByString.SelStart = Me.TextFilterByString.SelLength
 
End Sub

Selon les cas, on peut avoir besoin d'un FindFirst / FindNext pour sauter d'un enregistement à l'autre

Code :

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

1
2
3
4
5
        Dim rs As Object, TxtLenght As Long
            Set rs = Me.Recordset.Clone
 
        rs.FindFirst "[DesignationArticle] LIKE '" & Me![TextAtteindre].Text & "*'"
        If Not rs.EOF Then Me.Bookmark = rs.Bookmark

Mais dans d'autres cas l'usage d'un filtre concentre mieux tous les enregistrements qui satisfont une condition LIKE en éliminant les autres... C'est plus clair pour l'utilisateur.

Merci beaucoup pour votre aide, j'espère que cela peut être utile à quelqu'un !

phil