Discussion :

[omen123]

bonjour a tous ,

je me confronte aujourd'hui avec un probleme de requete . je voudrai avoir la date la plus ancienne au niveau de la requete .par exemple :

- CLT 1 DATE 01/01/2024
- CLT 1 DATE 01/02/2024
- CLT 1 DATE 01/03/2024

Le resultat doit me renvoyer la valeur : 01/01/2024 .

dans le deuxieme cas qui m'est problematique :

- CLT 1 DATE 01/01/2024
- CLT 1 DATE 01/02/2024
- CLT 1 DATE 01/05/2024
- CLT 1 DATE 01/06/2024

Le resultat doit me renvoyer la valeur : 01/05/2024 .

ou un autre exemple :

- CLT 1 DATE 01/01/2024
- CLT 1 DATE 01/02/2024
- CLT 1 DATE 01/05/2024
- CLT 1 DATE 01/06/2024
- CLT 1 DATE 01/07/2024
- CLT 1 DATE 01/09/2024
- CLT 1 DATE 01/10/2024

le resultat doit me renvoyer la valeur 01/09/2024 , je chrche toujours la derniere date d'entré chez mois sans inteeruption ( sans sortie du client ).

le champ CLT1 est nommé chez moi "CFR" et le champ date est nomé "datef" .

merci d avance .

[loufab]

Bonjour,

La première ok je comprend. c'est la plus ancienne.

Mais les autres ?

Si ta date en Text tu devrais utiliser une fonction de conversion String > Date sinon je doute qu'un tri quelconque soit efficace.

Cordialement,

[omen123]

rebonjour ,

j'ai modifié le type champ "datef" de text ---> a date .

mon but de la requete c est d 'avoir la derniere date d'affection de mon portefeuille et ce depuis 2023 . si un client sort du ptf , la date affection sera la derniere date d'entrée .

[omen123]

rebonjour Loufab ,

j'ai mis une piece jointe pour mieux expliquer mon cas , dans ce cas le client est sorti a partir du :

- le 01/06/2023
- puis01/04/2024

la requete doir pouvoir me renvoyer la derniere date de sortie .

[tatayo]

Bonjour,
Si j'ai bien compris la demande, il faut:

1. Prendre toutes les dates pour lesquelles il n'en existe pas d'autre avec un mois de moins
2. Prendre la date la plus récente dans cette liste.

Donc avec une sous requête, ça ressemble à ceci:

Code sql :

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

1
2
3
4
5
6
7
8
9
10
11
 
select *
from 
(
select query.CodeCli,Max(LaDate) as LaDAte
from LaTable as l1
left outer join LaTable as l2
on l1.CodeCli = l2.CodeCli and DateAdd('m',-1,l1.LaDate) = l2.LaDate
where l2.CodeCli is null
) as query
group by query.CodeCli

A tester quand même, mais l'idée est là.

Tatayo.

[omen123]

Merci TATAYO ,

j'ai recopier le code est remplacer les titulaires ,je pense que je dois rectifié

[tatayo]

Oups, j'ai fait une boulette dans la requête:

Code sql :

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

1
2
3
4
5
6
7
8
9
10
11
 
select query.CodeCli,Max(query.LaDate) as LaDAte
from 
(
select l1.CodeCli, l1.LaDate
from LaTable as l1
left outer join LaTable as l2
on l1.CodeCli = l2.CodeCli and DateAdd('m',-1,l1.LaDate) = l2.LaDate
where l2.CodeCli is null
) as query
group by query.CodeCli

Ca m'apprendra à faire plusieurs choses en même temps...

Tatayo.

[omen123]

rebonjour TATAYO ,

juste pour confirmation , je dois changer :

- CodeCli --> CLT (identifiant client unique)
- LaDate --> Datef (ces les dates d'affectation)
- latable --> DATEAFFEC ( c'est le nom de ma table)

je crois qu il y a un caractere de plus

[tatayo]

Je viens de regarder l'aide en ligne de DateAdd(), il faut en fait utiliser des doubles-quotes, et non de simples-quotes comme avec les autres SGBDs.

Tatayo.

[omen123]

il renvoie toujours le meme message .j'ai la base en piece jointe en cas de besoin.

[tatayo]

Visiblement Access ne supporte pas les sous requêtes dans la clause From, donc j'avoue que je n'ai pas de solution.

Tatayo.

[omen123]

Dans tous les cas un grand MERCI

[omen123]

bonjour ,

pouvez vous svp me localiser l'erreur :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
WITH DateEntries AS (
    SELECT 
        CLT,
        datef,
        LAG(datef) OVER (PARTITION BY CLT ORDER BY datef) AS PrevDate
    FROM 
        DATEAFFEC
),
Interruptions AS (
    SELECT 
        CLT,
        datef,
        PrevDate,
        IIF(DATEDIFF("m", PrevDate, datef) > 1, 1, 0) AS IsInterrupted
    FROM 
        DateEntries
)
SELECT 
    CLT,
    IIF(SUM(IsInterrupted) > 0, MIN(datef), MAX(datef)) AS DerniereDateEntree
FROM 
    Interruptions
GROUP BY 
    CLT;

[tatayo]

Access ne supporte pas les sous-requête ni les CTE.
Quelle est la base de données utilisée ?

Tatayo.

[omen123]

j'utilise acces 2013, je pourrai pas faire par exemple une requete sur une autre requete ...

[Robert1957]

Bonjour omen123, tatayo, loufab,

Pour contourner la non disponibilité des CTE une fonction peu faire l'affaire. Dans mon exemple je suppose que le "step" est toujours d'un mois pour la continuité du portefeuille. Dans un module standard le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Public Function LastDate(sIdentifiant As String) As Date
On Error GoTo gestion_err
 
'Déclaration des variables
    Dim db As DAO.Database: Set db = CurrentDb
    Dim rst As DAO.Recordset
    Dim strSQL As String
    Dim daDate As Date
 
'Construction du SQL en fonction du paramêtre sIdentifiant
    strSQL = "SELECT DATEAFFEC.CLT, DATEAFFEC.datef " _
    & "FROM DATEAFFEC " _
    & "WHERE DATEAFFEC.CLT = """ & sIdentifiant & """" _
    & "ORDER BY DATEAFFEC.datef DESC;"
'Ouverture du record
    Set rst = db.OpenRecordset(strSQL, 4, 512)
'Affectation de la date la plus récente
    daDate = rst("datef")
'Parcours des dates jusqu'au premier espace
    Do While Not rst.EOF
        If DateDiff("m", rst("datef"), daDate) > 1 Then: Exit Do
        daDate = rst("datef")
        rst.MoveNext
    Loop
'Retour de la date désirée
    LastDate = daDate
 
Sortie:
rst.Close
Set rst = Nothing
Set db = Nothing
 
Exit Function
gestion_err:
    MsgBox Err.Number & Chr(13) & Err.Description
    Resume Sortie
End Function

Et la requête selon la table mise en pièce jointe dans le post # 10

Code :

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

1
2
3
4
SELECT DATEAFFEC.CLT, LastDate([CLT]) AS DerniereDate
FROM DATEAFFEC
GROUP BY DATEAFFEC.CLT;

Bonne journée

[omen123]

je crois que ca fonctionne ,et dire que je commencais a le faire manuellement pour plus de 200 milles clients.

je te remercie infinement , je verified'autre exemples et je te communequerai le sort de la requete .

PS : Dans mon exemple je suppose que le "step" est toujours d'un mois pour la continuité du portefeuille (parfois le client sort du PTF deux ou plusieurs mois )

[omen123]

Bonjour Robert,

je crois qu'on modifiant le code sur ma base operationnel , j'ai fais une fausse manip . j'ai peut etre loupé klk chose

le nom de la table : complet
identifiant client : CFR
date effectation : Date 2

j'ai mis les codes suivants :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Public Function LastDate(sIdentifiant As String) As Date
On Error GoTo gestion_err
 
'Déclaration des variables
    Dim db As DAO.Database: Set db = CurrentDb
    Dim rst As DAO.Recordset
    Dim strSQL As String
    Dim daDate As Date
 
'Construction du SQL en fonction du paramêtre sIdentifiant
    strSQL = "SELECT complet.CFR, complet.date2 " _
    & "FROM complet" _
    & "WHERE complet.CFR = """ & sIdentifiant & """" _
    & "ORDER BY complet.date2 DESC;"
'Ouverture du record
    Set rst = db.OpenRecordset(strSQL, 4, 512)
'Affectation de la date la plus récente
    daDate = rst("date2")
'Parcours des dates jusqu'au premier espace
    Do While Not rst.EOF
        If DateDiff("m", rst("date2"), daDate) > 1 Then: Exit Do
        daDate = rst("date2")
        rst.MoveNext
    Loop
'Retour de la date désirée
    LastDate = daDate
 
Sortie:
rst.Close
Set rst = Nothing
Set db = Nothing
 
Exit Function
gestion_err:
    MsgBox Err.Number & Chr(13) & Err.Description
    Resume Sortie
End Function

le code de la requete SQL

Code :

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

1
2
3
SELECT complet.CFR, LastDate([CFR]) AS DerniereDate
FROM complet
GROUP BY complet.CFR;

Quand j'execute la requete j'ai les deux message en bas , le test sur l'application de test fonctionne parfaitement :

[tatayo]

Il manque les espaces à la fin les chaînes lors de la construction de la requête (ligne 12 et peut-être 13).

Tatayo.

[omen123]

effectivement il 's'agit dun espace , je continue mes test et je te tienderai au courant .
merci bcp