Discussion :

[xianxian620]

Bonjour,

J'ai une question un peu bête

Je veux obtenir la valeur maximale d'un champ (numérique) dans une table. Comment la réaliser par le code VBA?

Pour la requête SQL, j'ai connu: Select max(colonne) From Table;

Mais ce que je veux est une seule valeur, je ne peux pas utiliser " CurrentDb.OpenRecordset". Alors comment je pourrais faire?

Merci beaucoup pour vos aides

[Tofalu]

Bonjour,

Je ne vois pas pourquoi il serait impossible d'utiliser des recordsets, c'est justement la solution

[Renardo]

se genre la

Code :

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

Me.MonChamp.Value = DMax("Non Champ de la table", "Nom de la Table")

[Mahefasoa]

Bonsoir,

se genre la

Code :

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

Me.MonChamp.Value = DMax("Non Champ de la table", "Nom de la Table")

A préciser que "Nom Champ de la table" doit être mis entre crochet comme ceci:

Code :

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

Me.MonChamp.Value = DMax("[Non Champ de la table]", "Nom de la Table")

Bon courage et @+

[random]

Code :

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

1
2
3
4
5
6
7
8
 
Function maxim()
Dim mabase As DAO.Database
Dim mavaleur As Variant
Set mabase = CurrentDb()
maxim = mabase.OpenRecordset("select max(champ1) as machin from matable")![machin]
 
End Function