Discussion :

[Gabout]

Bonjour,

Je souhaiterai afficher (par du code) la plus petite valeur de la sélection définie par le code SQL suivant.

Code :

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

1
2
3
SELECT DateSerial(Year([Formation]),Month([Formation])+[Duree]-6,Day([Formation])) AS X
FROM tbl_CATEGORIES INNER JOIN tbl_DEMANDES ON tbl_CATEGORIES.CCategorie_ID = tbl_DEMANDES.CCategorie
WHERE (((DateSerial(Year([Formation]),Month([Formation])+[Duree]-6,Day([Formation])))>=Date()) AND ((tbl_DEMANDES.Suspension) Is Null) AND ((tbl_DEMANDES.Relance) Is Null) AND ((tbl_DEMANDES.Formation) Is Not Null));

Avez-vous une solution à me proposer ?

[helas]

Min pour les plus petites valeurs et TOP 1 pour pour la premiere

Code :

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

1
2
3
4
SELECT TOP 1 Min(DateSerial(Year([Formation]),Month([Formation])+[Duree]-6,Day([Formation]))) AS X
FROM tbl_CATEGORIES INNER JOIN tbl_DEMANDES ON tbl_CATEGORIES.CCategorie_ID = tbl_DEMANDES.CCategorie
WHERE (((DateSerial(Year([Formation]),Month([Formation])+[Duree]-6,Day([Formation])))>=Date()) AND ((tbl_DEMANDES.Suspension) Is Null) AND ((tbl_DEMANDES.Relance) Is Null) AND ((tbl_DEMANDES.Formation) Is Not Null));

[Gabout]

Merci bien de ta réponse helas Ta solution est idéale !

J'étais de mon côté parvenu à :

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
Private Sub cmdProchaineRelance_Click()
    Dim oRst As DAO.Recordset
    Dim oDb As DAO.Database
    Dim sSQL As String
    sSQL = "SELECT DateSerial(Year([Formation]),Month([Formation])+[Duree]-6,Day([Formation])) AS LaDate " & _
           "FROM tbl_CATEGORIES INNER JOIN tbl_DEMANDES ON tbl_CATEGORIES.CCategorie_ID = tbl_DEMANDES.CCategorie " & _
           "WHERE (((DateSerial(Year([Formation]), Month([Formation]) + [Duree] - 6, Day([Formation]))) >= Date()) And ((tbl_DEMANDES.Suspension) Is Null) And ((tbl_DEMANDES.Relance) Is Null) And ((tbl_DEMANDES.Formation) Is Not Null)) " & _
           "ORDER BY DateSerial(Year([Formation]),Month([Formation])+[Duree]-6,Day([Formation]));"
 
    Set oDb = CurrentDb
    Set oRst = oDb.OpenRecordset(sSQL, dbOpenDynaset)
    MsgBox "La prochaine échéance est : " & oRst.Fields(0).Value
    oRst.Close
    oDb.Close
    Set oRst = Nothing
    Set oDb = Nothing
End Sub

Bref, j'ordonnai ma sélection par ordre croissant de date avant d'afficher le message... mais je ne étais pas sûr d'afficher systématiquement le premier recordset. Ton avis ?