Recherche date la plus récente entre plusieurs champs date de noms différents

[Guy FALESSE]

Bonjour,

Comme dit le titre, je cherche à savoir comment faire pour afficher le champ date le plus récent entre plusieurs champs date différents comme:

Date01-date02-date03-date04 etc.

Je suppose qu'on devrait utiiser la fonction max, mais comment mettre les paramètres, mystère.
D'avance merci,

Guy Falesse

[Richard_35]

Bonjour Guy,

L'astucieuse solution du non moins astucieux Marot_r à adapter à ton besoin.

[Guy FALESSE]

Merci Richard, pour ta réponse.
Le problème est qu'il s'agit de 22 champs et là, je ne suis pas sorti de l'auberge.
Au fait, la fonction max() existe bien en access, mais je ne sais pas m'en servir

Guy

[f-leb]

Bonjour Guy, et salut Richard de retour de vacances...

la solution proposée par ClaudeLELOUP devrait te convenir:
Pour trouver le Minimum ou le Maximum

[Richard_35]

Bonjour Fabien (toujours sur la brèche, donc...) et Claude (l'auteur de la fonction finale sans limitation du nombre de dates de la série).

La suite appartient à Guy.

[78chris]

Bonjour

Je peux me tromper mais 22 champs date dans la même table laisse supposer une possible erreur de conception : peux préciser la structure de ta table et le rôle de ces champs ?

[helas]

Bonjour,
Je propose cet exemple
Table1 comprend au moins un champ unique (ici: N°) qui identifiera chaque enregistrement et un certain nombre de champs Date
Le code ci-dessous permettra à partir de ce champs unique de calculer la date max indépendamment du nombre de champs Date d'un enregistrement
Ici N° peut être remplacer par un champ Texte ou autre s'il reste unique.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Function MaxDate(n As Long) As Date
 Dim t As DAO.Recordset, f As Field
 Set t = CurrentDb.OpenRecordset("Table1", dbOpenDynaset)
 t.FindFirst "[N°]=" & n
 If Not t.NoMatch Then
  MaxDate = 0
  For Each f In t.Fields
   If f.Type = dbDate Then If f.Value > MaxDate Then MaxDate = f.Value
  Next f
 End If
 t.Close
End Function

qui peut être utilisé dans une requête

Code :

1
2
 
SELECT Table1.N°, maxdate([N°]) AS [max] FROM Table1;

A adapter, bien sur.