Discussion :

[meuah]

Bonjour,

j'ai créé une base de données, dans laquelle j'ai réalisé de nombreux formulaires afin d'en faciliter l'utilisation et la manipulation. Afin d'avoir plus de clarté, mon tuteur souhaiterait que je regroupe 3 formulaires où, au lieu de pouvoir sélectionner les champs, avoir une option supplémentaire dans laquelle il serait écrit "Tous".
Je ne peux pas insérer une donnée tous dans mes tables, car j'ai bcp bcp de jointures, et ça demanderait trop de boulot. Alors est-ce qu'il est possible, dans une requête source, d'ajouter éventuellement une valeur d'un champ saisi manuellement (donc ici "Tous"), qui me permettrait ensuite de faire un test en VBA pour savoir quelle requête exécuter.
Merci d'avance
N'hésitez pas si vous avez des questions!

[CinePhil]

Comment se fait la sélection des champs ?
- Par des cases à cocher à côté du nom des champs ?
- Par une liste déroulante ou fixe ?

[meuah]

En fait, j'ai créé une liste déroulante, dont les données sont recherchées dans une table via une requête source :

Code :

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

SELECT DISTINCT (NomSta), STA, LIG FROM tableCom, TableSta WHERE LIG=Forms!ParTroncon!Ligne AND TableCom.STA=TableSta.NumeroSta;

Ici je récupère des noms de station relatives à la ligne que j'ai sélectionnée dans mon formulaire.
J'ai fait ça dans tous mes formulaires

[CinePhil]

Alors essaie :

Code :

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

1
2
3
4
5
6
SELECT "Tous","",""
UNION
SELECT DISTINCT (NomSta), STA, LIG 
FROM tableCom, TableSta 
WHERE LIG=Forms!ParTroncon!Ligne 
  AND TableCom.STA=TableSta.NumeroSta;

[meuah]

Ca ne fonctionne pas, j'ai une boîte message me disant la chose suivante :
"La requête doit être construite à partir d'au moins une table et une requête source"

[CinePhil]

Un peu tordu comme solution mais rien ne t'empêche de créer une table ayant la même structure que ce que te retourne ta requête de base (SELECT DISTINCT...) et ne comportant que la ligne "Tous", "", "".
Auquel cas la requête devient :

Code :

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

1
2
3
4
5
6
7
SELECT *
FROM TableTous
UNION
SELECT DISTINCT (NomSta), STA, LIG 
FROM tableCom, TableSta 
WHERE LIG=Forms!ParTroncon!Ligne 
  AND TableCom.STA=TableSta.NumeroSta;