Discussion :

[louzignac]

[A-97] bonjour,

j'ai crée un code d'activation multicritères d'un filtre, sur un bouton "VALIDATION" avec événement sur click dans un formulaire. Le tri se fait sur le champ entier [nom]. Je voudrai activer le filtre que sur une partie du champ. L'équivalent dans excel du filtre automatique /personnalisé/contient (ou commence par), ou bien l'équivalent de comme *[partie du nom]* dans une requête.

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
Dim w_filtre As String
    Dim nb As String
    w_filtre = ""
   If Not (IsNull(Me!w_sexe)) Then
        w_filtre = "[Prenom]=" & "'" & Me![w_prenom & "'"
    End If
 
      If Not (IsNull(Me![w_nom])) Then
        If w_filtre <> "" Then
        w_filtre = w_filtre & " and "
   End If
 
               w_filtre = w_filtre & "[nom]=" & "'" & Me![w_nom] & "'"
  End If 
 
        Me![SF_trie_par_nom].Form.Filter = w_filtre
        Me![SF_trie_par_nom].Form.FilterOn = True

je ne suis qu'une utilisatrice d'Access, ce n'est pas mon métier. Merci de votre compréhension pour mon language. Isabelle

[philben]

bonjour,

ou bien l'équivalent de comme *[partie du nom]* dans une requête.

L'équivalent est :

Code :

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

1
2
 
w_filtre = w_filtre & "[nom] Like " & "'*" & Me![w_nom] & "*'"

Toute variation sur le thème est possible.

Philippe

[louzignac]

bonjour,
Le code pour améliorer le filtre a super bien fonctionner, j'ai trouvé aussi les codes pour les équivalents de recherche excel : se termine par
w_filtre = w_filtre & "[nom] like " & " '* " &Me![nom]& " ' ", ou commence par.
w_filtre = w_filtre & "[nom] like " & " ' " &Me![nom]& " *' " Si on veux au contraire, exclure le critère , est-ce que on utilise not like au lieu de like ?

un grand merci encore

Isabelle Louzignac