Discussion :

[stef_445]

bonjour,

Je fais un programme en VB et bd Access pour gérer du matériel de mesure.
J'ai deux Tables :
- une table dans laquelle je référence mes appareils
- une autre dans laquelle je recense les opérations de maintenance, étalonnage etc....

Table1 :
- Ref appareil
- Type
- gamme

Table2 :
- Ref appareil
- Ref intervention
- Type intervention
- Date

Chaque appareil a 0 ou plusieurs enregistrements

Je cherche à créer un recordset qui me donnerai pour chaque appareil la dernière date d’intervention ?

[al1_24]

Voici une structure de requête pour sélectionner les lignes correspondant à la date la plus récente pour chaque id_groupe :

Code :

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

1
2
3
4
5
6
7
8
9
SELECT  t1.* 
FROM    matable AS t1 
WHERE   EXISTS 
        (   SELECT  1 
            FROM    matable AS t2 
            WHERE   t1.id_groupe = t2.id_groupe 
            HAVING  t1.col_date = MAX(t2.col_date) 
        ) 
;

Je te laisse l'adapter à ton cas...

[stef_445]

Table1 : Matériel
-[Réf_matériel]
-[Type]
-[Gamme]

Table2 : Maintenance
-[Réf_matériel]
-[Réf_intervention]
-[Date_intervention]


J'ai essayé de transposer

Code :

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

1
2
3
4
5
 
    strSQL = "SELECT  Matériel.[Réf_matériel] FROM Matériel AS t1 " & _
            "Where Exists (SELECT 1 FROM Maintenance AS t2 " & _
            "Where t1.[Réf_matériel] = t2.[Réf_matériel] " & _
            "Having t1.col_date = Max(t2.Date_intervention));"

je comprends pas trop le

"Having t1.col_date = Max(t2.Date_intervention));"

[stef_445]

le mieux que j'obtienne est l'affichage, pour chaque appareil, des opérations de d'étalonnage ou vérification avec la requette suivante :

SELECT M.[Réf_matériel], FROM Matériel M
LEFT OUTER JOIN Maintenance I
ON M.[Réf_matériel] = I.Réf_matériel]
WHERE ([Nature] LIKE 'étalonnage%' OR [Nature] LIKE 'vérification%' OR [Nature] IS NULL)
ORDER BY M.[Réf_matériel] ASC,I.[Date_intervention] DESC;"

ensuite je bloque