Discussion :

[Alvine Flore]

salut à tous,
j'ai implémenter un code de recherche dynamique dans un textbox sur access;
le code fonctionne normalement mais il se pose un problème:
le textbox en question perd le focus après la saisi d'une lettre. en fait j'aimerai implémenter la recherche dynamique avec la possibilité de saisir plusieurs caractères
voilà le code que j'utilise présentement:

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
Private Sub Form_Open(Cancel As Integer)
    With Form_formCompetences
        .Filter = ""
        .FilterOn = False
        Texte17.SetFocus
    End With
End Sub
 
Private Sub Texte17_AfterUpdate() 'Nom de la zone de texte de saisie
    Dim n As Integer
    n = 5
    Do While i < n
        filterSForm (Me.Texte17.Value)
        i = i + 1
    Loop
 
End Sub
 
Private Sub Texte17_Click()
 
End Sub
 
Private Sub Texte17_KeyUp(keyCode As Integer, shift As Integer)
    Dim strTexte As String
    strTexte = Me.Texte17.Text
    filterSForm (strTexte)
End Sub
 
Private Sub filterSForm(strText)
 
        With Form_formCompetences
            .Filter = ""
            .FilterOn = False
            .Filter = "NomEmploye like ""*" & strText & "*"" OR PrenomEmploye like ""*" & strText & "*"" OR Competence like ""*" & strText & "*"""
            .FilterOn = True
        End With
 
End Sub

[marot_r]

Bonjour.

Essaye en remplaçant l'événement KeyUp par Sur Changement (OnChange). Il est activé à chaque modification du champ de saisie.

KeyUp sert plus à gérer et intercepter les touches indésirables.

Sinon j'essaierai

Code :

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

1
2
3
4
5
6
7
8
9
10
 
With Form_formCompetences
       .Filter = ""
       .FilterOn = False
       .Filter = "NomEmploye like ""*" & strText & "*"" OR PrenomEmploye like ""*" & strText & "*"" OR Competence like ""*" & strText & "*"""
       .FilterOn = True
End With
 
me.Texte17.setfocus
me.Texte17.SelStart = len(me.Texte17.text) 'Envoi le curseur en fin de texte.

Enfin un solution serait de déplacer l'affichage des résultats dans un sous-formulaire.
Ton formulaire principal ne contient alors plus que les critères de sélection.
Accessoirement cela simplifierai un peu la programmation.

Et, en passant je t'invite à changer les noms par défaut de Access par des noms avec un sens. Ici Texte17 ne dit pas grand chose et je suggérai quelque chose comme [CritereNomPrenom] ou [Filtre_Recerche_Nom_Prenom]. Cela rend ton code plus facile à comprendre et donc à maintenir. C'est vrai pour les textes, les boutons et autres contrôles.

A+

[Alvine Flore]

merci marot_r, sa marche
merci pour l'aide que vous nous apportez au quotidien sur ce forum
tchao

[marot_r]

merci marot_r, ça marche

Pour les futurs lecteurs, peux-tu dire quelle solution tu as utilisée ?

A+

[Alvine Flore]

bonjour à tous,
en fait je juste suivi les conseil que tu m'as donné en procédant comme suit:
j'ai changé l'évènement KeyUp par Sur Changement (Change) dans mon code publié plus haut.
de plus j'y ai ajouter les lignes de code suivantes que vous m'avez suggéré:

Code :

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

Me.txtrechConge.SetFocus

Code :

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

Me.txtrechConge.SelStart = Len(Me.txtrechConge.Text) 'Envoi le curseur en fin de texte.

pour le focus et le positionnement du curseur lors de la saisie.
merci