Discussion :

[moilou2]

Bonjour, j'utilise des zones de texte pour filtrer une zone de liste. Seulement, certaines fois, les utilisateurs de la base laissent un espace entre le début de la référence qu'il cherche et la première lettre qu'il tape.

Je voudrais donc savoir comment faire sur evenement clic de ma textbox, de lui dire de placer le curseur juste après la dernière lettre ou le plus à gauche possible si le contenu de la textbox est vide.

Merci

[GillesDeVuif]

Bonjour.
Tu peux peut-être :
1. Appliquer un masque de saisie adéquat dans l'onglet données des propriétés de ce contrôle (permet d'inhiber certains caractères, notamment) ?
2. ou formater la valeur en sortie à l'aide de fonctions de chaînes pour supprimer les caractères superflus ?

Code :

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

1
2
3
4
5
6
'On réserve la position du caractère espace dans la chaîne
Spos = Instr(Me.MaZoneTexte, " ") 
'S'il y a un espace
If Spos > 0 Then 
'On prend la portion de chaîne située avant l'espace et on la concatène avec la portion de chaîne située après
ValeurSortie = LEFT(Me.MaZoneTexte, Spos - 1) & RIGHT(Me.MaZoneTexte, Spos + 1)

exemple non testé à adapter en fonction de ton réel besoin.

Cordialement.

[Amani Roland]

Bonsoir,
Si la recherche ne s'effectue pas en même temps que la saisie tu peux agir sur l'évènement AfterUpdate de la zone de texte comme ceci:

Code :

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

1
2
3
4
 
Private Sub txtMaZone_AfterUpdate()
    Me.txtMaZone = Trim(Me.txtMaZone)
End Sub

Sinon plus généralement tu peux supprimer les espaces avant et après la chaine de caractères dans le code la requête de filtrage avec une close Where comme ceci:

Code :

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

1
2
3
4
5
6
 
Private Sub ProcedureFiltrage()
    dim strSql as string
        strSql = "SELECT * from tblMaTable WHERE MesDonnées like '" & Trim(Me.txtMaZone) & "*'"
        'Suite de la procédure
End Sub