Filtrer un formulaire à partir d'une liste déroulante

Version imprimable

Bonsoir,
J'utilise le code VBA ci-après pour filtrer un formulaire à partir d'une liste déroulante, mais j'ai un message d'erreur (erreur de compilation).
Ce code devrait permettre de filtrer automatiquement le formulaire au fur et à mesure des saisies dans la zone de liste déroulante.

Code:

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
Option Compare Database

Private Sub cboFilter_Change()
 'If the combo box is cleared, clear the form filter.
 If Nz(Me.cboFilter.Text) = “” Then
    Me.Form.Filter = “”
    Me.FilterOn = False
  'If a combo box item is selected, filter for an exact match.
  'Use the ListIndex property to check if the value is an item in the list.
  ElseIf Me.cboFilter.ListIndex <> -1 Then
    Me.Form.Filter = “[Clients] = ‘” & _
                     Replace(Me.cboFilter.Text, “‘”, “””) & “‘”
    Me.FilterOn = True
    
    'If a partial value is typed, filter for a partial company name match.
  Else
    Me.Form.Filter = “[Clients] Like ‘*” & _
                     Replace(Me.cboFilter.Text, “‘”, “””) & “*’”
    Me.FilterOn = True

  End If
  
  'Move the cursor to the end of the combo box.
  Me.cboFilter.SetFocus
  Me.cboFilter.SelStart = Len(Me.cboFilter.Text)

End Sub

Les lignes concernées par l'erreur sont mis en rouge.
Merci de votre aide.

22/08/2014, 19h08
Invité

Bonjour

En première approche je vois ton replace (qui je pense te sert pour les données qui comportent une apostrophe).

Tu remplaces ' par ", non remplaces ' par '', c'est à dire 2 simples quotes et non une double quote, à tester.

Philippe
22/08/2014, 19h23
Malick

1 pièce(s) jointe(s)

Merci pour la réponse.
J'ai fait comme vous me l'avez recommandé, et j'ai le message ci-après :

Pièce jointe 154451

Non, il faut laisser la simple cote dans le deuxième argument de la fonction Replace et la deux fois dans le troisième argument.

A tester :
Code:

1 2 Me.Form.Filter = “[Clients] = ‘” & _ Replace(Me.cboFilter.Text, “'”, “''”) & “‘”
et
Code:

1 2 Me.Form.Filter = “[Clients] Like ‘*” & _ Replace(Me.cboFilter.Text, “'”, “''”) & “*’”
Philippe

22/08/2014, 21h49
Malick

1 pièce(s) jointe(s)

Cela ne marche toujours pas. Peut-être que la capture du formulaire que je veux filtrer pourrait nous aider à y voir plus clair.

Pièce jointe 154462
23/08/2014, 05h30
Invité

Re

Si je ne m'abuse, c'est un sous-formulaire que tu veux filtrer, non ?

Hors ton code n'est pas bon , car tu ne désignes pas ce sous-formulaire ici : Me.Form.Filter

Un tuto à lire qui correspond à ton besoin : http://jeannot45.developpez.com/arti...multicriteres/
Et encore un pour comprendre formulaire sous-formulaire : http://loufab.developpez.com/tutorie...pelformulaire/
En passant par une autre méthode, c'est à dire en jouant sur le recordsource du sous-formulaire.

Tu as aussi la solution Père/Fils qui est à mon avis la plus simple sans code.

Philippe
23/08/2014, 15h37
Malick

Citation:

Envoyé par Philippe JOCHMANS

Re

Si je ne m'abuse, c'est un sous-formulaire que tu veux filtrer, non ?

Hors ton code n'est pas bon , car tu ne désignes pas ce sous-formulaire ici : Me.Form.Filter

Un tuto à lire qui correspond à ton besoin : http://jeannot45.developpez.com/arti...multicriteres/
Et encore un pour comprendre formulaire sous-formulaire : http://loufab.developpez.com/tutorie...pelformulaire/
En passant par une autre méthode, c'est à dire en jouant sur le recordsource du sous-formulaire.

Tu as aussi la solution Père/Fils qui est à mon avis la plus simple sans code.

Philippe

Merci pour ces cours. Je vais les consulter pour essayer de résoudre ce problème.
Encore merci pour votre disponibilité.
Pour ne pas encombrer le forum, pourrais-je passer la discussion en résolue ?
23/08/2014, 18h17
Invité

Pour moi la discussion n'est pas résolu.

Lorsque tu auras tout résolu, apporte la solution trouvé pour les autres membres et après ce sera bon.

Philippe
23/08/2014, 19h13
Malick

Citation:

Envoyé par Philippe JOCHMANS

Pour moi la discussion n'est pas résolu.

Lorsque tu auras tout résolu, apporte la solution trouvé pour les autres membres et après ce sera bon.

Philippe

Entendu.
Je laisse donc le fil de discussion ouvert.
S'il y a du nouveau, je ferais signe.
Merci et @+.

1 pièce(s) jointe(s)

J'ai repris la conception de la base de donnée et j'ai essayé de faire un formulaire de recherche en suivant la démarche décrite dans le livre d'Hervé INISAN.
Le code associé au bouton "Rechercher" dans l'événement "sur Clic" se présente comme suit :

Code:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
 
Private Sub btnOK_Click()
Dim strFiltre As String
Dim strStatut As String
Dim avarMotsClés As Variant
'Filtre sur le Nom
On Error Resume Next
strFiltre = ""
If Not IsNull(Me.cboClientsNom) Then
    If strFiltre <> "" Then strFiltre = strFiltre & " AND "
    strFiltre = strFiltre & _
        "([Nom]='" & Me.cboClientsNom & "')"
        End If
'Filtre sur le Prénom
If Not IsNull(Me.cboClientsPrenom) Then
    If strFiltre <> "" Then strFiltre = strFiltre & " AND "
    strFiltre = strFiltre & _
        "([prenom]=" & Me.cboClientsPrenom & ")"
        End If
'Filtre sur la ville
If Not IsNull(Me.cboVille) Then
    If strFiltre <> "" Then strFiltre = strFiltre & " AND "
    strFiltre = strFiltre & _
        "([description]=" & Me.cboVille & ")"
End If
'Filtre par mot-clés
avarMotsClés = Split(Nz(Me.txtMotsClés), " ")
For Each varMotClé In avarMotsClés
    If Trim(varMotClé) <> "" Then
        If strFiltre <> "" Then strFiltre = _
            strFiltre & " AND "
        strFiltre = strFiltre & _
            "([Mot_clès] LIKE '*" & varMotClé & "*')"
    End If
Next
'Afficher le résultat
MelblSQL.Caption = strFiltre
' Filtrer le sous-formulaire
With Me.sfmRésultats.Form
.Filter = strFiltre
.FilterOn = True
End With
 
End Sub

Après avoir choisi par exemple le nom d'un client (exemple : Bedecs) , j'ai cliqué sur le bouton rechercher. Le code s'est parfaitement exécuté, mais le sous-formulaire n'affiche pas le résultat attendu et se présente comme suit :

Pièce jointe 154543

24/08/2014, 06h15
Invité

Bonjour

Ton code à l'air cohérent.

Lorsque tu as affecté le filtre, essayes un Requery sur le sous-formulaire pour remettre à jour les données.

Si cela ne fonctionne pas, peux-tu mettre une base alléger en pièce jointe. Mais sans garantie pour aujourd'hui (on est Dimanche). Attention, je n'ai que la version 2007 sur ce PC.

Philippe
24/08/2014, 08h19
Jeannot45

1 pièce(s) jointe(s)

:salut:

Voici une petite base qui reprend ton idée de filtrer les données au fur et à mesure de la saisie

Bonne continuation
24/08/2014, 14h46
Malick

1 pièce(s) jointe(s)

Merci jeannot, je vais regarder votre base pour m'en inspirer.

@ Jochmans, voici ma base :
24/08/2014, 15h22
Malick
Citation:

Envoyé par Jeannot45

:salut:

Voici une petite base qui reprend ton idée de filtrer les données au fur et à mesure de la saisie

Bonne continuation

Merci Jeannot.
Je me suis inspiré de ta base, mais ça bloque à ce niveau :
Code:

1 2 'Controle le contenu du champ l_intNbCaract = Nz(Len(Me.oyes), 0)
oyes correspond à quoi (le nom d'un champ ou bien) ?
24/08/2014, 17h32
Invité

Re

Je n'ai pas encore regardé dans le détail, il faut que j'épluche ton code, par je n'utilise pas les filtres, moi je change la source du sous-formulaire en générant une requête SQL (comme les tutos de recherche MultiCritères.

Déjà :

Dans les combo tu récupères la première colonne qui est un ID et non le nom en clair, il faut que tu changes le numéro de la colonne liée en mettant 2.

Tu fais une combo pour le nom et le prénom, pourquoi ? Car il faut sélectionner absolument les deux pour créer l'égalité.

Je continues à regarder dés que j'ai un peu de temps.

Mais je te conseil de regarder les tutos de recherches Multicritères.

Par contre la solution de Jean :coucou: est hyper simple et hyper efficace.

Philippe
24/08/2014, 18h28
Malick

Citation:

Envoyé par Philippe JOCHMANS

Re

Tu fais une combo pour le nom et le prénom, pourquoi ? Car il faut sélectionner absolument les deux pour créer l'égalité.

Merci de ce retour.
Pour ne pas faire une combo pour le nom et une autre pour le prénom, je pense que je vais faire une requête qui va concaténer les champs "nom" et "prenom" en un champ que j’appellerai "identifiant_client". Ensuite, je ferai de cette requête la source de mon sous-formulaire.
:fleche: Qu'en penses-tu ?

Citation:

Par contre la solution de Jean est hyper simple et hyper efficace

j'ai essayé de la mettre en oeuvre, mais ça bloque sur le terme "oyes". J'ai posté un message par rapport à cela (#14)

Citation:

Mais je te conseil de regarder les tutos de recherches Multicritères.

Je suis en train de les exploiter.

Citation:

Je continues à regarder dés que j'ai un peu de temps.

Merci de votre disponibilité.

Bonne soirée.

:salut:

:oops: il y a du avoir un petit problème. Je te mets ci-dessous le code complet

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub txtEmployes_Exit(Cancel As Integer)
    ' Declaration des variables locales
    Dim l_intNbCaract As Integer
    'Controle le contenu du champ
    l_intNbCaract = Nz(Len(Me.txtEmployes), 0)
    'Annule l'évènement
    Cancel = True
    'Repositionne le curseur dans la zone de texte
    Me.ActiveControl.SelStart = l_intNbCaract
    ' initialise la valeur du controle
    If l_intNbCaract = 0 Then Me.ActiveControl = ""
End Sub

Je vais regarder ta base également. Par contre, comme le dit Philippe :coucou:, il y a les tutos (exemple : Recherche Multicriteres)
Bonne lecture

25/08/2014, 10h11
Jeannot45

1 pièce(s) jointe(s)

:salut:

Je te joins ta base dans laquelle, j'ai modifié un peu les tables et fait deux nouveaux formulaires.
1. j'ai éclaté ta table Clients en deux T_Noms et T_Prenom (Plusieurs clients pouvant avoir le même prenom, puisque tu en fait un critère de recherche)
2. J'ai fait deux formulaires F_rechercheClient et SF_RechercheClient. C'est une application du tuto "Recherche multicritère" que je t'avais indiqué plus haut.

Tu peux donc choisir une ville, plusieurs résultats pour la ville
Tu peux choisir un client
Tu peux choisir un prenom, si plusieurs clients ont le meme prenom, tu auras la liste de tes clients (exemple : Choisis Elisabeth)

Bonne continuation
25/08/2014, 17h57
Malick

Citation:

Envoyé par Jeannot45

:salut:

Je te joins ta base dans laquelle, j'ai modifié un peu les tables et fait deux nouveaux formulaires.
1. j'ai éclaté ta table Clients en deux T_Noms et T_Prenom (Plusieurs clients pouvant avoir le même prenom, puisque tu en fait un critère de recherche)
2. J'ai fait deux formulaires F_rechercheClient et SF_RechercheClient. C'est une application du tuto "Recherche multicritère" que je t'avais indiqué plus haut.

Tu peux donc choisir une ville, plusieurs résultats pour la ville
Tu peux choisir un client
Tu peux choisir un prenom, si plusieurs clients ont le meme prenom, tu auras la liste de tes clients (exemple : Choisis Elisabeth)

Bonne continuation

C'est exactement ce que je voulais.

Merci beaucoup à vous deux.

@ jeannot45 : je suis en train de lire ton tutoriel sur la recherche multicritère. C'est super.

Merci encore.