Discussion :

[moilou2]

Bonjour, j'ai un petit souci.

J'alimente des listBox, à l'aide de requête. C'est listBox, me servent par la suite de filtre, pour filtrer une zone de liste.

Je souhaite filtrer dans ma table maintenance préventive. Si je prend par exemple, la listBox des périodicité, je voudrais qu'elle affiche toutes les périodicités présentent dans ma table, et qu'elle les regroupe. Si je ne met pas d'autres conditions dans ma requête, sa fonctionne:

Code :

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

1
2
3
SELECT tbl_MaintenancePréventive.ID_Périodicité, tbl_Périodicité.Peridodicité
FROM tbl_Périodicité INNER JOIN tbl_MaintenancePréventive ON tbl_Périodicité.ID_Periodicité = tbl_MaintenancePréventive.ID_Périodicité
GROUP BY tbl_MaintenancePréventive.ID_Périodicité, tbl_Périodicité.Peridodicité;

et j'obtient dans ma liste:

Quotidien
Hebdomadaire
Mensuel
Semestriel

En revanche, moi ce que je déqire faire, comme dans ma zone de liste, je n'ai que les actions de maintenance préventive à effectuer, c'est n'afficher dans mes listBox, les éléments de la table, dont la prochaine date d'intervention est <= à la date d'aujourd'hui.

Donc dans ma reqête, j'ajoute dans la case critère

<=Date()

J'obtient donc la requête suivante:

Code :

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

1
2
3
4
SELECT tbl_MaintenancePréventive.ID_Périodicité, tbl_Périodicité.Peridodicité, tbl_MaintenancePréventive.DateProchaineIntervention
FROM tbl_Périodicité INNER JOIN tbl_MaintenancePréventive ON tbl_Périodicité.ID_Periodicité = tbl_MaintenancePréventive.ID_Périodicité
GROUP BY tbl_MaintenancePréventive.ID_Périodicité, tbl_Périodicité.Peridodicité, tbl_MaintenancePréventive.DateProchaineIntervention
HAVING (((tbl_MaintenancePréventive.DateProchaineIntervention)<=Date()));

Mais dans ma listBox, je retrouve les champs suivants:

Quotidien
Quotidien
Hebdomadaire
Mensuel

Sa ne me groupe plus, et je ne comprend pas pourquoi???

Ce n'est pas comme sa qu'il faut procéder?

C'est pareil pour mes autres listes!

[DMboup]

Il faut enlever tbl_MaintenancePréventive.DateProchaineIntervention du Group By et remplacer le Having par un Where.

[moilou2]

Re et merci pour ton aide, mais j'ai 2 soucis, si je remplace le Having par un where, comme suit:

Code :

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

1
2
3
4
SELECT tbl_MaintenancePréventive.ID_Périodicité, tbl_Périodicité.Peridodicité, tbl_MaintenancePréventive.DateProchaineIntervention
FROM tbl_Périodicité INNER JOIN tbl_MaintenancePréventive ON tbl_Périodicité.ID_Periodicité = tbl_MaintenancePréventive.ID_Périodicité
GROUP BY tbl_MaintenancePréventive.ID_Périodicité, tbl_Périodicité.Peridodicité, tbl_MaintenancePréventive.DateProchaineIntervention
where (((tbl_MaintenancePréventive.DateProchaineIntervention)<=Now()));

Sa me met:

Erreur de syntaxe (opérateur absent) dans l'expression 'table_MaintenancePreventive.DateProchaineIntervention where....

Et si j'enleve " tbl_MaintenancePréventive.DateProchaineIntervention" du GroupBy, j'obtient donc:

Code :

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

1
2
3
4
SELECT tbl_MaintenancePréventive.ID_Périodicité, tbl_Périodicité.Peridodicité, tbl_MaintenancePréventive.DateProchaineIntervention
FROM tbl_Périodicité INNER JOIN tbl_MaintenancePréventive ON tbl_Périodicité.ID_Periodicité = tbl_MaintenancePréventive.ID_Périodicité
GROUP BY tbl_MaintenancePréventive.ID_Périodicité, tbl_Périodicité.Peridodicité
having (((tbl_MaintenancePréventive.DateProchaineIntervention)<=Now()));

Et j'ai le message d'erreur:

Vous avez essayé d'executer une requête ne comprenant pas l'expression spécifiée 'Date prochaine intervention comme une partie de la fonction de l'agréat

Donc je ne sais pas comment faire?

[DMboup]

La date ne doit pas faire partie ni de la sélection, ni du group by.

Comme ceci

Code :

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

1
2
3
4
5
 
SELECT tbl_MaintenancePréventive.ID_Périodicité, tbl_Périodicité.Peridodicité
FROM tbl_Périodicité INNER JOIN tbl_MaintenancePréventive ON tbl_Périodicité.ID_Periodicité = tbl_MaintenancePréventive.ID_Périodicité
GROUP BY tbl_MaintenancePréventive.ID_Périodicité, tbl_Périodicité.Peridodicité
where (((tbl_MaintenancePréventive.DateProchaineIntervention)<=Now()));

[moilou2]

Re

SELECT tbl_MaintenancePréventive.ID_Périodicité, tbl_Périodicité.Peridodicité
FROM tbl_Périodicité INNER JOIN tbl_MaintenancePréventive ON tbl_Périodicité.ID_Periodicité = tbl_MaintenancePréventive.ID_Périodicité
GROUP BY tbl_MaintenancePréventive.ID_Périodicité, tbl_Périodicité.Peridodicité
where (((tbl_MaintenancePréventive.DateProchaineIntervention)<=Now()));

Sa me met toujours l'erreur de syntaxe avec le where.

[moilou2]

C'est bon j'ai trouvé, il fallait inversé le wher et le group by comme suit:

Code :

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

1
2
3
4
SELECT tbl_MaintenancePréventive.ID_Périodicité, tbl_Périodicité.Peridodicité
FROM tbl_Périodicité INNER JOIN tbl_MaintenancePréventive ON tbl_Périodicité.ID_Periodicité = tbl_MaintenancePréventive.ID_Périodicité
WHERE (((tbl_MaintenancePréventive.DateProchaineIntervention)<=Now()))
GROUP BY tbl_MaintenancePréventive.ID_Périodicité, tbl_Périodicité.Peridodicité;

[moilou2]

Re je revient rapidement sur mon problème, je voudrais maintenant intégrer une condition Where tbl_MaintenancePréventive.DateProchaineIntervention <=Date() dans cette requête, mai je ne sais pas où l'intégrer dans le code.

Code :

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

sql = "SELECT tbl_MaintenancePréventive.ID_Machine, tbl_Machines.Designation FROM tbl_Machines INNER JOIN tbl_MaintenancePréventive ON tbl_Machines.Id_Machine = tbl_MaintenancePréventive.ID_Machine GROUP BY tbl_MaintenancePréventive.ID_Machine, tbl_Machines.Designation, tbl_Machines.Id_Ligne HAVING tbl_Machines.Id_Ligne= " & lngIDCat & ";"

[moilou2]

J'ai trouvé désolé pour le dérangement:

Code :

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

sql = "SELECT tbl_MaintenancePréventive.ID_Machine, tbl_Machines.Designation FROM tbl_Machines INNER JOIN tbl_MaintenancePréventive ON tbl_Machines.Id_Machine = tbl_MaintenancePréventive.ID_Machine where tbl_Machines.Id_Ligne= " & lngIDCat & " and tbl_MaintenancePréventive.DateProchaineIntervention<=Date() GROUP BY tbl_MaintenancePréventive.ID_Machine, tbl_Machines.Designation, tbl_Machines.Id_Ligne;"

Merci pour tout!