Discussion :

[knogrix]

Bonjour à tous,

J'ai un SousFormulaire qui a pour Recordsource une requête préenregistré sur Access.
Ce sous formulaire est en mode feuille de données du coup je peux filtrer via les en-têtes (comme sur excel) c'est cool ça me simplifie la tâche.

Mais j'aimerais maintenant ajouter une option (qui n’apparaît pas dans les filtres proposés) permettant de faire comme le WHERE champ1 IN ('blabla','test').

Je voulais donc savoir si un filtre IN est possible ?

Car j'ai fais plusieurs test mais aucun n'est apparu concluant. Cela fonctionne que si le IN possède qu'une seule valeur et que cette valeur est seule dans la colonne recherchée. Comme un LIKE quoi...

Du coup si l'un d'entre vous sais si le filtre IN fonctionne qu'il se manifeste sinon je passerais par un moyen plus chiant => Un bouton permettant de modifier le record source en y ajoutant la clause WHERE... IN ... Et un bouton permettant de revenir a l'ancien recordsource pour annuler le "filtre"... Fastidieux mais ça fonctionnera.

Merci pour vos retours,

++

[knogrix]

Au final j'ai trouvé un moyen plus simple que modifier mon record source mais toujours pas de filtre avec IN.
C'est de rajouter des LIKE les uns à la suite des autres suite au choix d'un champs dans une liste déroulante.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    'Affichage des métiers sélectionnés dans le champs txt
    Me.txtMetier = Me.txtMetier & " '" & Me.lstMetier.Column(1) & "' "
 
    If IsNull(Me.SousformRecCand.Form.Filter) = True Or Me.SousformRecCand.Form.Filter = "" Then
        'Le filtre est vide donc on ajoute le LIKE seul
        Me.SousformRecCand.Form.Filter = "([ReqRechercheCandPropre].[Metier] LIKE '*" & Me.lstMetier.Column(1) & "*')"
        Me.SousformRecCand.Form.FilterOn = True
    Else
 
        'Le filtre n'est pas vide donc on ajoute le OR LIKE
        Me.SousformRecCand.Form.Filter = Me.SousformRecCand.Form.Filter & " OR ([ReqRechercheCandPropre].[Metier] LIKE '*" & Me.lstMetier.Column(1) & "*')"
        Me.SousformRecCand.Form.FilterOn = True
    End If

Ça marche nickel comme ça les utilisateurs ajoutent des noms de métiers au fur et a mesure et cela incrémente le filtre.
Ce code est placé sur l'afterupdate de ma liste déroulante pour ceux qui souhaitent.