Discussion :

[marot_r]

Bonjour à tous et merci de votre temps et aide.

J'ai un fichier d'événement : association de vehicule et de personne

Chaque événement a une date, une clefVehicule et une clefPersonne.

Je souhaite faire des périodes pour mes véhicules et cela me prend la date de l'événement pour ce véhicule ET la date de l'événement pour ce véhicule qui le suit immédatement.

Note je ne peux pas numéroter les événements, il faut que je marche avec des dates et des heures.

J'ai fait une fonction VBA qui fait juste cela mais c'est super lent donc j'essaye en SQL et pour le moment c'est pas une réussite.

Le résultat devrait ressembler à cela :

ClefVehicule, DateEvenement, DateEvenement_Suivant.

Quelqu'un a déjà fait cela ?

As tout hazard voici le SQL que j'ai fait mais il ne marche pas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
SELECT AssVehiculePersonne.ClefVehicule, AssVehiculePersonne.Date, r3.Date AS Date_Suivant
FROM AssVehiculePersonne 
LEFT JOIN 
 
(
SELECT Min(AssVehiculePersonne.Date) AS [Date], AssVehiculePersonne.ClefVehicule
FROM AssVehiculePersonne
GROUP BY AssVehiculePersonne.ClefVehicule
HAVING (((Min(AssVehiculePersonne.Date))>AssVehiculePersonne.Date))
)as r3 
 
ON AssVehiculePersonne.ClefVehicule = r3.ClefVehicule;

A+

[LedZeppII]

Bonsoir,

peut-être comme ça ?

Code :

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

1
2
3
4
5
6
SELECT AssVehiculePersonne.ClefVehicule, AssVehiculePersonne.Date,
 (SELECT Min(Tmp1.Date)
  FROM AssVehiculePersonne As Tmp1
  WHERE ((Tmp1.Date)>(AssVehiculePersonne.Date) AND (Tmp1.ClefVehicule=AssVehiculePersonne.ClefVehicule))
  GROUP BY Tmp1.ClefVehicule ) As Date_Suivant
FROM AssVehiculePersonne;

J'ai fait un essai sur une de mes tables et à ma grande surprise Access(2000) a accepté la sous-requête dans le SELECT.
Sinon on peut remplacer la sous-requête par un Dmin(...)

Bon courage

[marot_r]

Wahoo ! Ça marche !!!

Merci.

A+