Discussion :

[bernardmichel]

Bonsoir !

J'ai un sérieux problème avec un filtre sur un formulaire continu.
Je possède une "Zone de liste déroulante" qui affiche des noms de fournisseurs et j'aimerais faire apparaître la liste de tous les produits issus du fournisseur choisi dans cette liste.
Je vous donne ci-dessous le code que j'emploie (issu déjà de ce forum et adapté ). Tout fonctionne bien mis à part qu'à chaque sélection d'un quelconque fournisseur, la première fiche (première ligne dans mon formulaire continu) ne se met pas à jour et reste là

Code :

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

1
2
3
4
5
6
7
8
Private Sub lstFournisseur_AfterUpdate()
Dim strlstFournisseur As String
 
    strlstFournisseur = Me!lstFournisseur
    Me.Filter = "[Fournisseur]=" & Chr(39) & strlstFournisseur & Chr(39)
    Me.FilterOn = True
 
End Sub

S'il y a en ce bas monde une bonne âme qui veuille me donner un coup de main... :

[keita]

Essai ça:

Code :

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

1
2
3
4
5
6
7
8
Private Sub lstFournisseur_AfterUpdate() 
Dim strlstFournisseur As String 
 
    strlstFournisseur = Me!lstFournisseur 
    Me.Filter = "[Fournisseur]=" & Chr(39) & strlstFournisseur & Chr(39) 
    Me.FilterOn = True 
    Me.Requery
End Sub

j'ai ajouté Me.Requery, après Me.FilterOn=True
@+

[bernardmichel]

Bonsoir Keita,

Merci pour la suggestion. Je l'ai essayée mais sans plus de succès...

[keita]

salut
Dans ce cas mets le code sur l'evenement "Changement" de la zone de liste.tu dois avoir quelque chose de ce genre:

Code :

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

1
2
3
4
5
6
7
Private Sub lstFournisseur_Change() 
Dim strlstFournisseur As String 
 
    strlstFournisseur = Me!lstFournisseur 
    Me.Filter = "[Fournisseur]=" & Chr(39) & strlstFournisseur & Chr(39) 
    Me.FilterOn = True 
 End Sub

Attention j'ai retirer ce que j'avais ajouté.
@+

[Papy Turbo]

Bonjour,

Je suppose que la liste des fournisseurs est dans l'en tête du formulaire ?

Bon, mais, même comme cela, tu réalises que la méthode la + simple consisterait à
- créer un formulaire vide "FournisseursPrincipal",
- Couper / Coller la liste des fournisseurs, dans l'entête de ce formulaire,
- Supprimer de ton formulaire actuel ("Fournisseurs") la liste des fournisseurs, ainsi que tout entête ou pied de formulaire,
- Faire glisser le formulaire actuel ("Fournisseurs") sur le principal créé au dessus, pour en faire un sous-formulaire,
- Dans les propriétés du contrôle SousFormulaire,
:: champ père = lstFournisseur 'liste de choix des fournisseurs
:: champ fils = Fournisseur 'nom du contrôle/du champ qui contient la clé de chaque fournisseur
Aucun code. La liaison est automatique et très rapide (optimisée par Access).

Tu veux essayer et voir si ça marche ?

[bernardmichel]

Bonsoir !

Désolé pour ne pas vous avoir répondu plus tôt mais j'étais absent et seulement de retour ce soir.

Je regarde tout cela demain dans la journée !

Un grand merci à tous les deux de votre aide, c'est vraiment, vraiment sympa !

[bernardmichel]

Papy Turbo, c'est génial ton truc ! Cela me fait penser à l'oeuf de Chrisophe Colomb : Ca tient debout mais en plus... ça marche !

Mille mercis !