[Formulaire]filtre sur 4 niveaux de sous-formulaires

**fpecastaing** · 02/04/2007, 11h46

Je précise :

Losque j'appuie sur le bouton rechercher, il me dit erreur de syntaxe et me met en rouge la ligne Me du code du bouton rechercher.

Vous voyez pas ?

**DMboup** · 02/04/2007, 11h52

Envoyé par fpecastaing

- si je mets la syntaxe tel quel

Code :

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

NomPrenom='" &

- si je retire la côte,

Code :

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

NomPrenom=" &

Les propositions son nécessairement faites en VBA Ici. Si à ton niveau, tu utilises le QBE pour faire tes requêtes c'est normal que la syntaxe soit un peu différente.

Dans cette requête

SELECT * FROM Personnel WHERE (NomPrenom='" & iif(Forms!FrmPrincipal2!FiltreParNom<>null;Forms!FrmPrincipal2!FiltreParNom; Personnel.NomPrenom) & "');

au niveau de la fenêtre requête c'est plutot la ligne critère de la colonne NomPrenom qui prend cette valeur

Code :

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

1
2
 
iif(Forms!FrmPrincipal2!FiltreParNom<>null;Forms!FrmPrincipal2!FiltreParNom; Personnel.NomPrenom)

Il n'ya pas de quote ni de doube quote.

**fpecastaing** · 02/04/2007, 12h04

Merci Mboub,

Là ça fonctionne.
J'ai donc le filtre nom qui est bon, maintenant je reprends la source et je rajoute sous la colonne service la même fonction Iif ?

Et après pour les autres, je fais la mêmechose ?

**DMboup** · 02/04/2007, 12h48

Oui exactement la même chose pour les autres.

**fpecastaing** · 02/04/2007, 13h05

Voilà ce que ça donne pour le premier sous-formulaire.

Code :

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

1
2
3
SELECT Personnel.NomPrenom, Personnel.Numéro, Personnel.Service
FROM Personnel
WHERE (((Personnel.NomPrenom)=IIf([Forms]![FrmPrincipal2]![FiltreParNom] Is Not Null,[Forms]![FrmPrincipal2]![FiltreParNom],[Personnel].[NomPrenom])) AND ((Personnel.Service)=IIf([Forms]![FrmPrincipal2]![FiltreParService] Is Not Null,[Forms]![FrmPrincipal2]![FiltreParService],[Personnel].[Service])));

Ca marche niquel à part que je ne peux pas faire une recherche que sur le service sans le nom. Il me faut le nom ou le nom+le service
Il faudrait pouvoir dire "si le FiltreParNom est vide alors le prendre que le Filtre parService" ...

**DMboup** · 02/04/2007, 13h17

En principe c'est Et/Ou cette façon de faire. Maintenant si dans tes données tu n'a pas la correspondance que tu veux dans tes données c'est sur ca n'ira pas.

Est ce que pour le service que tu choisi, tu as au moins quelque données.

Parce que pour

si le FiltreParNom est vide alors le prendre que le Filtre parService

ceci correspond bien à toutes les possibilités

...WHERE (((Personnel.NomPrenom)=IIf([Forms]![FrmPrincipal2]![FiltreParNom] Is Not Null,[Forms]![FrmPrincipal2]![FiltreParNom],[Personnel].[NomPrenom])) AND ((Personnel.Service)=IIf([Forms]![FrmPrincipal2]![FiltreParService] Is Not Null,[Forms]![FrmPrincipal2]![FiltreParService],[Personnel].[Service])));

Si le nom est vide et que le service soit renseigné, il te rend toutes les lignes correspondant à tous les noms mais seulement pour lesquelles le service choisi est le bon.

Regarde bien tes données.

**fpecastaing** · 02/04/2007, 13h29

Si le nom est vide et que le service soit renseigné, il te rend toutes les lignes correspondant à tous les noms mais seulement pour lesquelles le service choisi est le bon.

C'est en effet ce que j'aimerais qu'il me fasse mais si je laisse le filtre nom vide et que je veux par exemple tous les gens du service achat (il y a en 20 dans la base), il m'affiche 0 résultat. Car pour lui il cherchent tous les gens du service "achat" qui ont pour nom "rien" ou "vide". Et focément yen a pas car chaque pers a un nom et traville pour un service.

Je ne sais pas si on peut rajouter si le nom est vide alors filtrer que sur le service.

Code :

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

...WHERE (((Personnel.NomPrenom)=IIf([Forms]![FrmPrincipal2]![FiltreParNom] Is Not Null,[Forms]![FrmPrincipal2]![FiltreParNom],[Personnel].[NomPrenom])) AND ((Personnel.Service)=IIf([Forms]![FrmPrincipal2]![FiltreParService] Is Not Null,[Forms]![FrmPrincipal2]![FiltreParService],[Personnel].[NomPrenom]));

**fpecastaing** · 02/04/2007, 13h51

ok ca marche, je m'étais planté dans mon code du bouton afficher tout qui est censé vider les filtres.

J'ai mis tous les Me. ... en commentaire et depuis ça marche.

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Commande17_Click()
Me.[frm personnel2].Form.FilterOn = False
'Me.FiltreParNom = ""
'Me.FiltreParDateMin = ""
'Me.FiltreParDateMax = ""
'Me.FiltreParOrganisme = ""
'Me.FiltreParService = ""
'Me.FiltreParFormation = ""
Me.[frm personnel2].Requery
End Sub

Dommage car on est maintenant obligé de supprimer le contenu des filtres à la main une fois la recherche faite...

Par contre, quand je passe aux critères (type formation et organisme) du sous-formulaires suivant il ne les cumule plus avec ceux du dessus (nom et service). Ca marche pas ...

**fpecastaing** · 02/04/2007, 13h55

Voilà le nouveau code du bouton recherche :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Commande16_Click()

'filtre du sous-formulaire frm personnel2
Me.[frm personnel2].Requery

'filtre du sous-sous-formulaire frmFormation2 : je pense que l'erreur vient de là
Forms![FrmPrincipal2]![frm personnel2].Form![frmFormation2].Requery

End Sub

**DMboup** · 02/04/2007, 14h12

Envoyé par fpecastaing

J'ai mis tous les Me. ... en commentaire et depuis ça marche.

Dommage car on est maintenant obligé de supprimer le contenu des filtres à la main une fois la recherche faite...

Essai l'inverse. Les Me... après le Requery

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Commande17_Click()
Me.[frm personnel2].Form.FilterOn = False
Me.[frm personnel2].Requery
Me.FiltreParNom = ""
Me.FiltreParDateMin = ""
Me.FiltreParDateMax = ""
Me.FiltreParOrganisme = ""
Me.FiltreParService = ""
Me.FiltreParFormation = ""
End Sub

Par contre, quand je passe aux critères (type formation et organisme) du sous-formulaires suivant il ne les cumule plus avec ceux du dessus (nom et service). Ca marche pas ...

la j'ai pas bien compris !

**fpecastaing** · 02/04/2007, 14h38

Mon soucis est que si je choisis d'afficher toutes les formations "excel" effectuées par christian, j'obtiens TOUTES les formations de christian (Excel, Word, Access,...), comme s'il ne voyait pas le filtre Formation.

Voilà la propriété source du sous-sous-formulaire frmFormation2 :

Code :

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

1
2
3
4
SELECT Formation.TypeFormation, Formation.VisiteMedicale, Formation.AutorisationEmployeur, Formation.Organisme, Formation.SGS, Formation.Observations, Formation.NbHeuresFormation, PersonnelFormé.NumeroPersonnel, PersonnelFormé.NumeroFormation
FROM Formation INNER JOIN PersonnelFormé ON Formation.NumeroFormation = PersonnelFormé.NumeroFormation
WHERE (((Formation.TypeFormation)=IIf([Forms]![FrmPrincipal2]![FiltreParFormation] Is Not Null,[Forms]![FrmPrincipal2]![FiltreParFormation],[Formation].[TypeFormation])) AND ((Formation.Organisme)=IIf([Forms]![FrmPrincipal2]![FiltreParOrganisme] Is Not Null,[Forms]![FrmPrincipal2]![FiltreParOrganisme],[Formation].[Organisme])))
ORDER BY Formation.TypeFormation;

En fait, je ne sais pas si ça pose un problème mais mon sous-formulaire est basé sur une requête qui permet de relier la table Formation à la table personnelFormé. Est-ce que ce que j'ai mis en vert est bon ?
Car je rappelle que j'ai 3 tables : Personnel / formation / PersonnelFormé (qui est une table union entre les deux autres, elle contient la clé primaire des deux autres tables).

**DMboup** · 02/04/2007, 14h45

Envoyé par fpecastaing

Mon soucis est que si je choisis d'afficher toutes les formations "excel" effectuées par christian, j'obtiens TOUTES les formations de christian (Excel, Word, Access,...), comme s'il ne voyait pas le filtre Formation.

Pour en avoir le coeur net remplace directement le parametre par une valeur.
Par exemple

Code :

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

1
2
 
... Formation.TypeFormation=

après le = tu met "Excel", un numéro valide correspondant à la formation que tu veux voir. Ainsi tu sauras si la parametre contient quelque chose ou non.

Par ailleurs pour ce qui est de la requête tout semble correcte.

**fpecastaing** · 02/04/2007, 15h16

si je mets excel, il ne me sors rien. je vois pas ...

**loufab** · 02/04/2007, 15h24

Bonjour,
à la place de ça

Code :

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

IIf([Forms]![FrmPrincipal2]![FiltreParFormation] Is Not Null

je mettrais ça

Code :

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

IIf(not isnull([Forms]![FrmPrincipal2]![FiltreParFormation])

Cordialement,

**fpecastaing** · 02/04/2007, 15h47

Jai testé, ça marche pas non plus.

**loufab** · 02/04/2007, 15h56

Formation.TypeFormation c'est du numérique ou du texte ?

**fpecastaing** · 04/04/2007, 09h03

C'est du texte ...

**fpecastaing** · 04/04/2007, 13h09

Et alors, ça fait quoi que ce soit du texte ou du numérique ? C'est ça qui me bloque tout ?

**loufab** · 04/04/2007, 16h49

essaye ceci

Code :

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

like iif(not isnull(.....),...) & "*"

dans le cas ou la condition n'est pas rempli il affichera tout.

**fpecastaing** · 06/04/2007, 10h04

Il me dit

syntax error, manque un opérateur

Code :

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

1
2
3
SELECT Personnel.NomPrenom, Personnel.Numéro, Personnel.Service
FROM Personnel
WHERE (((Personnel.NomPrenom)= like IIf(Not isnull([Forms]![FrmPrincipal2]![FiltreParNom]),[Forms]![FrmPrincipal2]![FiltreParNom],[Personnel].[NomPrenom]) & "*") AND ((Personnel.Service)= like IIf(Not IsNull([Forms]![FrmPrincipal2]![FiltreParService]),[Forms]![FrmPrincipal2]![FiltreParService],[Personnel].[Service]) & "*"));

Je pense qu'il faut des guillemets ou des cotes après le "like".
Merci pour ton aide

[Formulaire]filtre sur 4 niveaux de sous-formulaires

IHM

Discussions similaires

Partager

Partager