Discussion :

[jncoffy]

Bonjour,

Je ne suis pas un professionnel d'Access et je rencontre un problème.
Je dispose d'un formulaire en mode continu basé sur une table clients. Dans ce formulaire, j'ajoute une liste déroulante nommée FilterPays, qui contient une série de valeurs (France, Allemagne, Mexique,...). Je souhaite filtrer le formulaire sur le champ Pays en fonction du choix effectué dans la liste déroulante FiltrerPays. Pour cela, je souhaite passer par une macro, et non par du code. J'ai créé la macro suivante que j'ai associée à l'évènement Après MAJ de la liste déroulante :

AppliquerFiltre Condition Where : [Pays]=[Formulaires]![ListeClients]![FiltrerPays]
AtteindreContrôle NomSociété

Lorsque je teste le formulaire, il fonctionne quand je choisi un premier pays. mais ensuite il refuse de fonctionner si je change de pays dans la liste déroulante. La liste des clients reste bloquée sur le filtre du premier pays choisi. J'ai ajouté à la macro l'action Actualiser (sans argument), mais ça ne marche pas mieux. Quelqu'un aurait t'il une solution SVP ? Je précise que je ne souhaite pas utiliser du code, mais en rester à une macro.

Merci d'avance
Jean Noël

[Heureux-oli]

On va essayer de faire un petit pas en avant

Tu fais une requête qui reprend tous les champs de ta table.

Tu donne un nom à ta requête.

Tu va dans les propriétés de ton formulaire et tu modifie la source de ton formulaire.

Tu retourne dans la requête et dans le champ que tu veux utiliser pour filtrer les données, tu fais un clic droit sur la ligne critères.
Tu obtiens un assistant assez intuitif.
Tu navigue jusqu'au nom de ta liste déroulante.
Une fois choisie, tu fais OK.
Dans la ligne critère, tu remplace le "=" par "like".

Tu retourne dans ton formulaire et dans ton combo, tu mets dans les propriétés en valeur par défaut "*".

Tu vas dans la ligne AfterUpdate et tu clique sur le bouton qui contient trois point et tu choisis Générateur de Code.

Tu tapes

Code :

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

 Me.requery

Voilà démystifié le VBA.

[jncoffy]

Merci Heureux-Oli pour ton aide.
J'avais pensé à l'utilisation d'une requête et je connais la méthode Requery. Mais je pense qu'il est possible de le faire sans utilisation de code. Juste en passant par une macro. Dans l'exemple de la base de données les comptoirs, il y a un formulaire qui s'appelle liste alphabétique des clients et qui permet de filtrer les clients selon la première lettre lettre de l'alphabet. Pour cela, ils n'utilisent qu'un macro et, chez eux, ça marche sans problème.

Jean Noël

[Heureux-oli]

As-tu essayé ?

J'ai quand même détaillé pas à pas ce que tu devais faire pour entrer dans le monde du VBA.

Pour que ce soit possible avec chaque lettre, il faut mettre une action sur le KeyUp.

Je vais aller voir dans les comptoirs.

[jncoffy]

J'ai essayé ta méthode mais je n'arrive pas à la faire marcher. Quand je fais un clic droit dans la ligne critère de ma requête je n'ai pas d'assistant. Je suis sur Access 2000. Je suppose que tu veux me faire associer à la colonne sur laquelle porte le critère le nom du combo de mon formulaire. En tout cas, c'est ce que j'ai fait en utilisant le générateur d'expression mais mon formulaire dont j'ai modifié la source pour qu'elle corrseponde à ma requête, affiche une liste de clients désespérement vide.

[Heureux-oli]

C'est bien ce que je te propose de faire.
C'est bien le générateur d'expressions.
As-tu mis une * dans la valeur par défaut et mis like dans le critère.

[jncoffy]

Oui, j'ai mis une * dans la valeur par défaut de mon combo
Et j'ai mis Like au début de mon expression dans ma requête, ce qui me donne Comme [Formulaires]![essai]![FiltrerPays] (il a remplacé like par comme).
Cependant mon formulaire reste vide, quel que soit le pays que je choisisse.

Le Me.Requery je l'ai mis dans AfterUpdate de mon Combo. C'est bien cela ?

[Heureux-oli]

Oui.

Pourrais-tu mettre ta DB sur le forum ?

[jncoffy]

Voila, je viens de mettre un exemple en pièce jointe. Une seule table, une seule requête, un seul formulaire. Difficile de faire plus simple et pourtant mon formulaire ne marche pas.

En tout cas, merci de ton aide

Jean Noël

[jncoffy]

Je viens de m'apercevoir que mon exemple comporte une erreur. J'ai oublié de renommer mon combo. Mais même une fois corrigé, cela ne marche toujours pas.

[jncoffy]

Oups, excuses moi. je viens d'arriver à faire marcher le formulaire. Cependant, si j'ose, j'aurai deux autres questions à te poser

Dans un premier temps mon formulaire s'affiche vide. Comment faire en sorte qu'il s'affiche avec tous les clients

Enfin, si je souhaite ajouter un autre filtre dans le formulaire (sans le combiner avec le pays), comment procéder ? Un combo qui filtre par pays et un autre qui filtre par ville, par exemple, dans ce cas sans tenir compte du pays.

Merci encore pour l'aide que tu m'as apporté

Jean Noël

[Heureux-oli]

Voilà.

Tu y étais presque.

En fait, la source de ton combo n'était pas bonne, mais c'est un détail. Mais surtout, la position de ton combo.
Tu dois le mettre soit dans l'entête du formulaire, soit dans le corps du formulaire (mauvaise idée).

Pour le reste tu étais allé aux bons endroits.

Voilà un pas en avant de fait.

[jncoffy]

Merci encore pour ton aide. Cependant il me semble que cette méthode comporte des inconvénients dont le plus embettant est qu'il n'autorise pas, enfin il me semble, la possibilité de filtrer sur plusieurs champs sans cumuler les filtres. De plus, au démarrage, le formulaire affiche une liste vide alors qu'il serait préférable qu'il affiche directement tous les clients. Je continu de penser qu'une méthode par macro, proche de celle utilisée dans le formulaire 'Liste alphabétique des clients', serait utilisable mais je n'arrive pas à l'appliquer

Encore merci pour ton aide et merci aussi à tous ceux qui ont pris la peine de lire mes messages

jean Noël

[Heureux-oli]

Tu peux augmenter le nombre de champs filtrés à ta guise.

Il suffit de modifier la requête en conséquence.

La structure est très simple et les modifications assez aisées.