Discussion :

[morobaboumar]

Bonsoir membres du forum,
La zone de texte moteur de recherche se limite à 5 lettres et n'accepte pas l'espacement(la touche espace) entre les mots.

Je souhaiterais y entrer au moins deux mots pour la recherche.
Qu'est ce qui me coince ?




Code:

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
Private Sub MoteurRechercheParent_Change()
MoteurRechercheParentAlphaNumerique
End Sub
 
Sub MoteurRechercheParentAlphaNumerique()
Dim strFilter As String
On Error GoTo ErrHandler
If Me.MoteurRechercheParent.Text <> "" Then
    strFilter = "NOM_PRENOMS_RECHERCHE Like '*" & Me.MoteurRechercheParent.Text & "*'"
    Me.Filter = strFilter
    Me.FilterOn = True
Else
    Me.Filter = ""
    Me.FilterOn = False
End If
With Me.MoteurRechercheParent
    .SetFocus
    .SelStart = Len(Me.MoteurRechercheParent.Text)
End With
Exit Sub
ErrHandler:
    MsgBox Err.Description, vbExclamation
End Sub

Remarque: les commandes de mise en forme et pièce jointe de mon tableau de bord sont invisibles.
Veuillez les rétablir. Merci.

Cordialement.