Discussion :

[nesswaffle]

Bonjour à tous,

je suis actuellement confronté à une problématique pour laquelle il me faut faire appel à vos lumières car je n'arrive pas à solutionner de façon simple :

J'ai actuellement une requête dans ma base appelée "Tbl_Affectation" se présentant en gros ainsi :

Equipe 1	74
Equipe 2	120
Equipe 3	12
Equipe 4	67

Mon objectif est, via un recordset en VBA, arriver à alimenter dans une variable le nom de l'équipe ayant le plus petit chiffre.
Est-ce réalisable de façon relativement simple svp ?

Merci beaucoup par avance

[tee_grandbois]

Bonjour,
on peut le faire comme çà par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
sub RechercheMini()
Dim strSql As String
Dim vScoreMini As Variant
Dim rst As Recordset
 
strsql = "Select nom_equipe from Tbl_Affectation where score = (select min(score) from Tbl_Affectation);"
 
Set rst = CurrentDb.OpenRecordset(strsql)
If rst.EOF = False Then vScoreMini = rst.Fields(0)
rst.close
set rst = nothing
 
end Sub

problème si le score minimum est commun à 2 équipes ... dans ce cas on peut choisir le min de nom_equipe

[Invité]

Bonjour,

Code :

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

Select top 1 * from(Select nom_equipe from Tbl_Affectation Order By score )

[micniv]

Aussi avec des fonctions de domaines :

Code :

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

vScoreMini = dlookup("nom_equipe","Tbl_Affectation","score=" & dmin("score","Tbl_Affectation"))

Cdlt

[Invité]

la requête la + simple :

Code :

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

1
2
 
Select Top 1 Equipe FROM Tbl_Affectation ORDER BY Score

le code via recordset VBA :

Code :

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

1
2
3
4
5
6
7
 
Public Function EquipeMini() As String
Dim oRs As Dao.Recordset
Set oRs = CurrentDb.OpenRecordset("Select Top 1 Equipe FROM Tbl_Affectation ORDER BY Score", dbOpenSnapshot)
If Not oRs.EOF Then EquipeMini = oRs.Fields(0)
oRs.Close: Set oRs = Nothing
End Function

[marot_r]

Salut à tous.

Une variante de la même solution sans SQL.

Code :

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

1
2
dim equipe as string
equipe=dFirst("Equipe", "Tbl_Affectation"; "[Score]=" & Nz(DMin("Score", "Tbl_Affectation"), 0)) & "" 'Le & "" évite d'avoir à tester le null.

A+

[nesswaffle]

ouah,

Un grand merci à tous, de nombreuses solutions différentes et de ce que j'en ai testé fonctionnelles !

Super