Discussion :

[Fillo]

Bonjour à tous,

Je suis nouveau sur le forum et j'espere que quelqu'un va pouvoir m'aider, voila mon PB:

J'ai créer sous access un formulaire avec une liste de données. je voudrais réaliser un filtre en saisissant qu'une partie du texte.

Voici mon 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
24
25
26
27
Private Sub CmdFiltre_Click()
 
    f = ""
    If Not IsNull(Me.Texte14) And Me.Texte14 <> "" Then
        f = "titre LIKE ""*" & Me.Texte14 & "*"""
    End If
 
If Not IsNull(Me.Texte16) And Me.Texte16 <> "" Then
    If f <> "" Then
        f = f & " AND genre LIKE ""*" & Me.Texte16 & "*"""
        Else
        f = "genre LIKE ""*" & Me.Texte16 & "*"""
    End If
End If
 
    If Not IsNull(Me.Texte18) And Me.Texte18 <> "" Then
    If f <> "" Then
    f = f & " AND support LIKE ""*" & Me.Texte18 & "*"""
    Else
    f = "support LIKE ""*" & Me.Texte18 & "*"""
    End If
    End If
 
Me.Filter = f
Me.FilterOn = True
 
End Sub

J'espere que je suis limpide dans mon explication.

Merci d'avance

[Fillo]

Mon PB est que lorsque que je saisie une partie du texte il recherche cette partie dans tout le texte.

Je souhaiterais taper les premieres lettres du texte.

Exemple: je recherche le film JAMES BOND
je souhaite entrer JA et il me sorte tous les films commençant par JA

Or aujourd'hui il me sort tous les films contenant les lettres J&A

Le pb dois certainement venir du LIKE ""*" mais je ne sais pas comment faire.

[Heureux-oli]

Essaye avec un & en plus

Code :

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

f = "titre LIKE "&"*" & Me.Texte14 & "*"&"""

Pense aux balises de code qui facilitent la lecture du code.

[Fillo]

slt heureux-oli

dsl mais ca fonctionne pas il me met en surbrillance jaune "Me.Filter = f".

en tt cas merci pour ta rapidité ;-)))))

fillo

[Fillo]

Qu'est ce qu'une balise de code et comment puis je les mettre.

eh oui je suis vraiment novice.......

Fillo

[Heureux-oli]

Sur l'entête du post, il y a quelques petits bouton et le dernier # c'est pour le code.

[pifou25]

il faut mettre juste une étoile apres le texte recherché dans ce cas ça devrait marcher:

Code :

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

f = "titre LIKE """ & Me.Texte14 & "*"""

[Fillo]

Slt Pifou25,

Merci bcp ça fctionne correctement maintenant

Fillo