Discussion :

[MelaAllIn]

Bonjour,

J'ai la requete suivante :

Code :

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

1
2
3
SELECT COMPANY.CodeCompany, REF_INITREQUALIF.InitRequalif, COMPANY_QUALIF.DateQualif, COMPANY_QUALIF.RefInterneQualif, COMPANY_QUALIF.FollowUp, COMPANY_QUALIF.Audit, COMPANY_QUALIF.RefAudit, COMPANY_QUALIF.DateAudit, COMPANY_QUALIF.ResultatAudit, COMPANY_QUALIF.QualityPart, COMPANY_QUALIF.TechnicalInput, COMPANY_QUALIF.RemarkCompany, COMPANY_QUALIF.RelancePTP, COMPANY_QUALIF.RelanceRR
FROM REF_INITREQUALIF INNER JOIN (COMPANY INNER JOIN COMPANY_QUALIF ON COMPANY.CodeCompany = COMPANY_QUALIF.Company) ON REF_INITREQUALIF.CodeInitReQualif = COMPANY_QUALIF.QualifInitiale
WHERE (((COMPANY.CodeCompany)=GetCodeCompany()) AND ((REF_INITREQUALIF.InitRequalif)="Re-qualification"));

Elle me permet d'avoir un historique sur des qualifications pour un CodeCompany donné. Pour mon formulaire, je souhaiterais n'avoir à l'écran que la qualification pour laqelle la DateQualif est la plus récente. J'ai essayé le code suivant, mais ça ne marche pas...

Code :

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

1
2
3
4
SELECT COMPANY.CodeCompany, REF_INITREQUALIF.InitRequalif, Max(COMPANY_QUALIF.DateQualif) AS MaxDeDateQualif, COMPANY_QUALIF.RefInterneQualif, COMPANY_QUALIF.FollowUp, COMPANY_QUALIF.Audit, COMPANY_QUALIF.RefAudit, COMPANY_QUALIF.DateAudit, COMPANY_QUALIF.ResultatAudit, COMPANY_QUALIF.QualityPart, COMPANY_QUALIF.TechnicalInput, COMPANY_QUALIF.RemarkCompany, COMPANY_QUALIF.RelancePTP, COMPANY_QUALIF.RelanceRR
FROM REF_INITREQUALIF INNER JOIN (COMPANY INNER JOIN COMPANY_QUALIF ON COMPANY.CodeCompany = COMPANY_QUALIF.Company) ON REF_INITREQUALIF.CodeInitReQualif = COMPANY_QUALIF.QualifInitiale
GROUP BY COMPANY.CodeCompany, REF_INITREQUALIF.InitRequalif, COMPANY_QUALIF.RefInterneQualif, COMPANY_QUALIF.FollowUp, COMPANY_QUALIF.Audit, COMPANY_QUALIF.RefAudit, COMPANY_QUALIF.DateAudit, COMPANY_QUALIF.ResultatAudit, COMPANY_QUALIF.QualityPart, COMPANY_QUALIF.TechnicalInput, COMPANY_QUALIF.RemarkCompany, COMPANY_QUALIF.RelancePTP, COMPANY_QUALIF.RelanceRR
HAVING (((COMPANY.CodeCompany)=GetCodeCompany()) AND ((REF_INITREQUALIF.InitRequalif)="Re-qualification"));

En fait, il ne se passe rien !
Je n'y connais pas grand chose en requetes access, alors là, je sèche !
Si quelqu'un a une solution pour mon problème, ça serait super sympa.

D'avance merci.
MelaAllIn

[nico84]

Bonjour,

C'est marrant j'ai répondu à cette question il y a 5' dans cette file

C'est le point 3...

[MelaAllIn]

Oui, effectivement !

Je comprends vaguement le principe de ton code, mais je n'y connais pas grand-chose et je suis incapable de traduire ta réponse à mon cas spécifique...
Sans vouloir abuser, as-tu la possibilité de me donner plus d'infos ???
Merci d'avance !

MelaAllIn

[nico84]

Code :

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

1
2
3
4
SELECT COMPANY.CodeCompany, REF_INITREQUALIF.InitRequalif, COMPANY_QUALIF.DateQualif, COMPANY_QUALIF.RefInterneQualif, COMPANY_QUALIF.FollowUp, COMPANY_QUALIF.Audit, COMPANY_QUALIF.RefAudit, COMPANY_QUALIF.DateAudit, COMPANY_QUALIF.ResultatAudit, COMPANY_QUALIF.QualityPart, COMPANY_QUALIF.TechnicalInput, COMPANY_QUALIF.RemarkCompany, COMPANY_QUALIF.RelancePTP, COMPANY_QUALIF.RelanceRR
FROM REF_INITREQUALIF INNER JOIN (COMPANY INNER JOIN COMPANY_QUALIF ON COMPANY.CodeCompany = COMPANY_QUALIF.Company) ON REF_INITREQUALIF.CodeInitReQualif = COMPANY_QUALIF.QualifInitiale
WHERE COMPANY.CodeCompany=GetCodeCompany() AND REF_INITREQUALIF.InitRequalif)="Re-qualification"
AND COMPANY_QUALIF.DateQualif=(select max(x.datequalif) from COMPANY_QUALIF as x where x.Company=COMPANY_QUALIF.Company and x.QualifInitiale=COMPANY_QUALIF.QualifInitiale)

Sans garantie n'ayant aucune idée de la structure de tes tables...

[MelaAllIn]

Aouh, ça marche !!!
Merci encore, nico84, et à bientôt, peut-être !