Discussion :

[Chloé Ma]

Bonjour,

voilà j'ai une base de données qui contient de deux types de données appartenant à deux accessoires diverses. Je dois pouvoir obtenir l'agent qui s'occupe de la maintenance mais filtrer en fonction de la catégorie. Comment m'y prendre svp ?

[marot_r]

Bonjour.

Peux-tu préciser ta demande ?
Veux-tu le faire une fois manuellement ?
Veux-tu le faire par programme ?

Accessoirement quel est ton niveau en Access ?

A+

[Chloé Ma]

Bonsoir,

Je réalise une base de données dans laquelle je dois avoir dès l'ouverture un formulaire avec deux boutons de commandes, l'un pour une ampoule de la référence 1 et l'autre de la référence 2, en cliquant sur l'une d'entre eux j'obtiens un sommaire filtrer sur la catégorie choisis. ( par exemple dans ce sommaire, je cliquerais sur l'agent => cela me donnera le nom de tous les agents s'étant occupé de cette catégorie en particulier.

Mon niveau sur access n'est pas très élévé.

[marot_r]

Bonjour.

"Dans" le module associé au formulaire mettre :

Code :

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

1
2
3
4
5
6
private sub FiltrerCategorie(prmCategorie as long)
    dim filtre as long
    filtre="[Categorie]=" & prmCategorie 'Détermine les critère du filtre
    me.filter=fltre 'Assigne le filtre au formulaire courant
    me.filterOn 'Applique le filtre au formulaire courant
end sub

• prm est une abréviation personnelle pour "Paramètre"
• Le code suppose que la catégorie est un nombre.
• Le code suppose que le champ qui affiche la catégorie s'appelle Categorie.
  À adapter à ta réalité.
• Me. designe le formulaire courant.

À mettre dans la procédure événementielle associée à l'événement Sur Clic de chacun des boutons :

Code :

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

call FiltrerCategorie(1) 'Ou 2 pour la seconde catégorie

Et tu voudras sans doute prévoir du code pour supprimer le filtre :

Code :

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

1
2
me.Filter=""
me.FilterOn=false

À mettre dans la procédure événementielle associée à l'événement Sur Clic d'un bouton par exemple.

A+

[Chloé Ma]

j'ai essayé les codes que vous avez dit mais cela ne marche pas.

[adama13]

Bonjour

la reponse de Marot_r devrait pourtant résoudre ton soucis. Tu ne n'insère pas les codes au bon endroit

Poste ici une copie de ta BdD(sans des données confidentielles) et je vais t'apporter mon aide

[Chloé Ma]

est-ce que je peux plutôt vous l'envoyer en mp ?

[marot_r]

Bonjour.

On n'a pas besoin de ta BD, juste du code que tu as écrit.

A+

[Chloé Ma]

En faite je ne comprends pas où mettre chaque code.

[marot_r]

Bonjour.

"Caché" derrière chaque formulaire Access il y a un module.
Tu peux y accéder en mode conception du formulaire en appuyant sur l'cône "Afficher le code" (c'est à droite dans le ruban).

C'est là que tu vas copier :

Code :

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

1
2
3
4
5
6
private sub FiltrerCategorie(prmCategorie as long)
    dim filtre as long
    filtre="[Categorie]=" & prmCategorie 'Détermine les critère du filtre
    me.filter=fltre 'Assigne le filtre au formulaire courant
    me.filterOn 'Applique le filtre au formulaire courant
end sub

en dessous des ligne Option ....

Et pour le code associé aux événements, tu cliques sur le bouton.

1. Tu demandes l'affichage des propriétés.
2. Tu choisis le volet "Événements".
3. Dans la liste déroulante de "Sur Clic du bouton" tu choisis "Procédure événementielle".
4. Access va t'ouvrir le module et insérer un code minimaliste.
5. Sur une ligne Entre le Sub et le End Sub, tu copies :
   

   Code :

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

   call FiltrerCategorie(1) 'Ou 2 pour la seconde catégorie

   En adaptant en fonction du bouton.

Tu sauvegardes.

[Invité]

sans les bugs (correction en rouge) :

Code :

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

1
2
3
4
5
6
7
private sub FiltrerCategorie(prmCategorie as long)
    dim filtre as String
    filtre="[Categorie]=" & prmCategorie 'Détermine les critère du filtre
    me.filter=filtre 'Assigne le filtre au formulaire courant
    me.filterOn 'Applique le filtre au formulaire courant
end sub

[marot_r]

Oops, merci Galoir.

A+

[Chloé Ma]

Cela ne marche pas, enfin je n'arrive pas à y faire fonctionner. Voilà ce que j'ai fait.

[tee_grandbois]

bonsoir,
l'utilisation de FilterOn tout seul est incomplète, il faut = Trueou = False après:

Code :

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

Me.FilterOn = True

[Chloé Ma]

ah oui c'est vraie mercii beaucoup

cependant cela ne fonctionne pas. Pour :

Code :

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

Private Sub FiltrerCategorieOutillage(prmCategorieOutillage As Long)

Cela met :

erreur de compilation
Nom ambigu détecté : FiltrerCategorieOutillage*

Je ne comprends pas d'où vient le problème.


De plus, en faite, je dois en cliquant sur un des boutons obtenir le sommaire qui contient également pleins de boutons qui doivent être filtrer selon la catégorie, j'ai donc rajouté :

Code :

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

DoCmd.OpenForm "F_Sommaire"

est-ce que cela convient ?

[tee_grandbois]

bonsoir,

Nom ambigu détecté

c'est pourtant clair : le nom FiltrerCategorieOutillage a été utilisé ailleurs dans VBA pour déclarer une fonction ou une Sub ...

j'ai donc rajouté :
" DoCmd.OpenForm "F_Sommaire"

est-ce que cela convient ?

il faut essayer avant de poser la question ...

[Chloé Ma]

" c'est pourtant clair : le nom FiltrerCategorieOutillage a été utilisé ailleurs dans VBA pour déclarer une fonction ou une Sub ..."

Pourtant, je ne l'est utilisé nul part, je ne comprends pas

[User]

Bonsoir à tous,

En fait, elle dispose d'un formulaire au démarrage, qui reste ouvert en arrière plan, dans ce formulaire il y a une zone de texte "CategorieOutillage" qui prend une certaine valeur en fonction du choix entre 2 boutons de commande :

exemple clic sur bouton "Samsung" => CategorieOutillage="Samsung"
clic sur bouton "Appel" => CategorieOutillage="Appel"

Ensuite, elle voudrait filtrer l'ensemble de ses données en fonction du contenu de CategorieOutillage :

Par exemple avec une requête sélection :

Code sql :

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

1
2
3
select * 
from T_Outillage
Whete CategorieOutillage=Forms!F_CategorieOutillage!CategorieOutillage

Donc elle doit faire cela pour toutes ses requêtes, ou appliquer le filtre de Marot sur ouverture de tous ses formulaires avec par exemple :

Code :

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

FiltrerCategorie Forms!F_CategorieOutillage!CategorieOutillage

en prenant comme argument du texte..

Cdlt,

[Chloé Ma]

Je ne comprends pas où je dois mettre ceci, dois-je le mettre dans le formulaire sommaire ou bien dans le formulaire catégorieOutillage ?

[Chloé Ma]

svp j'ai vraiment besoin d'aide, car j'ai du recommencer ma base de données du début du à des erreurs dans mon mcd, j'ai donc tenté de refaire pareil que ma 1er base mais cela ne fonctionne pas