Discussion :

[petitours]

Bonjour

J'ai besoin de connaitre la valeur maximale contenue dans un champ.
Il s'agit d'un champ avec une date, afin de connaitre le dernier enregistrement qui a été fait dans la table.

avec la FAQ, j'ai tenté ceci

Code :

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

1
2
3
4
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("SELECT MAX(DateEnregistrement) From Tb_ControleBains", DbOpenSnapShot)
Me.texte = rst!Maximum
rst.Close

mais ca se bloque sur la declaration du DAO.Recordset en me disant que le type que je defini n'est pas défini.

Dans quel etat d'ois je érer ?

Merci

[jean-paul lepetit]

Salut,

Dans VBA menu Outils/Réferences cocher Micosoft DAO 3.x objects library

[random]

ajout référence dao ?

[petitours]

super, ca ne plante plus !

merci

Par contre maintenant ca me dit : "élément non trouvé dans cette collection"
Apparement je demande à faire quelquechose comme il faut maintenant, mais je ne demande pas ce qu'il faut

[jean-paul lepetit]

Maximum n'existe pas dans Rst!Maximum
Modifies ta Requête

Code :

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

1
2
3
4
Dim rst As DAO.Recordset 
Set rst = CurrentDb.OpenRecordset("SELECT MAX(DateEnregistrement) as Maximum From Tb_ControleBains", DbOpenSnapShot) 
Me.texte = rst!Maximum 
rst.Close

[petitours]

Merci beaucoup pour votre aide !