Discussion :

[noakiss]

Bonjour,
Je travail sous access 2003, j'aimerai exporter certaines données sous exel, voici la requète :

Code :

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

Set requete = CurrentDb.CreateQueryDef("NbSalarierDIF", "SELECT DISTINCT EMPLOYE.NomEmploye, EMPLOYE.PrenomEmploye,EMPLOYE.CSP, FORMATION.* FROM FORMATION, EMPLOYE WHERE FORMATION.Matricule = EMPLOYE.Matricule AND FORMATION.DateDebut >= Date_Debut AND FORMATION.DateDebut <= Date_Fin AND FORMATION.Statut='Définitive' AND FORMATION.NomTypologie='DIF'")

Ceci marche très bien mais je voudrais ne pas afficher les doublons.
Je sais que la solution doit être avec un distinct sur EMPLOYE.Matricule mais je n'y arrive pas...
J'ai déjà essayé de faire deux select : select.....FROM[SELECT......] mais ça me met une erreur

[noakiss]

Finalement j'ai trouvé la solution, pour ceux que ça interesse la voici:

Code :

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

1
2
3
Dim req As String
req = "SELECT Tempo.Matricule, Tempo.NomEmploye, Tempo.PrenomEmploye, Tempo.CSP FROM [SELECT DISTINCT FORMATION.Matricule,EMPLOYE.NomEmploye, EMPLOYE.PrenomEmploye, EMPLOYE.CSP FROM EMPLOYE, FORMATION WHERE EMPLOYE.Matricule = FORMATION.Matricule AND FORMATION.DateDebut>=Date_Debut AND FORMATION.DateDebut<= Date_Fin AND EMPLOYE.Sexe='F' AND FORMATION.Statut='Définitive'AND FORMATION.Imputation='Oui' ORDER BY EMPLOYE.CSP]. AS Tempo"
Set requete = CurrentDb.CreateQueryDef("FormationFemmes", req)